怎样才可以使当前窗口的所有控件失效![紧急在线求助]

Airin

我现有一窗体,我需要在打开时的加载事件或打开事件中写入符合标题要求的代码,请问各位大虾,我该怎么做?谢谢指导.

paul16

好象要一个一个的设定！  enable=false

CJB_2001

不明白,都没有用,打开干嘛?

Airin

谢谢2楼斑竹兄的回复,有没有一次性的?因为我的这个窗口实在控件太多.写起来非常的非常的麻烦.当然也可能某一类型的一次性搞定也可以,比如文本框类型,或组合框类型什么的.

回3楼的兄弟,因为我需要设置用条件来显示.

[此贴子已经被作者于2004-3-5 13:49:27编辑过]

chenghai

把下面这段代码写入窗体的加载事件中：

Private Sub Form_Load()
  Dim Ctrl As Control
  For Each Ctrl In Me.Controls
     Ctrl.Enabled = False
  Next
End Sub

Airin

谢谢老土哥,请问为什么要用到Next?另外,可以将上面代码作下注释吗?

Airin

我放入到加载事件中,出现以下错误提示,我的版本是XP简体的.

chenghai

呵呵，忘记一点了：标签等是没有Enabled属性的，你的窗体应该有不少的标签的，等一下，我重新写一段代码上来。

chenghai

用下面这段代码吧。如果还出现上述错误，说明你的窗体设计得比较复杂，还有一些其他控件在内。

Private Sub Form_Load()

  Dim Ctrl As Control
  For Each Ctrl In Me.Controls

    Select Case Ctrl.ControlType
    Case 100, 101, 102, 103, 118  ' 常见的无Enabled属性的控件应该都包括在内了吧。

    Case Else
      Ctrl.Enabled = False
    End Select

  Next

End Sub

Airin

为什么要加上NEST呀?谢谢土哥.