[Tutor] Cara Membuat dialog Run VB6

[ChronoCross]

Hello,
saya member baru dsini, saya newbie di VB 6, saya mw ngeshare cara buat Kotak dialog Run, pertama-tama buat Form Standart Exe, trus buat:
Pencet Ctrl+T trus ceklis Microsoft Common Dialog Control trus apply dan close, ada deh tuh CommonDialog di bawah kiri...
3 Buah Button (tombol), CommonDialog dan 1 buah Text Box.

Button pertama ksh Captionnya Run, Button ke2 ksh Captionnya Browse dan Caption ke3 ksh Captionnya Exit.

di bagian tombol Run, click 2x trus Paste Code ini:

Code:

Private Sub Command1_Click()
Shell (CommonDialog1.Filename), vbNormalFocus

dibagian tombol Browse, click2x trus Paste Code ini:

Code:

Private Sub Command2_Click()
Dim ff As Integer
ff = FreeFile 'Sets to next available file number
With CommonDialog1
    .Filename = ""
    .Filter = "All files (*.*) |*.*|" 'Sets the filter
    .ShowOpen
End With
Text1.Text = CommonDialog1.Filename
End Sub

yang ke3 Bwt Exit

Code:

Private Sub Command3_Click()
End
End Sub

dah trus coba pencet F5 daaaaan
Selesai.

Maaf ya klo gk guna ane juga baru klas 2 SMP
Saya cuman mw ngeshare doang

[KataM]

wah omz,, ane juga lagi belajar VB juga

[ChronoCross]

(04-11-2011 05:01 PM)KataM Wrote:  wah omz,, ane juga lagi belajar VB juga

ane msh suram gan dan ane baru disini. mohon bimbingannya ^^

[Killu4]

Nice share bro,ane jg masih newbie di vb 6.

Bro mau tanya pas ane Play,terus pilih browse dan klik button Run koq Error yaa ?

Pesan Errornya seperti ini :

Code:

Run-time error '5'
Invalid procedure call or argument