Cómo hacer una barra de progreso para la reproducción de canciones en vb
Privado
Sub
Timer1_Timer()
Atenuar
t
Como
Largo
Dim
ret
Como
cadena
*<
128
Temporizador1.Intervalo
=
1000
t
=
mciSendString ("estado
"
+
na
+
"
position",
ret,
128,
0)
'Obtener la posición de reproducción actual
ProgressBar1 .Value
=
Val(ret)
Etiqueta4 .Caption
=
Gettime(Val( ret))
'Muestra el tiempo actual de la canción
Si
ProgressBar1.Value
=
ProgressBar1 .
Luego
Comando5_Click
Fin
Si
Fin
Sub
Privada
Función
Gettime(posición
Como
Larga)
As
String
'La función de esta función es convertir la hora en números enteros largos al estilo de reloj electrónico "**：**"
Atenuación
min,
seg
min
=
.p>
/
1000
min
=
min
/
60
seg
=
min
-.
Int(min)
min
=
Int(min)
seg
=
60
*
seg
/
100
seg
=
Int(seg)
*