commandbutton1 e tıklayınca sas.waw açılsın

Katılım
7 Ağustos 2006
Mesajlar
472
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
merhabalar
ben userform1deki commandbutton1 e tıklayınca userform2 açılıyor.Birde belgelerimdeki sas.waw açılsa ve ses çalsa.Bunu nasıl yapabilirim?
iyi günler
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Aşağıdaki kodları deneyebilirmisiniz.
Kod:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub WavDosyasıAc(WavDosyaAdi As String, Bekle As Boolean)
    If Dir(WavDosyaAdi) = "" Then Exit Sub
    If Bekle Then
        sndPlaySound WavDosyaAdi, 0
    Else
        sndPlaySound WavDosyaAdi, 1
    End If
End Sub

Sub WavDosyasıDinle()
    WavDosyasıAc "C:\Belgelerim\sas.wav", True
End Sub
 
Katılım
7 Ağustos 2006
Mesajlar
472
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
SAYIN hocam hata veriyor.
compile error:
only comments appear after end sub,end function or end property
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Bende çalışıyor.Bir problem olmaması gerekiyor.

Sizin kendi kodlarınız içinde bir açıklama veya benzeri birşey var mı?
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Aşağıdaki kodları boş bir modül açıp oraya kopyalayın.

Kod:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub WavDosyasıAc(WavDosyaAdi As String, Bekle As Boolean)
    If Dir(WavDosyaAdi) = "" Then Exit Sub
    If Bekle Then
        sndPlaySound WavDosyaAdi, 0
    Else
        sndPlaySound WavDosyaAdi, 1
    End If
End Sub
Bu kodları ise Userform1'deki butona kod bölümüne kopyalayın.

Kod:
Private Sub CommandButton1_Click()
WavDosyasıAc "C:\Belgelerim\sas.wav", True
UserForm2.Show
End Sub
 
Üst