遍历窗体控件，如果是按钮控件，就enable＝false，怎么写？

[yroader]

如题

[tztz520]

Private Sub Command2_Click()
Dim ob As Control
For Each ob In Me.Controls
If TypeName(ob) = "CommandButton" Then ob.Enabled = False
Next
End Sub

[happy_sea]

来晚了。同意楼上。

[yroader]

那如何判断是当前点击的控件，我希望当前点击的控件还是true

[tztz520]

\\那如何判断是当前点击的控件，我希望当前点击的控件还是true\\\

这样处理不对吧.如果当前点击的还是true,那其它的是点击不了的,有什么用呢

[yroader]

是这样的需求阿
工业上用的
n个buttom，最 开始都可以点击，点击一个后，其他都不能点击，要待这个再次点击（回位，就像开关一样的），其他才可以点击，回到原始位置。

[tztz520]

'判断一下就可以了.

Private Sub Command2_Click()
Dim ob As Control
For Each ob In Me.Controls
If TypeName(ob) = "CommandButton" And ob.Name <> Command2.Name Then ob.Enabled = False
Next
End Sub