clint 2

renee

where do I post pause button code




Re: Visual Basic Express Edition concerning media player

ReneeC

 

Here. I don't know what happened to the thread.

I also have some design work for you.

Make a Listview with

View = Details

Checkboxes = true

Fullrowselect = true

We are going to use some tricks with the listview (LV) and then  manually add the LV items

Loading of the lv items will be driven   like the file.infos in ChooseRandomSong

Roughly, ever so roughly, this is what loading should look like:

Dim lvi as listviewitem

For each file as File.infos  in fi

If   file.extension.tolower = (.mp3) then

         Lvi = new listviewitem(file.name)
         lvi.tag = file.fullname
         Lvi.items.add(lvi)

End if

Next

You'll notice the listview items carry the songname and listview tags receive the full path of the song.

We'll use the contants of the tag for the player and the random routine.

You also need to think about how to store your choices. This should keep you busy for the evening.

Please note this is pseudo code. It's close to runnable but not quite. Any thing that's missing is in last nights'c code.

Renee

 






Re: Visual Basic Express Edition concerning media player

cheyenne

wow that sounds complicated.....but first....this is my pause button........

then I thought I would like a back button......dont know if it should keep repeating last song or not,

at the moment it just rewinds the current track to start......mmmm

what do ya think

pause button

Private Sub btpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpause.Click

If WMP.playState = WMPPlayState.wmppsPlaying Then

WMP.Ctlcontrols.pause()

tmr.Stop()

ProgressBar.Value = ProgressBar.Value

btpause.Text = "paused"

btpause.ForeColor = Color.Aqua

Else

If WMP.playState = WMPPlayState.wmppsPaused Then

WMP.Ctlcontrols.play()

tmr.Start()

btpause.Text = "pause"

btpause.ForeColor = Color.Beige

End If

End If

End Sub

back button

Private Sub btback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btback.Click

WMP.Ctlcontrols.stop()

Static LastSong As String = "last"

tmr.Start()

btpause.Text = "pause"

btpause.ForeColor = Color.Beige

ProgressBar.Value = 0

WMP.Ctlcontrols.play()

End Sub






Re: Visual Basic Express Edition concerning media player

cheyenne

btpause.Text = "pause"

btpause.ForeColor = Color.Beige

ps.....these two lines have to be copied into the play and stop button events






Re: Visual Basic Express Edition concerning media player

ReneeC

 

I think if you have Word, you should cut and paste your code into Word, and then cut and paste that onto the board. If you don't have Word, you have Wordpad.

I really don't like reading code that not's formatted and if you noticed, I never answer questions where people don't format their code and I always format mine.






Re: Visual Basic Express Edition concerning media player

ReneeC

 

Overall your code looks pretty good.

This does Nothing.

                ProgressBar.Value = ProgressBar.Value

Static LastSong As String = "last"

I'm not quite sure what this does ..........

One general concept. Usually when I am in a code block that is going to stop a timer. I stop it in the very first line of code in that code block. It won;t hurt you here, but not doing so can cause erratic results.   Treat timers as if they are potentially dangerous BECAUSE of the ability to cause erratic results.

I really like that you made the pause button handle both pause and resume.

 






Re: Visual Basic Express Edition concerning media player

cheyenne

Private Sub btpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpause.Click

If WMP.playState = WMPPlayState.wmppsPlaying Then

WMP.Ctlcontrols.pause()

tmr.Stop()

ProgressBar.Value = ProgressBar.Value

btpause.Text = "paused"

btpause.ForeColor = Color.Aqua

Else

If WMP.playState = WMPPlayState.wmppsPaused Then

WMP.Ctlcontrols.play()

tmr.Start()

btpause.Text = "pause"

btpause.ForeColor = Color.Beige

End If

End If

End Sub






Re: Visual Basic Express Edition concerning media player

ReneeC

It's still unformatted........






Re: Visual Basic Express Edition concerning media player

cheyenne

sorry.cant do that.....

I,m trying to learn vb here ..not word....sorry

u cant teach an old dog new tricks.....it looks right in wordpad but when pasted it not......lol

renee.....I have never used office in my life ,it dont interest me....its like me trying to teach you to plaster a wall

give me a break....please....aint I got enough on my plate






Re: Visual Basic Express Edition concerning media player

ReneeC

Here's the point. It's a burden and I recognize that. I'm here to help you.

So in my eyes, the question becomes, to what extent are you willing to help someone who is helping you Who is to assume the burden.

It's not easy to debug a noobie's code. It's much worse when I have to do the mental gymnastics to format your code in my head. That really distracts me from helping you. I'm really willing to work hard for people but I do have expectations. My expectation is that they do their share of the work and not have me do all of it.

If they want to put unreadable code up, fine. In that case, I feel they haven't done everything they can to make things easy for the volunteer who is helping them. When I have questions, and I do. I go to great pains to do all possible work for the person who is going to help me. I do everything I can to support them and they know that. When I see unformatted code, I really feel that the person I'm helping isn't doing their share given that we are a team. I realize that most newbies don't know any better. But to a person who is used to reading code, that formatting is very important. We as much "feel" the code as read it. That "feel" is eradicated when code is not formated. It's like asking a coder to read the code with one eye.

All I'm asking you to do is to make things easy for me, so I can help you.






Re: Visual Basic Express Edition concerning media player

cheyenne

ok . understood

I,ll get back to you when I know how to format the code






Re: Visual Basic Express Edition concerning media player

ReneeC

It's described here.

http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1049186&SiteID=1

I'm not the only one making the request.






Re: Visual Basic Express Edition concerning media player

cheyenne

Private Sub btpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpause.Click
tmr.Stop()
If WMP.playState = WMPPlayState.wmppsPlaying Then
WMP.Ctlcontrols.pause()


btpause.Text = "paused"
btpause.ForeColor = Color.Aqua
Else
tmr.Start()
If WMP.playState = WMPPlayState.wmppsPaused Then

WMP.Ctlcontrols.play()

btpause.Text = "pause"
btpause.ForeColor = Color.Beige
End If
End If
End Sub


how is this...

these two lines must be copied into the btplay and btstop events
and any other events that might be triggered whilst the btpause button is in paused mode

btpause.Text = "pause"
btpause.ForeColor = Color.Beige






Re: Visual Basic Express Edition concerning media player

ReneeC

gorgeous! just gorgeous in every way !






Re: Visual Basic Express Edition concerning media player

cheyenne

ok..so as I was saying

I thought I would like to be able to make the current song repeat.....if you like a song you may wish to replay it a couple of times.......

but the best I can do is this....which restarts the song, .

if you catch it before the next song starts

can you help

Private Sub btback_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btback.Click

WMP.Ctlcontrols.stop()

tmr.Start()

ProgressBar.Value = 0
btpause.Text = "pause"
btpause.ForeColor = Color.Beige
WMP.Ctlcontrols.play()


End Sub