module1.bas

大量优秀的vb编程

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 Type Waveoutcaps
    Wmid As Integer
    Wpid As Integer
    Vdrivervesion As Long
    Szpname As String * 32
    Dwformats As Long
    Wchannels As Integer
    Dwsupport As Long
End Type