Hacer sonar un fichero Wav o Midi


Truco de Visual Basic 6.0 - Hacer sonar un fichero Wav o Midi


Insertar el siguiente código en un módulo:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Insertar un botón en el formulario y escribir el siguiente código:

Private Sub Command1_Click()
iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub


Más trucos de Trucos de Visual Basic 6.0

Trucos más leídos