Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo reproducir música en bucle en VB mciSendString(Api)?

¿Cómo reproducir música en bucle en VB mciSendString(Api)?

Método 1: Hacer while 1...Repetición de bucle

Función de declaración privada mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand como cadena, ByVal lpstrReturnString como cadena, ByVal uReturnLength como larga, ByVal hwndCallback como larga) como Long

Subcomando privado1_Click()

Hacer mientras 1

Llamar a mciSendStringA("open C:/1.mp3 tipo MPEGVideo alias MP3", vbNullString, 0 , 0) 'Abrir 1.mp3

Llamar a mciSendStringA("reproducir MP3 esperar", vbNullString, 0, 0)

Llamar a mciSendStringA("cerrar MP3", vbNullString, 0, 0 )

Bucle

End Sub

Método #2: repetición del comando mci Repetir Repetir (recomendado. Arriba, el código que proporcionó se puede mejorar, C:/ 1.mp3 puede usar el seudónimo MP3 (u otro), que es más conveniente de usar)

Función de declaración privada mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand como cadena, ByVal lpstrReturnString como cadena, ByVal uReturnLength como Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()

Llamar a mciSendStringA("open C:/1.mp3 tipo MPEGVideo alias MP3", vbNullString, 0, 0 ) 'Abrir 1.

Llame a mciSendStringA("reproducir MP3 repetido", vbNullString, 0, 0)

End Sub

Sub privado Form_Unload( Cancelar como entero )

Llamar a mciSendStringA("cerrar MP3", vbNullString, 0, 0)

End Sub

上篇: Los materiales importados se comprimen a la mitad y solo se reproduce la primera mitad cada minuto. El video o audio importado se ve así, hágamelo saber. 下篇: ¿Necesito descargar win32 yo mismo?

Artículos populares