label değişkenine göre sesli uyarı

[zulfuernek]

label86 değeri sıfır ise music0 dosyası
label86 değeri sıfırdan faklı ise music1 ses doayası bir kez çalsın.

bu mümknmüdür. ses dosyaları ise "SİSTEM" dosyası içerisinde I18 VE I23 HÜCRELERİ İÇERİSİNDE

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Private Declare PtrSafe Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub CommandButton1_Click()
    If Label1.Caption = "0" Then
        Call PlayIt("C:\Windows\Media\Alarm01.wav", 0)
    Else
        Call PlayIt("C:\Windows\Media\Alarm02.wav", 0)
    End If
End Sub

 

[zulfuernek]

verdiğiniz kod çalışıyor ancak bunu pc deki ses dosyasından değilde. excel sekmesine eklenmiş bir ses dosyası için nasıl yapabiliriz.