Ayuda con "AxWindowsMediaPlayer" [Solucionado] Pueden cerrar el tema

Iniciado por SγиtαxEяяoя, 20 Agosto 2013, 22:31 PM

0 Miembros y 2 Visitantes están viendo este tema.

SγиtαxEяяoя

Buenas, estoy tratando de averiguar como logro que al finalizar de reproducir una cancion me regrese un valor

Esta es la propiedad del reproductor
Citar
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
       Select Case e.newState
           Case WMPLib.WMPPlayState.wmppsPlaying
               ToolStripStatusLabel2.Text = "Reproduciendo"
           Case WMPLib.WMPPlayState.wmppsPaused
               ToolStripStatusLabel2.Text = "En Pausa"
           Case WMPLib.WMPPlayState.wmppsStopped
               ToolStripStatusLabel2.Text = "Sin Reproducción"
       End Select
   End Sub

Me pregunto si existe algo como esto
           
CitarCase WMPLib.WMPPlayState.wmppsFinish 'Aqui que me regrese el nombre a un boton "Play"
               B_PlayPause.Text = "Play"

Estas son la propiedades del boton "Play/Pause"

Citar
Private Sub B_PlayPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_PlayPause.Click
       If B_PlayPause.Text = "Pause" Then
           AxWindowsMediaPlayer1.Ctlcontrols.pause()
           B_PlayPause.ImageIndex = 1
           B_PlayPause.Text = "Play"
       Else
           AxWindowsMediaPlayer1.Ctlcontrols.play()
           B_PlayPause.ImageIndex = 0
           B_PlayPause.Text = "Pause"
       End If
   End Sub

SγиtαxEяяoя

LOL  :silbar: :silbar: :silbar:


Código (vbnet) [Seleccionar]
Case WMPLib.WMPPlayState.wmppsMediaEnded
                B_PlayPause.Text = "Play  "



Ya lo solucione :p

Jjajaja no me percate en que en