Private FullScreen As Boolean
Private Sub Form_Load()
Timer1.enabled=false
Timer1.interval=50
Wmp.settings.autoStart = False
Command1.Caption = "Sin medios"
Command2.Caption = "Elegir medio..."
Check1.caption= "Pantalla completa"
End Sub
Private Sub Command2_Click()
If Wmp.URL = "" Then
Wmp.URL = "C:VideossNavidades-2009.avi"
Command1.Caption = "Reproducir"
Command2.Caption = "Parar"
Else
Timer1.Enabled = False ' nos aseguramos que un problema de carga no se perpetúe...
Wmp.Controls.stop
Command2.Caption = "Elegir medio..."
Command1.Caption = "Sin medios"
Wmp.URL = ""
End If
End Sub
Private Sub Command1_Click()
On Local Error GoTo Insiste
If Wmp.playState <> wmppsPlaying Then
If Wmp.URL = "" Then
Call Command2_Click
Else
Select Case Wmp.playState
Case wmppsPaused, wmppsStopped, wmppsReady ' no tienen porque agruparse en la misma acción, pero para el ejemplo vale.
Wmp.Controls.play
Command1.Caption = "Pausar"
DoEvents
If Wmp.FullScreen <> FullScreen Then
Wmp.FullScreen = FullScreen
End If Case Else
Beep ' otras acciones ante otros estados...
End Select
End If
Else
If Wmp.URL <> "" Then
Wmp.Controls.pause
Command1.Caption = "Reproducir"
Else
MsgBox "Primero debe seleccionar un medio, pulse el botón 2."
End If
End If
Exit Sub
Insiste:
' el error se produce porque antes del estado play está en estado de 'transición' hasta haber decodificado lo suficiente... este tiempo depende del vídeo y el códec que emplee
Err.Clear
Timer1.Enabled = True ' lo derivamos a un bucle que espera hasta que se ponga en play.
End Sub
Private Sub Check1_Click()
FullScreen = (Check1.Value = 1)
If Wmp.playState = wmppsPlaying Then ' si está en play la orden se obedece inmediatamente, sino, queda guardada para cuando se haga play.
Wmp.FullScreen = FullScreen
End If
End Sub
' le damos tiempo a que 'cargue', cambiando de estado de transición a estado reproduciendo.
Private Sub Timer1_Timer()
If Wmp.playState = wmppsPlaying Then
Timer1.Enabled = False
Wmp.FullScreen = FullScreen
End If
End Sub