关于控件的可用性设置？

qfb　发表于：2014-01-21 11:04:18 　

我在一个窗体中有很多个控件，有可能是text 、label、combobox等，我需要在点击某一控件时让有些控件可用（enabled=true)，而点击另一控件时让另外一些控件可用,可不可以写一个函数，在点击时直接调用该函数（函数参数不固定：因为有时点击一个控件需要让某4个控件可用，而点另一控件时需要让某7个控件可用之类）。请高手指点，谢谢！非常感谢！

Top

zhaoyoulong 发表于：2014-01-21 11:29:50

public function CtlEnabel(FmNam as string ,CtlName() as string,Optional BoolEnabel as boolean=true)

dim ctl as Control

dim CtlNameStr as string

CtlNameStr =Join(CtlName(),";")

for each ctl in forms(FmNam ).form

if replace(CtlNameStr &";",ctl.name,"")<>CtlNameStr then ctl.enabel=BoolEnabel

end function

Top

落尘_小新发表于：2014-01-21 11:46:37

Public Sub llx(Formname As String, Controlsname As String, Optional kyf As Boolean = True)
Kjsz = Split(Controlsname, ";")
For Each A In Kjsz
Forms(Formname).Controls(A).Enabled = kyf
Next

End Sub

调用示例:Call llx("窗体1", "Text1;Text4", False)

注意,多个控件之间用";"分号隔开.

Top

zhaoyoulong 发表于：2014-01-21 13:33:26

2楼正确，我的刚好把意思写反了！