


Còn đây là bài hướng dẩn nè

Moderator: vietluyen
Bài 3 : Sử dụng OCX msdxmXin lỗi mọi người, mấy ngày naynly bận quá, đến nỗi không có thời gian viết blog nữa
, nhưng củng cố gắng viết tiếp đây !
Code: Select all
Private Sub Form_Load() 'Mở bài nhạc với đường dẩn bất kì mdpVideo.Open ("D:\Music\Only Love.mp3") End Sub
Code: Select all
Private Sub CmdPlay_Click() mdpVideo.Play End Sub Private Sub CmdPause_Click() mdpVideo.Pause End Sub Private Sub CmdStop_Click() mdpVideo.Stop End Sub
Code: Select all
Private Sub hsVolume_Scroll( mdpVideo.Volume = hsVolume.Value End Sub
Code: Select all
Private Sub hsBalance_Scroll() mdpVideo.Balance = hsBalance.Value End Sub
Code: Select all
Private Sub chkMute_Click() mdpVideo.Mute = chkMute.Value End Sub
Code: Select all
Private Sub hsPosition_Scroll() mdpVideo.CurrentPosition = hsPosition.Value End Sub
Code: Select all
Private Sub TmrPosition_Timer()On Error Resume Next With hsPosition .Max = mdpVideo.Duration .Value = mdpVideo.CurrentPosition 'doi ra thoi gian Duration Dim Phut, Giay As Integer Phut = mdpVideo.Duration \ 60 Giay = mdpVideo.Duration - Phut / 60 'doi ra thoi gian Position Dim P, G As Integer P = mdpVideo.CurrentPosition \ 60 G = mdpVideo.CurrentPosition - P / 60 'In ra label LblDuration.Caption = "Duration : " & Phut & ":" & Left(Giay, 2) LblPosition.Caption = "Position : " & P & ":" & Left(G, 2) End WithEnd Sub
Code: Select all
Public Sub addMultiFileSub()'C = CommonDialog'List1 = ListBox C.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect C.Filter = "Multimedia files (*.mp3;*.wav;*.mid)|*.mp3;*.wav;*.mid|All Files (*.*)|*.*" C.MaxFileSize = 10000'Kích thước bộ nhớ lưu số lượng bài hát C.ShowOpen If C.Filename = "" Then Exit Sub Dim a As Variant Dim P As Integer a = Split(C.Filename, vbNullChar) If UBound(a) = 0 Then List1.AddItem C.Filename Else For P = 1 To UBound(a) If Right(a(0), 1) <> "\" Then a(0) = a(0) & "\" List1.AddItem a(0) + a(P) Next End If C.Filename = ""End Sub
Mở một file và một list nói thật chẳng khác gì nhau cả.bactungnd wrote:Xin lỗi nếu làm phiền nhiều quá nhưng bài viết của bạn chỉ nói đến mở 1 File chứ chưa nói đến Playlist , và chờ đợi bài hướng dẫn tiếp theo lấu quá