Membuat Run dengan VB6

26 11 2009
Posting kali ini, saya coba memberikan cara membuat program Run dengan menggunakan Microsoft Visual Basic 6. Program ini sangat sederhana, mudah-mudahan dengan adanya program ini mampu menambah ilmu pemrograman khususnya pada Visual Basic.
    1. Jalankan Microsoft Visual Basic 6.0
    2. New > New Project > Standar EXE
    3. Project > Components > Microsoft Common Dialog Control 6.0
    4. Untuk menjadikan form seperti tampilan XP, menggunakan osenxpsuite2006.ocx yang telah disertakan pada source code.
    5. Project > Components > Browse…buka osenxpsuite2006.ocx
    6. Tambahkan tool Label, 3 Command Button, TextBox dan CommonDialog pada form.

    1. Isikan properties dari masing-masing tool

  1. Copas code beriktu ke dalam form
  2. Private Sub Form_Load()
    comdlg.Filter = “.exe|*.exe”
    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 cmdClose_Click()
    End
    End Sub

  3. Kemudian, jalankan program atau F5
  4. Open, “C:/Windows/Notepad.exe”, atau ketikan pada TextBox “Notepad”
  5. Run
      Download source code

disini