- buka aplikasi visual basic 6.0
- nanti ada pilihan, pilih saja standar.exe
- sekarang tambahkan komponen commandbutton 2,commandialog 1,MMcontrol 1,l dan abel 2
- cara mencari komponen commandialog dan MMcontrol caranya CTRL+T dan cetang komponen microsoft coommondialog 6.0 dan microsoft multimedia control 6.0 setelah itu OK
- atur propertinya seperti ini

- copas script di bawah ini
- baru F5 untuk menjalankan programnya
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = ommonDialog1.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
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = ommonDialog1.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


0 comments:
Posting Komentar