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 . 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. ‘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