[VB6] Inserire suono continuo in evento

[zorro77]

Salve a tutti
ho inserito la funzione
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
con le relative costanti

Public Const SND_ASYNC = &H1
Public Const SND_LOOP = &H8
Public Const SND_MEMORY = &H4
Public Const SND_NODEFAULT = &H2
Public Const SND_SYNC = &H0
Public Const SND_NOSTOP = &H10

Ora vorrei che il suono venga eseguito in concomitanza con un msgbox e fino a che non si preme il tasto OK il suono deve essere sempre riprodotto.

Al momento ho scritto così ma il suono mi viene ripetuto una sola volta

MsgBox ("Connessione non più presente" & CDate(Time))
sndPlaySound "c:\windows\file.wav", SND_LOOP

Ringrazio per l'aiuto

[multijet]

io metterei la funzione del suono sotto un oggetto timer che si abilita appena compare la msgbox e quando premi il pulsante ok il timer si disabilita

[MdE2005]

Potresti anche usare un ciclo Do While e simili..finchè non viene premuto il tasto Ok allora continua la riproduzione.

Ciao

[Boolean]

il MsgBox, blocca qualsiasi attività del programma nel momento in cui viene chiamato, perchè è un form modale.

non si otterrebbero risultati, nè con un timer, nè con un DO While

l'unica soluzione sarebbe quella di avere un MsgBox personalizzato, creato con un form standard di VB, e visualizzato in maniera non Modale.

se il form si vuole avere comunque modale, allora il codice per il loop del suono lo si fa eseguire nel form che funge da msgbox...

altre alternative non ne vedo... se non l'uso massiccio di API per rendere il msgbox standard non modale... ma forse è eccessivo

Boolean

[MdE2005]

E' vero Boolean, avevo letto troppo velocemente il problema..

A questo punto non posso che concordare con quello che hai detto.

Ciao