module1.vb

Visual.Basic.NET实用编程百例-47.6M.zip

Module Module1
    Public Structure Waveoutcaps
        Dim Wmid As Short
        Dim Wpid As Short
        Dim Vdriverversion As Integer
        <VBFixedString(Maxpnamelen), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=Maxpnamelen)> Public Szpname As String
        Dim Dwformats As Integer
        Dim Wchannels As Short
        Dim Dwsupport As Integer
    End Structure
    Public Declare Function waveOutGetNumDevs Lib "Winmm.dll" () As Integer
    Public Declare Function waveOutGetDevCaps Lib "Winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Integer, ByRef lpCaps As Waveoutcaps, ByVal uSize As Integer) As Integer
    Public Const Mb_OK As Short = &H0S
    Public Const Maxpnamelen As Short = 32
    Public Const Wave_Format_1m08 As Short = &H1S
    Public Const Wave_Format_1m16 As Short = &H4S
    Public Const Wave_Format_1s08 As Short = &H2S
    Public Const Wave_Format_1s16 As Short = &H8S
    Public Const Wave_Format_2m08 As Short = &H10S
    Public Const Wave_Format_2m16 As Short = &H40S
    Public Const Wave_Format_2s08 As Short = &H20S
    Public Const Wave_Format_2s16 As Short = &H80S
    Public Const Wave_Format_4m08 As Short = &H100S
    Public Const Wave_Format_4m16 As Short = &H400S
    Public Const Wave_Format_4s08 As Short = &H200S
    Public Const Wave_Format_4s16 As Short = &H800S
    Public Const Wavecaps_Lrvolume As Short = &H8S
    Public Const Wavecaps_Pitch As Short = &H1S
    Public Const Wavecaps_Playbackrate As Short = &H2S
    Public Const Wavecaps_Sync As Short = &H10S
    Public Const Wavecaps_Volume As Short = &H4S
End Module