Export (0) Print
Expand All

How to: Play Looping Sounds in Visual Basic 

This example plays a looping sound in the background.

Background playing lets the application execute other code while the sound plays. This is particularly useful when the playing sound should not block the application execution. The My.Computer.Audio.Play method allows the application to play only one background sound at a time; when the application plays a new background sound, it stops playing the previous background.

In general, when an application plays a looping sound, it should eventually stop the sound. For more information, see How to: Stop Playing Sounds in the Background in Visual Basic.

Example

The My.Computer.Audio.Play method plays the specified sound in the background when PlayMode.BackgroundLoop is specified.

Check that the file name references a .wav sound file on your system.

Sub PlayLoopingBackgroundSoundFile()
    My.Computer.Audio.Play("C:\Waterfall.wav", _
        AudioPlayMode.BackgroundLoop)
End Sub

This code example is also available as an IntelliSense code snippet. In the code snippet picker, it is located in Windows Forms Applications > Sound. For more information, see How to: Insert Snippets Into Your Code (Visual Basic).

The My.Computer.Audio.Play method plays the specified sound in the background when PlayMode.BackgroundLoop is specified.

Check that the application resources include a .wav sound file named Waterfall.

Sub PlayLoopingBackgroundSoundResource()
    My.Computer.Audio.Play(My.Resources.Waterfall, _
          AudioPlayMode.BackgroundLoop)
End Sub

Compiling the Code

These code examples can run only within a Windows Forms or console application. For more information, see My.Computer.Audio.Play Method.

Robust Programming

The file name should reference a .wav sound file on your system.

To simplify the management of your sound files, consider storing the files as application resources. They can then be accessed through the My.Resources Object.

See Also

Community Additions

ADD
Show:
© 2015 Microsoft