vb6.0 reproducir vídeo

primero. Primero resuelva el problema de reproducción en bucle por usted

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)

Si NewState = 1 Entonces '1 se detiene (se reproduce una canción)

WindowsMediaPlayer1.Controls.play 'Reproducir de nuevo

End If

End Sub

Eso es

Si quieres jugar Más de un formato es fácil. Instale un decodificador universal, que puede reproducir videos compatibles con el reproductor multimedia que viene con el sistema Windows.

Pero el verdadero problema con el control WindowsMediaPlayer es que tiene muchos fallos, y si no te lo dijera, los detectarías enseguida.

El método de activación es

llamar el control WindowsMediaPlayer, hacer que su formulario sea de pantalla completa y establecer la propiedad de pantalla completa del

control WindowsMediaPlayer en verdadero.

Después de reproducir el vídeo en bucle una vez (simplemente utilice el método anterior para realizar el bucle), el control volverá automáticamente al estado de pantalla no completa y la ocultación de la barra de progreso del reproductor configurada previamente no funcionará.

En segundo lugar, la propiedad visible del control no tiene ningún efecto después de establecerse.

Para solucionar este problema, existe una solución ventajosa, que es hacer que la ventana sea más grande que la pantalla completa de la pantalla. Esto evita que el bucle salte hacia atrás.

Ya no uso este control. Usar activemovie en "referencias"

Para el problema de la lista de reproducción secuencial, la forma más sencilla es utilizar el control filelistbox

file1.path="d:\aaaa\"

Luego muestra los archivos que contiene

Eso es todo.

Puedes

for i= 1 a File1.ListCount

file1.list(i)

De esta manera puedes archivos

Siguiente

Envíame un correo electrónico y te puedo mostrar un ejemplo usando activemovie