AccessTr.neT

Tam Versiyon: access müzik
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
mrb arkadaslar arama yaptım fakat bulamadım acaba access'e müzik ekleyebilirmiyiz ? forma girince mesela müzik çalsın
Sn:burak2444
Aşağıdaki örneği inceleyiniz.
WAV dosyaları için function


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

Kullanımı :
PlaySound "çalınacakdosyanınyoluveadı"

Kolay gelsin
sn. okileturc abi verdiğiniz kodlardan tam olarak nereye giricem dosya yolunu
ve sn. ogulcan92 abi verdiğiniz örnekteki kodları kendi formumda kullanmak istiyorum fakat değiştrmem ereken yerler neresiii çözemedim
Sn:burak2444
Sn:okileturc hocanın vermiş olduğu kodu formun load olayına yada bir butonun cilck olaynına aşağıdaki şekilde yazınız ve dosyanzın yanına mizik dosyasını ekleyiniz.
PlaySound=CurrentProject.Path & "\Hacel Obasını.wav"
Benim eklediğin örnekte ise aşağıdaki kodda Hacel obası olanı kendi eklediğiniz mp3 adı ile değiştiriniz.
Private Sub Form_Load()
Dim Hata As Long
Dim HataMesaji As String * 128
Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)
mciGetErrorString Hata, HataMesaji, 128
End Sub
yok abi ya olmuoyr :S

Private Sub Form_Load()
Dim Hata As Long
Dim HataMesaji As String * 128
Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)
mciGetErrorString Hata, HataMesaji, 128
End Sub

bu kodu form yüklendiğinde kısmına yapıstrdm çalıstırınca Chr$ kısmında hata gösteriyor
Sayfalar: 1 2