elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda con "AxWindowsMediaPlayer" [Solucionado] Pueden cerrar el tema
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con "AxWindowsMediaPlayer" [Solucionado] Pueden cerrar el tema  (Leído 3,006 veces)
SγиtαxEяяoя

Desconectado Desconectado

Mensajes: 154


Ver Perfil
Ayuda con "AxWindowsMediaPlayer" [Solucionado] Pueden cerrar el tema
« en: 20 Agosto 2013, 22:31 pm »

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
            
Citar
Case 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


« Última modificación: 20 Agosto 2013, 22:39 pm por SγиtαxEяяoя » En línea

SγиtαxEяяoя

Desconectado Desconectado

Mensajes: 154


Ver Perfil
Re: Ayuda con "AxWindowsMediaPlayer"
« Respuesta #1 en: 20 Agosto 2013, 22:37 pm »

LOL  :silbar: :silbar: :silbar:


Código
  1. Case WMPLib.WMPPlayState.wmppsMediaEnded
  2.                B_PlayPause.Text = "Play  "


Ya lo solucione :p

Jjajaja no me percate en que en



En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines