vb 如何批量修改控件的属性

[juanzi_86]

我的vb程序有很多form，每个form里有很多command，
我想按一个按钮之后，让所有的command的enabled属性都为true，这个怎么实现呢？

[dbcontrols]

对于已经可以看见的窗体，可以用下列代码：

Private Sub Command1_Click()
    Dim Frm As Form
    Dim Cmd As Control
    For Each Frm In Forms
        For Each Cmd In Frm.Controls
            If TypeOf Cmd Is CommandButton Then
                Cmd.Enabled = True
            End If
        Next
    Next
End Sub

Private Sub Form_Load()
    Form2.Show
End Sub

对于不可见的，可以通过设置一个全局的布尔变量，Form_Load里面设置

[juanzi_86]

谢谢楼上啦 明天去办公室试试~~