05/01/2010, 14:27
accessman
iyi günler arkadaşlar
başka bir konunun devamında yardım istediğim bir problemim vardı
çözümünü buldum
tıklama ile mp3 dosyası çaldırmak istiyordum
sağolsun arkadaşlar yardım etmeye çalıştılar
çözümünü daha önceden forumdan alarak eklediğim bir program elime geçti
paylaşmak istedim
modul olarak şunu ekliyorsunuz
------------------------
Option Compare Database
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long
Function PlaySound(swavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.
If apisndPlaySound(swavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function
------------------------------------------
sonra çaldırmak istediğiniz olaya
--------------------------------
PlaySound ("C:\Users\hamal\Documents\accessman\camsesi.wav")
-------------------------------
ekliyorsunuz
hepsi bukadar
bunu mp3 dosyasını çalması için nasıl değiştirmeliyiz
başka bir konunun devamında yardım istediğim bir problemim vardı
çözümünü buldum
tıklama ile mp3 dosyası çaldırmak istiyordum
sağolsun arkadaşlar yardım etmeye çalıştılar
çözümünü daha önceden forumdan alarak eklediğim bir program elime geçti
paylaşmak istedim
modul olarak şunu ekliyorsunuz
------------------------
Option Compare Database
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
(ByVal filename As String, ByVal snd_async As Long) As Long
Function PlaySound(swavFile As String)
' Purpose: Plays a sound.
' Argument: the full path and file name.
If apisndPlaySound(swavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function
------------------------------------------
sonra çaldırmak istediğiniz olaya
--------------------------------
PlaySound ("C:\Users\hamal\Documents\accessman\camsesi.wav")
-------------------------------
ekliyorsunuz
hepsi bukadar
bunu mp3 dosyasını çalması için nasıl değiştirmeliyiz