Question

vb 循环问题

让一个控件控制所有控件，程序运行时所有控件enable=FALSE 当单击那个控件时其他控件的enable=TRUE 再单击那个控件其他控件的enable=FALSE，如此循环。请问谁可以告诉我吗？请写出详细的做法

Answer 1

在你的控制控件的click事件中编写“要控制控件的名称.enable=trun/false”你说的循环可以通过开关控制（即通过一个变量判断应该执行什么代码）
如：
Private Sub Command1_Click()
If Command2.Enabled = False Then Command2.Enabled = True Else Command2.Enabled = False
End Sub
如果想控制多个同样的控件可以把这些控件编组，用index控制，如果是不同控件那只能逐个控制了。

Answer 2

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

Private Sub Text1_Click()
If Text2.Enabled = False Then
Text2.Enabled = True '或更多的
Else
Text2.Enabled = False
End If
End Sub

Answer 3

Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Form1
If ctl.Name <> "Command1" Then
ctl.Enabled = Not ctl.Enabled
End If
Next
End Sub

Answer 4

Dim k As Integer
Private Sub Command1_Click()
Dim ob As Control
For Each ob In Me.Controls
If k = 1 Then
ob.Enabled = False
Else
ob.Enabled = True
End If

Next
k = -k
Command1.Enabled = True
End Sub
Private Sub Form_Load()
k = 1
End Sub
更多VB代码请参阅我的博客：http://hi.baidu.com/zgmg/