soundcard.bas

来自「一款漂亮的控件。 快」· BAS 代码 · 共 35 行

Attribute VB_Name = "Module1"
Declare Function waveOutGetNumDevs Lib "Winmm.dll" () As Long
Declare Function waveOutGetDevCaps Lib "Winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As Waveoutcaps, ByVal uSize As Long) As Long
Public Const Mb_OK = &H0
Public Const Maxpnamelen = 32
Public Const Wave_Format_1m08 = &H1
Public Const Wave_Format_1m16 = &H4
Public Const Wave_Format_1s08 = &H2
Public Const Wave_Format_1s16 = &H8
Public Const Wave_Format_2m08 = &H10
Public Const Wave_Format_2m16 = &H40
Public Const Wave_Format_2s08 = &H20
Public Const Wave_Format_2s16 = &H80
Public Const Wave_Format_4m08 = &H100
Public Const Wave_Format_4m16 = &H400
Public Const Wave_Format_4s08 = &H200
Public Const Wave_Format_4s16 = &H800
Public Const Wavecaps_Lrvolume = &H8
Public Const Wavecaps_Pitch = &H1
Public Const Wavecaps_Playbackrate = &H2
Public Const Wavecaps_Sync = &H10
Public Const Wavecaps_Volume = &H4

Type Waveoutcaps
    Wmid As Integer
    Wpid As Integer
    Vdriverversion As Long
    Szpname As String * Maxpnamelen
    Dwformats As Long
    Wchannels As Integer
    Dwsupport As Long
End Type