Sounds a tone through the computer's speaker. Example
Private Sub CommandButton2_Click()
iVoid = DoSomeLongFunction() Beep
End Sub Programming Tips & Gotchas
• The frequency and duration of the tone depends on the computer's hardware. Bear in mind that on some systems, a mouse click is louder than the beep.
• Overuse of the Beep statement won't endear you to your users.
• Thoughtful use at the end of a long possibly unattended process may be appropriate.
• Since the successful operation of the Beep statement doesn't require the presence of any multimedia hardware (like a sound board, for example), it can be used when a system isn't configured to support sound. For example, if the following is defined in the declarations section of a code module:
Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) _ As Long
Public Const SND_APPLICATION = &H80 Public Const SND_ASYNC = &H1 Public Const SND_FILENAME = &H20000 Public Const SND_NODEFAULT = &H2
Beep Statement 133
Public HasSound As Boolean
Public Function IsSoundSupported() As Boolean If (waveOutGetNumDevs > 0) Then _ IsSoundSupported = True End Function then the procedure
Private Sub Form_Load() Dim intCtr As Integer HasSound = IsSoundSupported() If HasSound Then
Call PlaySound("c:\windows\media\tada.wav", 0, SND_FILENAME Or SND_NODEFAULT)
Beep Next End If End Sub
Was this article helpful?