VB utiliza el control WMP.DLL como reproductor para mostrar el tiempo de progreso en fotogramas, 1 segundo = 25 fotogramas

Operaciones específicas:

1. Crear un nuevo proyecto.

2. Haga clic derecho en la barra de herramientas de control y seleccione Gadgets.

3. Seleccione la opción Reproductor de Windows Media y haga clic en Aceptar.

4. Dibuje un reproductor multimedia Win en el formulario y cambie su nombre a jugador1. Busque la propiedad URL en la ventana de propiedades del jugador1.

6. Introduzca la ruta a cualquier archivo de audio/vídeo en el cuadro de texto de esta propiedad.

7. Dibuje una etiqueta en el formulario, usando su nombre predeterminado Etiqueta1.

8. Dibuje dos controles de temporizador en el formulario. Utilice el nombre predeterminado.

9.Establezca el valor de la propiedad Intervalo del Temporizador1 en 1.

10.Establezca el valor de la propiedad Intervalo del Temporizador2 en 60000.

11.Ingrese lo siguiente código:

╔════════════════════════════════ ╗

Private Sub Timer1_Timer()

Dim i

i = player1.Controls.currentPosition

Label1.Caption = i

Label1.Right ( i, 2 / 25)

12.Derecha(i, 2) / 25 25.5 * 2 / 2 * Izquierda(i, 2)

Fin Sub

Private Sub Timer2_Timer()

Timer1.Enabled = False

player1.Controls.pause

End Sub

╚╚═ ═ ══════════════════════════════╝

12.

Si no funciona, por favor escribe un email y te enviaré el programa