etarf (Normal User)
Newbie
Messaggi: 5
Iscritto: 06/02/2007
|
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
|