Public Sub LoopWave(ByVal Soundfile As String) Public Sub PlayAWave(ByVal Soundfile As String, Optional ByVal MaxLoops As Integer = 1) Play it one or more times - number of repetitions set in the code:
#Vb.net play sound driver#
PlaySound("C:\DFW VB Data\P1Alert.wav", 0&, SND_FILENAME Or SND_ASYNC) '(SND_ASYNC Or SND_NODEFAULT))ĭeclare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32Ĭonst SND_SYNC As Long = &H0 'synchronize playbackĬonst SND_ASYNC As Long = &H1 ' played asyncĬonst SND_NODEFAULT As Long = &H2 ' No defaultĬonst SND_LOOP As Long = &H8 ' 'loop the waveĬonst SND_NOSTOP As Long = &H10 'don't stop current sound if one playingĬonst SND_NOWAIT As Long = &H2000 'Do not wait if the sound driver is busy.Ĭonst SND_ALIAS As Long = &H10000 ' Play a Windows sound (such as SystemStart, Asterisk, etc.).
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click (ByVal lpszSoundName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ Private Const SND_ASYNC = &H1 ' play asynchronously ie return to main thread while playing
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Private Const SND_FILENAME = &H20000 ' Name is a file name The sound ALWAYS plays synchronously and locks up my program until it stops playing. The following code works in VB6, but it does NOT work in VB.NET. How do I get sound to play whilst the rest of the program gets on with its stuff? A code snippet would be helpful. The whole program locks up whilst the sound is being played, even if I set the asynchronous flag. I also want to use similar sound calls throughout my program but don't want them to lock up the whole program operation whilst the sound plays. I want to be able to play music whilst my splash screen which contains essential reading material is displayed. I tried posting this on the VB Newbies forum but was asked to repost this here.
0 kommentar(er)
