module1.bas

上传的包含两个文件

Attribute VB_Name = "Module1"
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Declare Function auxGetNumDevs Lib "winmm.dll" () As Long
Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10



Public Sub playcd(b As Integer)
Dim a As Long
a = mciSendString("open cdaudio alias cd wait", 0&, 0, 0)
a = mciSendString("set cd time format tmsf", 0&, 0, 0)
a = mciSendString("play cd from" & Str(b), 0&, 0, 0)
End Sub