temonsoejadi

mata kuliah pemrogram komputer with bapak Hengki Rahmanto, ST. M.eng

Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
– Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
– 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

pertama- tama buat desain seperti yang diatas ini.

kemudian isi tabel propertis seperti disamping, barulah terakhir di masukan code programnya….

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

jika gak mau repot download program yang sudah jadi disini

DOWNLOAD DISINI

semoga bermanfaat.