VB.Net Tutorial/Windows/Wav Sound

Материал из VB Эксперт
Перейти к: навигация, поиск

Play a wav file

<source lang="vbnet">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</source>

Play window system sound: SystemStart

<source lang="vbnet">Imports System.Net Imports System.Windows.Forms public class Tester

  public Shared Sub Main
       PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
  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</source>