Các chiêu thức trong lập trình Play một file nhạc Midi home

Play một file nhạc Midi home
Xuất xứ : Lê Nguyên Dũng (dungcoi2005) sửa lại từ www.allapi.net
Binh khí sử dụng : Một Module, 2 nút ấn (CommandButton)
Đoạn mã :
Module :
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
Form :
Private Sub Form_Load()
Command1.Caption = "Play"
Command2.Caption = "Stop"
End Sub
Private Sub Command1_Click()
result = mciSendString("open d:\Nhac.mid type sequencer alias canyon",
0&, 0, 0)
‘d:\Nhac.mid : Đường dẫn File nhạc
result = mciSendString("play canyon", 0&, 0, 0)
‘Bắt đầu phát nhạc (Với đường dẫn File nhạc tương ứng với dòng lệnh phía
trên
End Sub
Private Sub Command2_Click()
result = mciSendString("close all", 0&, 0, 0)
‘Dừng phát nhạc, dừng tất cả các âm thanh phát ra loa bởi MCI (Nếu không có
câu lệnh này thì dù bạn có thoát khỏi ứng dụng này thì MCI vẫn cứ phát
nhạc)
End Sub