tt1212 > 12-07-13, 01:18 AM
paulsteigel > 19-07-13, 12:40 AM
tt1212 > 19-07-13, 11:44 AM
(19-07-13, 12:40 AM)paulsteigel Đã viết: Bạn hãy xem qua ví dụ trong file đính kèm ở đây nhé!
Cách làm của tôi là:
1. Viết một lớp cho phép chạy file mp3 bằng thư viện mci;
2. Gọi file và chaỵ như thường thôi!
Hãy lưu ý đến hàm xác định tên file ngắn nhé - cái này cần để thực thi file mp3.
Xin chia sẻ
le thai hoa > 14-05-18, 09:28 PM
maidinhdan > 14-05-18, 10:33 PM
(14-05-18, 09:28 PM)le thai hoa Đã viết: cho mình hỏi có công cụ nào tương tự như MediaPlayer1 trong visua basic không
Private Sub WindowsMediaPlayer0_Enter()
Dim player As WindowsMediaPlayer
Dim LinkFileNhac As String
LinkFileNhac = "E:\YouTube.mp4" ' Neu chay video dung
'LinkFileNhac = "D:\BaiHatKhmer2ofMaiDinhDan.mp3"
'Gan Ten dieu khien la khung chay nhac co ten la WindowsMediaPlayer0
Set player = Me.WindowsMediaPlayer0.Object
' Chen them cac ham trong thu vien WMPLib de Add them vao list muon chay nhac
DoEvents
player.currentPlaylist.appendItem player.newMedia(LinkFileNhac)
' Chay nhac
If player.currentPlaylist.Count = 1 Then
player.Controls.play
End If
End Sub
le thai hoa > 16-05-18, 03:49 PM
le thai hoa > 21-05-18, 04:10 PM