用 mciSendString API函數怎樣一直重複撥放?
用 mciSendString API函數怎樣一直重複撥放?做法是看看是不否到了曲目的結尾,如果是的話就繼續播放:
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
Dim StrStatus As String * 255
Dim ST As Double
Private Sub Form_Activate()
Do
DoEvents
mciSendString "status bs length", StrStatus, 255, 0
ST = Val(StrStatus)
mciSendString "status bs position", StrStatus, 255, 0
If ST = Val(StrStatus) Then
mciSendString "seek bs to start", "", 0, 0
mciSendString "play bs", "", 0, 0
End If
Loop
End Sub