Riprodurre un suono con ciclo continuo

di
anpol60
il
1 risposte
A
anpol60
Utente Attivo
Iscritto da
set, 2020
Messaggi:
67

Riprodurre un suono con ciclo continuo

Buona sera al gruppo. Cerco, se possibile, un aiuto per un codice che non riesco a far funzionare. All'apertura di una form, tra le altre cose, parte un file audio (wav). Questo è il codice che funziona benissimo: 
 Call sndPlaySound32("C:\Suoni\Sky.wav", 1)
Io vorrei che la riproduzione del file avvenisse con un ciclo continuo. Ho provato con vari codici, ma non funzionano. Non riesco a capire i motivi. Ho provato con questo codice: 
Do
  Call sndPlaySound32("C:\Suoni\Sky.wav", 1)
Loop Until Text1.Text = 1
oppure con questo codice: 
Do While Text1.Text= 1
 Call sndPlaySound32("C:\Suoni\Sky.wav", 1)
Loop
oppure con questo codice: 
 While Text1.Text = 1
 Wend
 Call sndPlaySound32("C:\Suoni\Sky.wav", 1)
Ma non funzionano.
Un suggerimento?
Grazie

1 Risposte

  • A
    anpol60
    Utente Attivo
    Iscritto da
    set, 2020
    Messaggi:
    67

    Re: Riprodurre un suono con ciclo continuo

    Beh, cercando in rete, ho trovato la soluzione. Nella form, all'inizio: 
     Private Const SND_ASYNC As Long       = &H1
Private Const SND_FILENAME As Long    = &H20000
Private Const SND_LOOP As Long        = &H8
    ed ho cambiato il codice dell'esecuzione del suono in questo modo: 
     Call sndPlaySound32("C:\SUONI\Sky.wav", SND_FILENAME Or SND_ASYNC Or SND_LOOP)
Devi accedere o registrarti per scrivere nel forum
1 risposte