kardelen79
Altın Üye
- Katılım
- 18 Mayıs 2018
- Mesajlar
- 492
- Excel Vers. ve Dili
- 2007
- Altın Üyelik Bitiş Tarihi
- 11-06-2025
Option Explicit
Public Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub Sesli(ByVal WhatSound As String)
If Dir(WhatSound, vbNormal) = "" Then
WhatSound = Environ("SystemRoot") & "\Media\" & WhatSound
If InStr(1, WhatSound, ".") = 0 Then
WhatSound = WhatSound & ".wav"
End If
If Dir(WhatSound, vbNormal) = vbNullString Then
Beep
Exit Sub
End If
Else
(hata veren yer Function burası )
Public Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub Sesli(ByVal WhatSound As String)
If Dir(WhatSound, vbNormal) = "" Then
WhatSound = Environ("SystemRoot") & "\Media\" & WhatSound
If InStr(1, WhatSound, ".") = 0 Then
WhatSound = WhatSound & ".wav"
End If
If Dir(WhatSound, vbNormal) = vbNullString Then
Beep
Exit Sub
End If
Else
(hata veren yer Function burası )