Panggil Aplikasi (*.exe) Pendukung dengan code VB 6.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Beberapa waktu yang lalu saya mendapat e-mail berisi pertanyaan yang intinya adalah bagaimana cara memanggil Aplikasi lain dari aplikasi utama.

Misalnya kita memiliki tiga buah aplikasi :

1. Aplikasi Penjualan (d:\jual-beli\penjualan\penjualan.exe)
   
2. Aplikasi Pembelian (d:\jual-beli\pembelian\pembelian.exe)
3. Aplikasi Stok (d:\jual-beli\stok\stok.exe)

Ketiga aplikasi tersebuat akan saya panggil dari Aplikasi Utama.

Langkah pertama tentunya menyiapkan aplikasi-apliakasi yang akan di panggil, apabila belum dijadikan file executable, harus dijadikan file executable terlebih daulu, caranya dapat disimak disini

Buka Aplikasi utama kita (bila perlu buat project baru) tambahkan sebuah form dan sebuah module. Tambahkan 3 buah command dan copy-paste code dibawah ini :

Private Sub Command1_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\penjualan\penjualan.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub


Private Sub Command2_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\pembelian\pembelian.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub


Private Sub Command3_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\stok\stok.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub

---

Sebelumnya COPAS code windows API dibawah ini dalam module yang sudah kita tambahkan  dalam project.

Public 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
Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1

Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5            
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_OOM = 8                     
Public Const SE_ERR_SHARE = 26

Public Const STYLE_NORMAL = 11

Juga code dibawah ini dalam module yang sama.

Public Sub errhandling()
        Select Case result
            Case 0
                MsgBox "Out of memory or resources", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_FILE_NOT_FOUND
                MsgBox "File not found", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_PATH_NOT_FOUND
                MsgBox "Path not found", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_BAD_FORMAT
                MsgBox "Invalid .EXE file", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_ACCESSDENIED      '  access denied
                MsgBox "File access denied", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_ASSOCINCOMPLETE
                MsgBox "Invalid file name association", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDEBUSY
                MsgBox "DDE busy", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDEFAIL
                MsgBox "DDE transaction failed", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDETIMEOUT
                MsgBox "DDE timeout", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DLLNOTFOUND
                MsgBox "DLL not found", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_NOASSOC
                MsgBox "No associated application", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_OOM                  '  out of memory
                MsgBox "Out of memory", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_SHARE
                MsgBox "Sharing violation", vbOKOnly Or vbExclamation, "Error"
            Case Else
                MsgBox "Unknown error " & result, vbOKOnly Or vbExclamation, "Error"
        End Select
End Sub

Demikian. Semoga bermanfaat.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Panggil Aplikasi (*.exe) Pendukung dengan code VB 6.0, Diterbitkan oleh scodeaplikasi pada Selasa, 15 Desember 2009. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.