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

[osmanfenerli1907]

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

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz.

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

 

[osmanfenerli1907]

SAYIN hocam hata veriyor.
compile error:
only comments appear after end sub,end function or end property

 

[Recep İpek]

Bende çalışıyor.Bir problem olmaması gerekiyor.

Sizin kendi kodlarınız içinde bir açıklama veya benzeri birşey var mı?

 

[osmanfenerli1907]

Userform2.show Var

 

[osmanfenerli1907]

Sy hocam
bu kodlatı tam olarak nereye yazacağım..

 

[Recep İpek]

Aşağıdaki kodları boş bir modül açıp oraya kopyalayın.

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.

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