FAQ : Cara Memanggil Aplikasi Lain Di PC Dengan Visual Basic 6.0

FAQ : Cara Memanggil Aplikasi Lain Di PC Dengan Visual Basic 6.0 | Visual Basic Magazine - Visual Basic 6.0 juga dilengkapi kemampuan mengeksekusi/menjalankan aplikasi tertentu diluar project yang berada di PC baik itu yang bersifat portable maupun yang telah terinstall di PC kita.

Dengan perintah "shell" kita bisa menjalankan aplikasi lain diluar project yang kita buat. Berikut ini sedikit contoh yang mudah-mudahan bisa dijadikan referensi untuk sobat semua.

Contoh 1 :

Aplikasi yang ingin dijalankan berada dalam sebuah folder yang terletak didalam directory/folder project seperti gambar berikut ini :

Sebagai contoh saya meletakkan coding pada sebuah Command Button, berikut contoh coding untuk menjalankan aplikasi seperti analogi gambar diatas :

Private Sub Command1_Click() On Error GoTo notfound: '--------------------------------------------------------- Shell App.Path & "\tools\nama_aplikasi.exe", vbNormalFocus '--------------------------------------------------------- notfound: If (Err.Number = 76) Then MsgBox "Aplikasi tidak ditemukan", vbInformation End If End Sub

NOTE :

1. tools = nama folder tempat aplikasi berada (silakan sesuaikan)
2. nama_aplikasi.exe = aplikasi yang ingin dijalankan (silakan sesuaikan)

Contoh 2 :

Berikut ini contoh coding untuk mengakses aplikasi yang berada di di directory lain, misalnya aplikasi tersebut berada di D:\tools\aplikasi.exe. Jadi kita tinggal merubah path location di coding saja, seperti berikut ini :

Private Sub Command1_Click() On Error GoTo notfound: '--------------------------------------------- Shell "D:\tools\aplikasi.exe", vbNormalFocus '--------------------------------------------- notfound: If (Err.Number = 76) Then MsgBox "Aplikasi tidak ditemukan", vbInformation End If End Sub

Contoh 3 :

Berikut ini cara memanggil aplikasi yang telah terinstall di PC kita. Pastikan sobat tahu pasti dmana lokasi exe program yang ingin di jalankan. Sebagai contoh saya akan memanggil program Microsoft Office Word 2007 melalui program VB :

Private Sub Command1_Click() On Error GoTo notfound: '------------------------------------------------------------ Shell "C:\Program Files\Microsoft Office\Office12\WINWORD.EXE", vbNormalFocus '------------------------------------------------------------- notfound: If (Err.Number = 76) Then MsgBox "Aplikasi tidak ditemukan", vbInformation End If End Sub

Silakan download contoh programnya melalui link berikut ini :

Semoga contoh-contoh sederhana ini bisa bermanfaat buat sobat semua. Sekian posting saya berjudul FAQ : Cara Memanggil Aplikasi Lain Di PC Dengan Visual Basic 6.0, selamat mencoba.