Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Play a wav file

Imports System.Net Imports System.Windows.Forms public class Tester    public Shared Sub Main         Dim mstrfileName As String = "start.wav"         PlaySound(mstrfileName, 0, SND_FILENAME)    End Sub         Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer     Const SND_FILENAME As Integer = &H20000     Const SND_ALIAS As Integer = &H10000     Const SND_SYNC As Integer = &H0     Declare Auto Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Int32     Declare Auto Function sndPlaySound Lib "WINMM.DLL" (ByVal FileName As String, ByVal Options As Int32) As Int32     Private Const SND_MEMORY As Integer = &H4     Private Const SND_ASYNC As Integer = &H1     Private Const PROCESS_DOMAIN As String = ""     Const SND_SYNC1 = &H0     Const SND_ASYNC1 = &H1     Const SND_NODEFAULT = &H2     Const SND_LOOP = &H8     Const SND_NOSTOP = &H10              End class