option butonlara ses eklemek

[hikmet]

merhaba sn.hocalarım ve arkadaşlarım;
userform üzerinde iki adet option buton var ve seçeneğe göre birisi aktif hale geliyor. bu butonlara seçeneğe göre aktif olduklarında uyarmaları için iki farklı ses eklemek mümkünmüdür. konu hakkında değerli fikirlerinizi paylaşırsanız seviniri. ilginiz için şimdiden teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Aşağıdakileri; Userform'un kod sayfasına kopyalayın. Ses dosyalarını değiştirebilirsiniz.

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
                "sndPlaySoundA" (ByVal lpszSoundName As String, _
                 ByVal uFlags As Long) As Long
'----------------------
Private Sub OptionButton1_Click()
   Call sndPlaySound32("c:\windows\media\tada.WAV", 0)
End Sub
'-----------------------
Private Sub OptionButton2_Click()
   Call sndPlaySound32("c:\windows\media\ringin.WAV", 0)
End Sub

 

[hikmet]

sn.ferhat pazarçevirdi ilginize ve verdiğiniz bilgiye çok teşekkür ederim. sayenizde tıkandığım yerden çalışmalarıma devam edebileceğim. ilgilenen herkese teşekkür ederim.