对窗体上控件的控制
例:
vb:public sub gsLockControl(ByVal pfrmForm As Form,ByVal pbolLock As Boolean,ParamaArray pctlControl() As Variant)
调用:
call gslockcontrol(wfrmform,false)
此时,窗体上控件都不可用.
call gslockcontrol(wfrmform,true,imtpassword,imtkubun,imkakunin)
此时,传来的控件被激活.
控件:
如textbox,button......