Cómo insertar audio y vídeo en VB

Proyecto→Control→WindowsMediaPlayer

Después de hacer referencia, habrá una cosa adicional en la lista de control a la izquierda. Haga clic en ella, dibuje un cuadro en la pantalla y aparecerá MediaPlayer. en la pantalla

A continuación, cree una herramienta de apertura de archivos

Coloque

unidad1

dir1

archivo1

Tres controles. Establezca el atributo de patrón del archivo1 en *.wma

Luego escriba el siguiente código

Private Sub Dir1_Change()

File1.Path = Dir1.Path p>

Fin Sub

Sub Drive1_Change()

Dir1.Path = Drive1.Drive

Fin Sub

Private Sub File1_Click()

WindowsMediaPlayer1.URL = File1.Path amp "\" amp File1.FileName

End Sub

URL es la ruta del archivo, también puedes abandonar esos tres controles y especificar directamente un archivo

En cuanto al vídeo, lo mismo ocurre, puedes poner un atributo de título de comando1 establecido en "video"

Private Sub Command1_Click()

File1.pattern="*.avi"

End Sub

Para volver a cambiarlo, coloque un título de comando2 atributo establecido en "audio"

Private Sub Command2_Click()

File1.pattern="*.wma"

End Sub

Adicional: Método de pantalla completa:

Coloque un atributo de título de comando3 establecido en "pantalla completa"

Private Sub Command3_Click()

WindowsMediaPlayer1.FullScreen

Fin del subtítulo