Red de conocimiento informático - Conocimiento informático - Ayúdame a parchear un fragmento de código para un control de temporizador que reproduce música en bucle.

Ayúdame a parchear un fragmento de código para un control de temporizador que reproduce música en bucle.

Oh: complete el resto usted mismo:

Opción explícita

Función de declaración privada mciSendString Lib "winmm.dll" _

Alias "mciSendStringA" (ByVal lpstrCommand como cadena, _

ByVal lpstrReturnString como cadena, ByVal uReturnLength mientras, _

ByVal hwndCallback mientras) Mientras

Dim Alias como cadena

Atenuar canción como cadena

Atenuar reproducción como booleano

Subcomando privado1_Click()

canción = "c. /1：\ 1. mid" 'Reemplazar ruta aquí

Alias = "midi"

Llamar a playmusic

End Sub

Sub playmusic( )

Si Dir(canción) <> "" Entonces

mciSendString "abrir " & canción & " escriba mpegvideo", vbNullString, 0, 0

mciSendString "reproducir " & canción & " repetir", vbNullString, 0, 0

playyn = True

End If

End Sub

Sub privado Form_Load()

Timer1.Enabled = True

Timer1.Interval = 500

Fin Sub

Sub privado Timer1_Timer( )

Si playyn = False, entonces llama a playmusic

End Sub