mohon maaf disini tidak di sertakan link VB nya, jadi anda cari saja di Google ya :D hehe
Oke langsung saja simak langkah-langkah berikut :
1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda.
4. Aturlah properties masing-masing kontrol seperti dibawah ini :
5. kemudian ketikkan kode/listing/script program dibawah ini :
Private Sub Command1_Click()On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub
Private Sub Command2_Click()
End
End Sub
6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan...
:) nice gan, nih udh ane kunjungi.. :D
ReplyDeleteTerimakasih gan atas kunjungannya ,, you da real MPV ;-( ,, :d hehe . .
Delete