VISUAL BASIC : Tip Menjalankan Program Laen dengan Berbagai Jendela

Pada tips visual basic kali ini, kita akan mempraktekkan cara menjalankan program lain (seperti Notepad, Paint, dan lainnya) dengan berbagai macam model jendelanya, seperti maximized, minimized, normal, atau bahkan menyembunyikan jendelanya alias program tersebut akan berjalan di belakang layar. Juga bisa ditentukan apakah jendela program itu akan fokus atau tidak fokus.

Kita akan membuat contoh programnya dulu, di sini saya membuat sebuah project Standard Exe di Visual Basic. Kontrol-kontrolnya terdiri dari: CommandButton (cmdJalankanProgram), Textbox (txtProgram), dan ComboBox (cboModelJendela). Tampilannya seperti gambar di atas. Lalu untuk kode-kodenya adalah sebagai berikut:
Option Explicit

Private Enum enumJenisJendela
Normal_dan_Fokus = vbNormalFocus
Normal_Tidak_Fokus = vbNormalNoFocus
Maximized = vbMaximizedFocus
Minimized_dan_Fokus = vbMinimizedFocus
Minimized_Tidak_Fokus = vbMinimizedNoFocus
SembunyikanJendela = vbHide
End Enum

Private Sub JalankanProgram(sProgramPath As String, JenisJendela As enumJenisJendela)
On Error GoTo Er:
'cek jika file program tersebut tidak ada
If Dir(sProgramPath) = "" Then
MsgBox "File Tidak Ditemukan: " & sProgramPath
Exit Sub
End If
'jalankan program
Shell sProgramPath, JenisJendela
Exit Sub
Er:
MsgBox "Error menjalankan program " & sProgramPath & vbCrLf & _
"Penjelasan: " & Err.Description, , "Error"
End Sub

Private Sub cmdJalankanProgram_Click()
If cboModelJendela.ListIndex = 0 Then JalankanProgram txtProgram.Text, Normal_dan_Fokus
If cboModelJendela.ListIndex = 1 Then JalankanProgram txtProgram.Text, Normal_Tidak_Fokus
If cboModelJendela.ListIndex = 2 Then JalankanProgram txtProgram.Text, Maximized
If cboModelJendela.ListIndex = 3 Then JalankanProgram txtProgram.Text, Minimized_dan_Fokus
If cboModelJendela.ListIndex = 4 Then JalankanProgram txtProgram.Text, Minimized_Tidak_Fokus
If cboModelJendela.ListIndex = 5 Then JalankanProgram txtProgram.Text, SembunyikanJendela
End Sub

Private Sub Form_Load()
cboModelJendela.AddItem "Normal dan Fokus"
cboModelJendela.AddItem "Normal, Tidak Fokus"
cboModelJendela.AddItem "Maximized"
cboModelJendela.AddItem "Minimized dan Fokus"
cboModelJendela.AddItem "Minimized, Tidak Fokus"
cboModelJendela.AddItem "Sembunyikan Jendela"
cboModelJendela.ListIndex = 0
End Sub

ref : http://www.tipsdaninfoku.co.cc/2010/06/tips-visual-basic-cara-menjalankan.html