spiegami meglio
io ho fatto in questo modo:
codice modulo:
codice:
Declare Function sndPlaySound1 Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC1 = &H1
Public Const SND_SYNC1 = &H0
Public Const SND_LOOP1 = &H8
Declare Function sndPlaySound2 Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC2 = &H1
Public Const SND_SYNC2 = &H0
Public Const SND_LOOP2 = &H8
codice form:
codice:
Option Explicit
Dim S1, S2 As Long
Private Sub Form_Load()
S1 = sndPlaySound1("C:\Documenti\backsound.wav", SND_ASYNC + SND_LOOP)
S2 = sndPlaySound2("C:\Documenti\fire_gun.wav", SND_ASYNC)
End Sub
Ma... esegue solo il secondo cioè S2
ma nn dichiararne 2.... una x thread... cosi è come se ogni sndPlaySound fosse eseguito da un programma diverso!
postami un esempio di come faresti tu.
Ciao