Option Explicit
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 Alias As String
Dim song As String
Dim playyn As Boolean
Private Sub Command1_Click()
song = "c:\1.mid" '此處可更換路徑
Alias = "midi"
Call playmusic
End Sub
Sub playmusic()
If Dir(song) <> "" Then
mciSendString "open " & song & " type mpegvideo", vbNullString, 0, 0
mciSendString "play " & song & " repeat", vbNullString, 0, 0
playyn = True
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If playyn = False Then Call playmusic
End Sub