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即可。