Change Your Avatar -------------->
admin
Rank : Admin
My Pets : 
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia
 |  Subject: Aplikasi Run Dengan VB6  Wed 27 Oct 2010, 09:08 | |
| - Code:
-
Private Sub cmdClose_Click()
End
End Sub
Private Sub cmdOpen_Click()
With comdlg
.ShowOpen
txt.Text = .FileName
End With
End Sub
Private Sub cmdRun_Click()
On Error GoTo err
Shell txt.Text, vbNormalFocus
err:
End Sub
Private Sub Form_Load()
comdlg.Filter = ".exe|*.exe"
End Sub
Aplikasi ini sama seperti run yang ada di komputer anda.... tak ada perbedaan sama sekali soal menggunakannya ... download klik link di bawah.... [You must be registered and logged in to see this link.] |
|
