Anda bisa membuat pemutar video sendiri dengan Visual Basic 6.0
Buat project standard exe lalu klik project -> komponen -> Windows Media Player
Lihat gambar di bawah ini:



klik tombol ok.

selanjutnya di toolbox akan terlihat lambang windows media player. Double klik gambar tersebut untuk membuat komponen windows media player tersebut ke form.

Setelah itu tambahkan Komponen DriveListBox, DirListBox, FileListBox,CommandButton dan Label. Selanjutnya aturlah backcolor dan forecolor untuk masing-masing komponen sehingga interface program anda akan terlihat seperti gambar di bawah ini:


Berikan kode seperti dibawah ini:


Private sFile As String

Private Sub Command1_Click()
  WindowsMediaPlayer1.openPlayer sFile
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()
  sFile = Dir1.Path & "\" & File1.FileName
  Label1.Caption = sFile
End Sub

Private Sub Form_Load()
  File1.Pattern = "*.dat;*.mpg"
End Sub 

tombol Run atau F5 pemutar video kita akan tampak seperti ini:



cari file video di komputer anda dengan cara mengklik drive dan folder beserta file nya.
setelah anda menemukan videonya klik pada kontrol file kemudian tekan tombol dengan tanda panah (>) aplikasi kita akan membuka windows media player. Lihat gambar di bawah ini:



Windows media player otomatis membuka dan memutar video kesukaan anda. Wah jangan sampai memutar video porno yang mirip artis atau video kekerasan disekolah or kampus ya.

Klo puter video bola piala dunia atau putar video clip lagu keong racun nya sinta and jojo boleh juga he..he..he :)


download project klik di sini

Posted in: Visual Basic