Una Pregunta Tonta
Hola que tal amigos mi nombre es Fabián, y quisiera saber si me podrian ayudar con la siguiente pregunta:
Hice un formulario el cual contiene un menu, por medio de este quiero abrir un archivo de audio,video, etc, y quiero que el reproductor multimedia lo toque o lo pueda ver, mas sin embargo no se como asignar el archivo al reproducto:
Codigo:
//comentario
Option Explicit
Private Sub mnuAbrir_Click()
CommonDialog1.Filter = "Archivos de Audio|*.cda|"
CommonDialog1.ShowOpen
OCX1 = //aqui quiero agregar el archivo digame como//CommonDialog1.FileName
If CommonDialog1.FileName = "" Then
mnuCerrar.Enabled = False
Else
mnuCerrar.Enabled = True
End If
End Sub
Private Sub mnuCerrar_Click()
MediaPlayer1 = PlayCount("")
mnuCerrar.Enabled = False
End Sub
Private Sub mnuSalir_Click()
End
End Sub
Hice un formulario el cual contiene un menu, por medio de este quiero abrir un archivo de audio,video, etc, y quiero que el reproductor multimedia lo toque o lo pueda ver, mas sin embargo no se como asignar el archivo al reproducto:
Codigo:
//comentario
Option Explicit
Private Sub mnuAbrir_Click()
CommonDialog1.Filter = "Archivos de Audio|*.cda|"
CommonDialog1.ShowOpen
OCX1 = //aqui quiero agregar el archivo digame como//CommonDialog1.FileName
If CommonDialog1.FileName = "" Then
mnuCerrar.Enabled = False
Else
mnuCerrar.Enabled = True
End If
End Sub
Private Sub mnuCerrar_Click()
MediaPlayer1 = PlayCount("")
mnuCerrar.Enabled = False
End Sub
Private Sub mnuSalir_Click()
End
End Sub
