Listing Program Laporan Akhir Windows Media Player Pada Visual Basic

Berikut Ini adalah  Listing Program Laporan Akhir Windows Media Player Pada Visual Basic

Private Sub Command1_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5

End Sub

Private Sub Command2_Click()

WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5

End Sub

Private Sub Command3_Click()

WindowsMediaPlayer1.fullScreen = True

End Sub

Private Sub Command4_Click()

a = List2.ListIndex

b = a

If a > -1 Then

List1.RemoveItem (a)

List2.RemoveItem (b)

Else

MsgBox "pilih file", vbCritical, "error"

End If

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

List1.AddItem File1.FileName

List2.AddItem Dir1.Path & "/" & File1.FileName

End Sub

Private Sub List1_Click()

List2.ListIndex = List1.ListIndex

WindowsMediaPlayer1.URL = List2

End Sub

Private Sub Option1_Click()

WindowsMediaPlayer1.settings.setMode "Loop", True

End Sub

Private Sub Option2_Click()

WindowsMediaPlayer1.settings.setMode "Loop", False

End Sub