|
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long 'Per suonare il file '(che in questo esempio e' "C:\windows\tada.wav") 'si chiama la funzione nel seguente modo: Dim Ret As Long 'Apro il file Ret = mciSendString("open c:\windows\tada.wav type _ sequencer alias tada", 0&, 0, 0) 'Ritorna il controllo all'applicazione dopo aver finito 'di suonare il file Ret = mciSendString("play tada wait", 0&, 0, 0) 'Chiudo il file Ret = mciSendString("close tada", 0&, 0, 0) Con VB si possono suonare i files WAVE senza bisogno di OCX utilizzando la funzione API mciSendString.La sua dichiarazione e' la seguente: |