Membuka program melalui Visual Basic 6, plus menutup kembali

Iyess.. kalo bisa buka harus bisa tutupnya, jangan sampe udah buka terus melongo ntar kemasukan lalat tuh, tutorial kali ini akan membahasbagai mana cara membuka atau memanggil program atau file melalui visual basic 6, banyak manfaat dari tehnik ini, misalnya ingin membuat file help dari notepad atau program lain, maka VB bisa memanggil file tersebut kemudian terbuka, setelah terbuka bila tidak akan digunakan lagi bisa ditutup kembali melalui VB juga.

Ada beberapa hal yang harus kita ketahui terlebih dahulu, pertama lokasi atau path dari file yang akan dipanggil, kalau kita memanggil seperti notepad.exe biasanya sudah jelas lokasinya di c:\windows\system32\notepad.exe, tetapi bagai mana jika memanggil file katakanlah contoh.txt, bila bingung atau terlalu panjang alamatnya karena mungkin letaknya di folder, sub sub sub, klik kanan saja pada file tersebut pilih properties, lalu di Location copy tuh addressnya, ini dilakukan kalau lokasi contoh.txt di luar folder project VB kita, kalau masih dalam satu folder bisa kita beri app.path kemudian nama file atau nama folder jika ada sub folder. Ini lebih baik biar fleksibel bila dipindah-pindah.

Kemudian untuk menutup program juga haris mengetahui identitasnya, dalam hal ini adalah tittle atau judul contohnya contoh – notepad,  untuk tittle lihat judul yang ada pada pojok atas jendela (setting default) dan ini harus sama, kalo ngga sama ngga bakal ketutup tuh. teori bikin bingung langsung ke TKP aja, buka VB, lalu standard exe:

Buatlah desain dengan command button 2, desain seperti di bawah ini:

 

Lalu ketikan sintaks dibawah ini:
'#www.semesta-abu.co.nr
'Jika ingin share kembali mohon tidak dihilangkan link ini
'#semoga bermanfaat
'membuka aplikasi
Private Declare Function ShellExecute _
    Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation _
   As String, ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Dim X As String
'menutup aplikasi
   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
   Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Private Const WM_QUIT = &H12
Sub link()
Dim link As Long
link = ShellExecute(0, vbNullString, App.Path & "\contoh.txt", "", "", vbNormalFocus)
'membuka file txt dengan lokasi c:\
End Sub
Private Sub Command1_Click()
Call link
End Sub

Private Sub Command2_Click()
     Dim sTitle As String
     Dim iHwnd As Long
     Dim ihTask As Long
     Dim iReturn As Long
     sTitle = "contoh - notepad"
     ' ini bisa diganti dengan tittle yang ada di aplikasi yang ingin ditutup
     iHwnd = FindWindow(0&, sTitle)
     iReturn = PostMessage(iHwnd, WM_QUIT, 0&, 0&)
     MsgBox "Program sudah ditutup", vbInformation, "Berhasil"
End Sub

Setelah selesai, simpan ke dalam sebuah folder, dan buat file contoh menggunakan notepad, simpan di tempat yang sama dengan project, lalu jalankan selesai deh
Project VB bisa didownload disini 

Semoga bermanfaat.