Buatlah form seperti tampak gambar disamping berikut :
Object :
Command1
Commondialog1 (tambahkan komponennya)
Windowsmediaplayer1 (tambahkan komponennya)
Klik dua kali command1
Tulis coding sbb:
Private Sub Command1_Click() CommonDialog1.Filter = "*.wmv|*.mp3"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Klik Command1
Cari file musik atau film di komputer anda Klik dua kali nama file target atau klik open.
Selamat Mencoba…….
0 coment:
Post a Comment
Jadilah yang pertama untuk berikan komentar yang membangun.