Trang ChínhTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 Viết chương trình VB6 để chơi nhiều bản nhạc

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Spikeky
• Chủ Tịch HĐ Quản Trị
• Chủ Tịch HĐ Quản Trị
avatar

» Tuổi » Tuổi : 29
» Giới tính » Giới tính : Nam
» Thuộc Cung » Thuộc Cung : Virgo
» Thú Nuôi » Thú Nuôi : Snake
» Bài Gửi » Bài Gửi : 64
» Vcoin » Vcoin : 31723
» Nhập Môn » Nhập Môn : 29/05/2010

Bài gửiTiêu đề: Viết chương trình VB6 để chơi nhiều bản nhạc   Fri 25 Jun 2010, 5:50 pm


Khi dùng ô điều khiển CommonDialog để mở hộp thoại Open, bạn chỉ chọn được mỗi lần một tập tin mà thôi. Muốn chọn nhiều tập tin, bạn phải sử dụng ô điều khiển FileListBox kết hợp với các ô điều khiển DirListBox và DriveListBox.
Trong VB6, bạn hãy tạo một project mới kiểu Standard. Chọn Project > Components để mở hộp thoại Components, rồi đánh dấu chọn thành phần Windows Media Player và bấm OK. Trên form Form1 mặc định, lần lượt vẽ các ô điều khiển: CommandButton có tên Command1, FileListBox có tên File1 (thuộc tính Pattern là "*.mp3" để cho phép chọn các tập tin .MP3, thuộc tính MultiSelect là Extended để cho phép chọn cùng lúc nhiều tập tin bằng cách vừa click chuột vừa nhấn phím Shift hoặc phím Ctrl), DriveListBox có tên Drive1, DirListBox có tên Dir1 và WindowsMediaPlayer có tên WindowsMediaPlayer1 (xem hình). Bạn gõ đoạn mã 1, nhấn F5 để kiểm tra kết quả. Bạn có thể sửa thuộc tính Pattern của File1 để người nghe nhạc có thể chọn nhiều loại tập tin Audio khác nhau.
Đoạn mã 1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Command1_Click()
Dim i As Integer
Dim sMedia As IWMPMedia
Dim sPlaylist As IWMPPlaylist
With WindowsMediaPlayer1
Set sPlaylist = .playlistCollection.newPlaylist("Audio")
.currentPlaylist = sPlaylist
‘ Duyệt hết danh sách đã được chọn
For i = 0 To File1.ListCount – 1
If File1.Selected(i) Then
‘ Thêm tên tập tin MP3 vào danh sách muốn Play
Set sMedia = .MediaCollection.Add(File1.Path & "" & File1.List(i))
.currentPlaylist.insertItem (.currentPlaylist.Count), sMedia
End If
Next
.Controls.play ‘ Bắt đầu Play danh sách
End With
End Sub



Về Đầu Trang Go down
 

Viết chương trình VB6 để chơi nhiều bản nhạc

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
...:: Hoa Lệ Rơi ::... :: (¯`·.♥_:: Lập Trình ::_♥.·´¯) :: VB-

Top Menu


Liên Hệ - Thống Kê - Hỏi Đáp - Quản Lý

Copyright © 2010 by ...:: Hoa Lệ Rơi ::... Inc - All Rights Reserved
BQT không chịu bất cứ trách nhiệm nào về nội dung bài viết của Thành Viên .
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Free blog