Beep Statement




Sounds a tone through the computer's speaker. Example

Private Sub CommandButton2_Click()

iVoid = DoSomeLongFunction() Beep

MsgBox "Finished!"

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?

0 0


Post a comment