kod bir program çalıştırırken bitimini bekleden devem etsin

[mutluedenercan]

Debug.Print PlaySoundFileB("D:\efekt\surebasladeğ.wav")

kodu 30 sn lik ses çalıştırıken, program devem etmiyor.
bekliyo ondan sonra , sonraki kodu çalıştırıyor.

bo kod arka planda o sesi çalıştırırken durmasın program akmaya devem etsin istiyorum...

bunu yapan kod varmı

 

[Zeki Gürsoy]

Şu sabitleri değiştirerek deneyin.

Const SND_SYNC = &H0
Const SND_ASYNC = &H1

 

[mutluedenercan]

Private Const SOUND_FILENAME = &H20000

Hocam const ile ilgili sedece bu satır var...

bu satırmı değişecek..

sizin verdiğiniz kod buna uymuyor

programı ekledim

 

[Zeki Gürsoy]

Şu kısımları aşağıdaki kod ile değiştirin.

Private Declare Function sndPlaySound Lib "winmm.dll" _
            Alias "sndPlaySoundA" _
                (ByVal lpszSoundName As String, _
                 ByVal uFlags As Long) As Long

Private Declare Function PlaySound Lib "winmm.dll" _
            Alias "PlaySoundA" _
                (ByVal lpszName As String, _
                 ByVal hModule As Long, _
                 ByVal dwFlags As Long) As Long

Const SND_ASYNC = &H1
Const SND_SYNC = &H0

Dim a As Integer
Dim KayitSayisi As Integer
Dim SuAnkiSatirNo As Integer
Dim AramaBaslangicIndis As Integer

Public Function PlaySoundFileB(ByVal sndFileName As String) As Boolean

Dim iSuccess As Integer
iSuccess = sndPlaySound(sndFileName, SND_ASYNC)
If iSuccess = 0 Then
    PlaySoundFileB = False
Else
    PlaySoundFileB = True
End If

End Function

 

[mutluedenercan]

Hocam oldu

çok teşekkür