Memanggil Aplikasi dengan Pencarian ...
Private Sub Command1_Click()
Dim panggil As Integer
panggil = Shell("calc.exe", vbMaximizedFocus)
End Sub
atau dengan coding di bawah ini ...
Private Sub Command1_Click()
a = Shell("calc.exe", vbMaximizedFocus)
End Sub
atau dengan coding di bawah ini ...
Memanggil Aplikasi dengan Link Address ...
End Sub
Cara-cara di atas hasilnya sama dan sangat mudah digunakan ...
Pilih cara coding yang mana aja yang disukai ...
Selamat berkarya dan berkreasi ^_^
Private Sub Command1_Click()
Dim panggil As Integer
panggil = Shell("calc.exe", vbMaximizedFocus)
End Sub
atau dengan coding di bawah ini ...
a = Shell("calc.exe", vbMaximizedFocus)
End Sub
Memanggil Aplikasi dengan Link Address ...
Private Sub Command1_Click()
a = Shell("C:\Windows\System32\calc.exe", vbNormalFocus)End Sub
Cara-cara di atas hasilnya sama dan sangat mudah digunakan ...
Pilih cara coding yang mana aja yang disukai ...
Selamat berkarya dan berkreasi ^_^
This post first appeared on Iqbalindocomputama Komputer & Laptop Servis, please read the originial post: here