if isRunningDariVB = true... Posted on : 11/21/2007 05:39:00 PM

Kadang pas lagi ndevelop code, kita suka masang2 msgbox di control2 seperti label, image, ato object2 lain utk melakukan pengecekan code. Yah, misalnya utk ngecek lebar form kah, ato ngecek lebar kolom listview kah, ato ngecek hal2 lain yg ngga bisa dilakukan tanpa meng-compile (ato pake immediate window).. Kegiatan model gini umum disebut "meng-capture nilai property control pas runtime" (ini istilah yg aku buat sendiri sih, ngga resmi n ngga ilmiah xixixi). Fungsinya cuman utk menunjang konstruksi aplikasi aja, bukan utk ditujukan ke interaksi end-user...

Nah, kadang pas aplikasi udah kelar, kita lupa ngapus tu msg-msgbox. Akhirnya, pas ada user yg ngga sengaja nge-klik control yg tadinya kita pasang msgbox itu ~ bisa-bisa nongol deh tu msgbox. Huh..., malu-maluin aja...

Sebenarnya, teknik meng-capture property control pake msgbox itu ngga terlalu bagus utk dibiasakan... Kita bisa manfaatin immediate window sbg output. Misal biasanya kita menuliskan code begini

MsgBox "FChild.Width = " & FChild.width & vbNewLine & "FChild.Height = " & FChild.Height

bisa kita ganti jadi :

debug.print "FChild.Width = " & FChild.width & vbNewLine & "FChild.Height = " & FChild.Height

fungsinya sama!

cuma, klo pake debug.print - informasi width/height yg kita inginkan itu munculnya di immediate window. Immediate Window? Makanan jenis apa itu?? Coba tekan Ctrl-G. Ntar muncul tuh form nya.

Tapi,

ada kalanya ngga keren jg make debug.print. Nggak eye-catching. Lagian, pasti njengkelin klo di event-event sebelumnya kita jg munculin debug.print, bakal penuh tu immediate window n mo nyari nilai property control pas runtime akan makin menjengkelkan. ribet.

... kembali ke metode msgbox ? ...

Boleh...
(ntar jangan lupa di-bersihin code nya ya klo dah mo mbikin EXE)


... wah form ku ratusan, Q. kadang aku butuh delivery EXE scr cepat ke client utk demo-in progress ku... gimana ya. ngga ada waktu utk ngebersihin code ku. kmu ada teknik lain?...


ADA!

(tapi, sebelumnya, janji dulu... pas aplikasimu bener2 mau kmu launching ~ bukan sekedar prototyping or demoin progress thox ~ kmu tetep harus ngebersihin code mu dari sampah2 code.)

... iya deh, aku janji...


OKE

begini,
coba bikin function ini :

Public Function IsRunningDariVB() As Boolean
On Error GoTo Hell
Debug.Print 1 / 0
IsRunningDariVB = False
Exit Function

Hell:
IsRunningDariVB = True
End Function

trus, utk contoh cara pemakaiannya :

Private Sub Label1_click()
if isRunningDariVB = true then
msgbox "FChild.Width = " & FChild.width & vbNewLine & "FChild.Height = " & FChild.Height
end if
End Sub


udah, beres. Klo u ngeklik Label1 pas ngompile biasa dari VB, akan muncul msgboxnya. Tapi, pas u udah bikin EXE trus u coba jalanin tu EXE n coba ngeklik Label1 ~ ngga bakal muncul messagebox apa-apa..

gimana?

keren kan?

Abang Qvezst emang tidak diragukan lagi ke-cakep-an face nya.... xixixi


Wassalam,


Qvezst.

PS : Ingat janjimu utk ngebersihin code pas u bener-bener siap nge-deploy aplikasi mu. Awas klo nggak!