• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

userformda ses

  • Konbuyu başlatan Konbuyu başlatan muallim
  • Başlangıç tarihi Başlangıç tarihi
Katılım
4 Ağustos 2005
Mesajlar
44
Excel Vers. ve Dili
EXCEL2003 TR
Userformdaki butonlara windows seslerini atayabilir miiyiz. Teşekkürler. :hey:
 
Ã?rnek olarak, aşağıdakileri UserForm'a yerleştirin ve TextBox1 nesnesi ekleyin.

Form'u çalıştırın ve TextBox'a bir şeyler yazın ...

Ses dosyası C:\Program Files\Messenger\Type.wav bilgisayarınızda varsa, çalışır.

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

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Call sndPlaySound32("C:\Program Files\Messenger\Type.wav", 1)
End Sub
 
Syn Haluk hocam kodlarınızı çalıştıramadım hata bendemi acaba veya mümkünse dosya ekleyebilirmisiniz tşkler :arkadas:
 
Geri
Üst