Entonces los avis se reproducen igual que los midis con el componente multimedia? o_O
Yo tengo éste código, me pueden decir cual es el error o como se reproduce?
Código:
Option Explicit
Dim ruta As String
Private Sub Form_Activate()
' Set the file name.
MMControl1.FileName = ruta
' Open the MCI device.
MMControl1.Wait = True
MMControl1.Command = "Open"
' Play the sound without waiting.
MMControl1.Command = "Play"
End Sub
Private Sub Form_Load()
Dim MidPath As String
MidPath = App.Path
If Right(MidPath, 1) <> "\" Then MidPath = MidPath & "\"
ruta = MidPath & "Inicio.AVI"
' Prepare the MCI control for WaveAudio.
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "AviVideo"
End Sub
Entonces si pues seria de gran ayuda que me echaran la mano, de antemano
GRacias