đến điều khiển Window Media Player ở form trước, bao gồm: Tắt loa, tăng/giảm volume, bật, tắt, tạm dừng bài hát, di chuyển thanh trượt báo hiệu thời lượng đã chơi file nhạc đó v.v…
b. Chương trình mẫu
frm4_14_Setting.frm
Option Explicit
Dim FileHienTai As Integer
'---
'/// hiển thịở chếđộ toàn màn hình hay không ? True có, False Không
PrivateSub chkFullScreen_Click()
frm4_14.wmpMain.FullScreen = (chkFullScreen.Value = 1)
End Sub
'///--- '/// Bật / Tắt loa. True Tắt, False Bật
PrivateSub chkMute_Click()
frm4_14.wmpMain.Settings.mute = (chkMute.Value = 1)
End Sub
'///--- '/// Xoá một file khỏi danh sách
PrivateSub cmdLoai_Click()
If lstSongList.ListIndex >= 0 Then lstSongList.RemoveItem lstSongList.ListIndex
End Sub
'///--- '/// Dừng / Tiếp tục chơi file hiện hành
PrivateSub cmdPause_Click()
If cmdPause.Caption = "Pause" Then
cmdPause.Caption = "Resume" frm4_14.wmpMain.Controls.pause Else cmdPause.Caption = "Pause" frm4_14.wmpMain.Controls.Play End If End Sub '///--- '/// Chơi một file đang được chọn trong danh sách
PrivateSub cmdPlay_Click()
If lstSongList.Text = "" ThenExit Sub
frm4_14.wmpMain.URL = lstSongList.Text frm4_14.wmpMain.Controls.Play
End Sub
'///--- '/// Stop chơi file hiện hành.
frm4_14.wmpMain.Controls.Stop
End Sub
'///--- '/// Bổ sung thêm một file vào danh sách các bài hát.
PrivateSub cmdThemFile_Click() Dim i As Integer
dlgOpenFile.Filter = "Các file nhạc tiếng (wav, mp3, wma)|*.wav;*.mp3;*.wma|" dlgOpenFile.ShowOpen
lstSongList.AddItem dlgOpenFile.FileName
End Sub
'///---
PrivateSub Form_Load()
Dim F As Long, BaiHat As String
'/// Nạp tên các file đã lưu trong tệp văn bản vào danh sách
If Dir("c:\SongList.txt") <> "" Then
F = FreeFile
Open "c:\SongList.txt" For Input As #F Do While Not EOF(F)
Line Input #F, BaiHat lstSongList.AddItem BaiHat Loop Close #F End If FileHienTai = -1
'/// Đồng hồ có chức năng liên tục cập nhật thời gian đã chơi của file hiện tại
tmrUpdate.Interval = 1000 sldVolume.Max = 100 sldVolume.LargeChange = 10 sldVolume.SmallChange = 5 sldVolume.Value = frm4_14.wmpMain.Settings.volume End Sub '///--- '/// Khi người dùng thoát khỏi chương trình thì lưu lại danh sách các bài hát
PrivateSub Form_Unload(Cancel As Integer) Dim F As Long, i As Integer
F = FreeFile
Open "c:\SongList.txt" For Output As #F For i = 0 To lstSongList.ListCount - 1 Print #F, lstSongList.List(i) Next Close #F End End Sub '///---
PrivateSub lstSongList_Click()
FileHienTai = lstSongList.ListIndex
End Sub
'///--- '/// Thay đổi tương ứng đến vị trí mà người dùng thay đổi thanh gạt giả lập
PrivateSub scrSeekBar_Scroll()
frm4_14.wmpMain.Controls.currentPosition = scrSeekBar.Value
End Sub
'/// Điều chỉnh volume của loa
PrivateSub sldVolume_Click()
frm4_14.wmpMain.Settings.volume = sldVolume.Value
End Sub
'///--- '/// Cập nhật liên tục thời gian đã chơi file trên thanh gạt giả lập
PrivateSub tmrUpdate_Timer()
scrSeekBar.Value = Round(frm4_14.wmpMain.Controls.currentPosition)
End Sub