MUSIK PLAYER DENGAN VISUAL BASIC

MUSIK PLAYER DENGAN VISUAL BASIC

Selamat mencoba ya sobat, ini yang terbaru !!!!!!!! 

jangan lupa, microsoft multimedia control di mbil dari CTRL + T, tandai lalu OK....

microsoft multimedia control name nya mm

Private Sub cmdnext_Click()
    mm.Command = "next"
End Sub

Private Sub cmdpause_Click()
    mm.Command = "pause"
End Sub

Private Sub cmdplay_Click()
    
    mm.FileName = Dir.Path & "\" & File.FileName
    With mm
    .Command = "close"
    .Command = "Open"
    .Command = "stop"
    .Command = "play"
    End With

    Label3.Caption = File.FileName
End Sub

Private Sub cmdprev_Click()
    mm.Command = "prev"
End Sub

Private Sub cmdstop_Click()
   mm.Command = "stop"
End Sub

Private Sub Dir_Change()
      File.FileName = Dir.Path
End Sub

Private Sub Drive_Change()
    On Error Resume Next
    Dir.Path = Drive.Drive
End Sub

Private Sub File_DblClick()
    With mm
     .Command = "close"
    .FileName = Dir.Path & "\" & File.FileName
    .Command = "Open"
    .Command = "play"
    End With
    Label3.Caption = File.FileName
End Sub

Private Sub File_KeyPress(KeyAscii As Integer)
    With mm
     .Command = "close"
    .FileName = Dir.Path & "\" & File.FileName
    .Command = "Open"
    End With
    If KeyAscii = 13 Then
        mm.Command = "play"
    End If
    Label3.Caption = File.FileName
End Sub

Private Sub File_PathChange()
    If mm.Command = "stop" Then
        File.FileName = "next"
        mm.Command = "play"
    End If
End Sub

Private Sub Form_Load()

    File.FileName = "*.MP3"
    Me.Top = 2700
    Me.Left = 6000
    mm.Visible = False

If mm.Command = "play" And mm.Command = "stop" Then
        File.FileName = File.DragIcon
        mm.Command = "play"

    End If
   
    mm.Wait = False
    mm.Shareable = False
    mm.NextEnabled = True
   
   
End Sub


Private Sub Timer1_Timer()
    alex.Visible = Not alex.Visible
End Sub