I-BEGO

dibagian ini ga bsa jalan...

"If GetParameters(VBA.Trim$(VBA.Command$)) Then"

mklum newby...

wah..ga ada kelanjutan nya nih...
ane bngg di bag diatas tuh..bsa kasih tau?

Saya kasi contoh saja:

misalnya kalau membuka Windows Explorer, ada buntut nya:
Explorer.exe /e,C:\
contoh lain nya, misalnya:
Conqueror.exe /NoStartup

Nah itu ekornya "/e,C:\" adalah parameter.
Sama saja seperti memanggil fungsi yang ada parameternya. Memanggil file exe juga bisa pakai parameter.

Jadi untuk memanggil misalnya "engine.exe" bisa ditambahkan parameter juga. Dan parameter itu bisa apa saja tergantung yang bikin.

>

Saya coba tambahkan ya om...
Dalam VB6 untuk mengambil parameter kita bisa menggunakan fungsi Command, parameter bisa diambil hanya oleh program yang dikirimi parameter tersebut. Misalnya, "YangManggil" berteriak ke "Dipanggil" dengan kata "Aktifkan" maka "Dipanggil" akan langsung aktif dan bilang OK boss saya aktif. Berikut contoh kodenya:

YangManggil.exe

Code: Select all

'Tambahkan 1 Command Button dan 1 TextBox
Private Sub Command1_Click()
Shell App.Path & "\Dipanggil.exe " & Text1
End Sub


Dipanggil.exe

Code: Select all

Private Sub Form_Load()
Dim Parameter$
Parameter = Command$
Select Case Parameter
    Case "Aktifkan"
        MsgBox "OK Boss saya aktif deh!!", vbInformation, Parameter
    Case Else
        MsgBox "Malas ah, cabut dulu ya...", vbInformation, Parameter
        Unload Me
End Select
End Sub


Coba diCompile dan taruh keduanya disatu folder.
Semoga bisa memberikan sedikit pencerahan

Post JBAlia telah mendapat kopi dari:

Kenjitsu

thank ya om...