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