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:
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:
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
Tidak ada komentar:
Posting Komentar