13/02/07 15:47
etarf
Visual Basic 6 CONTROLLO MULTIMEDIALE
Riformulo la domanda, Vorrei sapere se è possibile avere un messaggio o una
segnalazione alla fine dell'esecuzione di un file Wave allego il codice.
Grazie a tutti
Private Sub Form_Load()
Dim File(10)
File(1) = "Brano_01": File(2) = "Brano_02"
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = File(1)
' Apre la periferica WaveAudio MCI.
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub
aaa
