Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ADDING A WAV SOUND TO A BUTTON
- Thread starter csegal
- Start date
FancyPrairie
Programmer
Here's some code I got someplace. This should do it for you.
Code:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function PlaySound(FileName As String)
Dim MyReturn As Long
MyReturn = sndPlaySound(FileName, 1)
If (MyReturn <> 1) Then GoTo ErrHandler
'********************
'* Exit Procedure *
'********************
ExitProcedure:
Exit Function
'****************************
'* Error Recovery Section *
'****************************
ErrHandler:
Msgbox "Error from sndPlaySound" & vbCrLf & "Value is " & MyReturn, vbExclamation
GoTo ExitProcedure
End Function- Status
Similar threads
- Locked
- Question