Pemrograman

Jika gan ingin melihat hasilnya sebelum membuatnya.

Lanngkah-langkahnya sebagai berikut

1. Tekan ctrl+t kemudian pilih Windows Media Player

2. Buatlah 1 wmp, 1 Drive, 1 Dir, 1 File, 2 Listbox.

ingat listbox 2 ada di atas listbox 1

3. Di project file 1 pilih pattern tuliskan *.flv;*.3gp
4. Klik 2x pada wmp tuliskan
  Private Sub WindowsMediaPlayer1_EndOfStream(ByVal Result As Long)
List1.ListIndex = List1.ListIndex + 1
List2.ListIndex = List2.ListIndex + 1
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
End Sub
5. Klik 2x pada Drive tuliskan
   Private Sub  Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
6. Klik 2x pada Dir tuliskan
  Private Sub   Dir1_Change()

File1.Path = Dir1.Path

   End Sub
7. Klik 2x pada File tuliskan
  Private Sub   file1_DblClick()
List1.AddItem Dir1.Path & "\" & File1.FileName
List2.AddItem File1.FileName
End Sub
8. Klik 2x pada Listbox 2 tuliskan
Private Sub   List2_DblClick()
List1.ListIndex = List2.ListIndex
WindowsMediaPlayer1.URL = List1.List(List1.ListIndex)
  End Sub
9. Selamat mencoba jangan lupa di follow.

Gan juga bisa download THEMES ISLAMIC Windows 7 klik di sini.