Hướng dẫn dùng Windows Media Player / VB6
Đã gửi: T.Ba 29/07/2014 8:00 pm
Tên bài viết: Hướng dẫn dùng Windows Media Player / VB6
Tác giả: truongphu
Cấp độ bài viết: advance
Tóm tắt: Công cụ WMP rất hay, nhưng đa số chúng tachỉ mày mò. Bài viết này sẽ hướng dẫn cụ thể WMP trên VB6
Giao diện thử nghiệm:
1- Vẽ lên Form WMP control, đặt tên là WMP cho khỏi rườm rà, (trên hình là góc trên trái). Bên dưới ta vẽ thêm 1 FileListbox, tên File1 để quản lý các file trong folder.
Lưu ý: các file và folder trên máy nên dùng tiếng Việt không dấu.
*** WMP sẽ hoạt động tốt với các file "playlist" với đuôi là wpl. Thư mục hay chứa file nầy (default trên XP) là My Documents\My Music.
Khai Path cho File1 đặt ở Form Load.
sMyMusic được trả về đường dẫn tốt (trên XP, version cao hơn chưa test)
nếu trong đó có các file wpl, danh sách playlist sẽ hiện lên...
2- Giả sử máy chưa có playlist nào, vậy sau form load, ta phải làm: dẫn đến folder chứa các file mp3 (hay mpeg...) để tạo playlist.
(Trên hình, góc dưới phải có nút Add Folder cho việc nầy)
dùng function ở nút Add Folder:
Còn tiếp...
(Bạn nào muốn xem và load project nhanh, ghé vào
https://plus.google.com/communities/100 ... 4243511758 )
Tác giả: truongphu
Cấp độ bài viết: advance
Tóm tắt: Công cụ WMP rất hay, nhưng đa số chúng tachỉ mày mò. Bài viết này sẽ hướng dẫn cụ thể WMP trên VB6
Giao diện thử nghiệm:
1- Vẽ lên Form WMP control, đặt tên là WMP cho khỏi rườm rà, (trên hình là góc trên trái). Bên dưới ta vẽ thêm 1 FileListbox, tên File1 để quản lý các file trong folder.
Lưu ý: các file và folder trên máy nên dùng tiếng Việt không dấu.
*** WMP sẽ hoạt động tốt với các file "playlist" với đuôi là wpl. Thư mục hay chứa file nầy (default trên XP) là My Documents\My Music.
Khai Path cho File1 đặt ở Form Load.
Mã: Chọn hết
sMyMusic = CreateObject("Shell.Application").Namespace(13).Self.Path _
& "\My Playlists"
sMyMusic được trả về đường dẫn tốt (trên XP, version cao hơn chưa test)
Mã: Chọn hết
File1.Path = sMyMusic
nếu trong đó có các file wpl, danh sách playlist sẽ hiện lên...
2- Giả sử máy chưa có playlist nào, vậy sau form load, ta phải làm: dẫn đến folder chứa các file mp3 (hay mpeg...) để tạo playlist.
(Trên hình, góc dưới phải có nút Add Folder cho việc nầy)
Mã: Chọn hết
Public Function FindFolder$() ' Browser the folder
Dim PathFolder As Object
Set PathFolder = CreateObject("Shell.Application") _
.BrowseForFolder(0, "Select a folder:", 0)
If Not PathFolder Is Nothing Then FindFolder = PathFolder.Self.Path
Set PathFolder = Nothing
End Function
dùng function ở nút Add Folder:
Mã: Chọn hết
sPath = FindFolder ' Add Folder
If sPath = "" Then Exit Sub
Dim FSO As Object, FTmp As Object
Set FSO = CreateObject("Scripting.FileSystemObject").GetFolder(sPath).Files
For Each FTmp In FSO
M = GetFileNameFromPath(FTmp.Path)
M = Left(M, Len(M) - 4)
List2.AddItem M
dicLamPlaylist.Add CStr(Rnd * 1000), FTmp.Path
Next
La(7).Caption = List2.ListCount & " bài"
Set MyFSO = Nothing: Set FTmp = Nothing
Còn tiếp...

(Bạn nào muốn xem và load project nhanh, ghé vào
https://plus.google.com/communities/100 ... 4243511758 )