Question

vb窗体刚显示时文本框不能输入？

设计了一个比较复杂MDI的程序，运行时，打开一个子窗体，里面有很多文本框和按钮，文本框都放在一个框架了面。刚打开时，所有文本框单击后都不响应，不能输入。只有单击了某些特定的按钮后，文本框才能响应鼠标单击，进行输入。

Answer 1

Option Explicit

Private Sub Command1_Click()
    Frame1.Enabled = True
End Sub

Private Sub Command2_Click()
    Frame1.Enabled = False
End Sub

Private Sub Form_Load()
    Frame1.Enabled = False
End Sub

应该是要求这样的效果吧？

追问

不是这样的。框架的Enabled属性一直是True。在单击其他按钮时，并没有改变它的值。可能是系统的问题，或者是控件拥有焦点的次序问题吧。我自己再好好想想。还是谢谢你啦！

追答

Option Explicit

Private Sub Command1_Click()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
       If ctrl.Tag = "ABCDEFG" Then ctrl.Enabled = True
    Next
End Sub

Private Sub Command2_Click()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
       If ctrl.Tag = "ABCDEFG" Then ctrl.Enabled = False
    Next
End Sub

把需要动态控制的编辑框的TAG属性设置为ABCDEFG即可。