Spikeky
• Chủ Tịch HĐ Quản Trị
 » Tuổi : 34
|
 » Giới tính : 
|
 » Thuộc Cung : 
|
 » Thú Nuôi : 
|
 » Bài Gửi : 64
|
 » Vcoin : 51343
|
 » Nhập Môn : 29/05/2010
|
 |  Tiê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
| |  | |  |
  |
|
