| piaolf |
07-01-21 23:15 |
Private 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
Private Const FILE_NAME As String = "C:\Test.mp3"
Private Sub Command1_Click()
Call mciSendString("play """ & FILE_NAME & """", "", 0, 0)
End Sub
Private Sub Command2_Click()
Call mciSendString("close """ & FILE_NAME & """", "", 0, 0)
End Sub
没看错的话是这段把....不行的说.... |
|