问:让一个控件控制所有控件,程序运行时所有控件enable=FALSE 当单击那个控件时其他控件的enable=TRUE 再单击那个控件其他控件的enable=FALSE,如此循环。请问谁可以告诉我吗?请写出详细的做法
http://zhidao.baidu.com/question/151869393.html#here
我的回答:
Dim k As Integer
Private Sub Command1_Click()
Dim ob As Control
For Each ob In Me.Controls
'If TypeName(ob) <> "CommandButton" Then ob.Enabled = False
If ob.Name <> "Command1" Then
If k = 1 Then
ob.Enabled = False
Else
ob.Enabled = True
End If
End If
Next
k = -k
'Command1.Enabled = True
End Sub
Private Sub Form_Load()
k = 1
End Sub
Private Sub Command1_Click()
Dim ob As Control
For Each ob In Me.Controls
'If TypeName(ob) <> "CommandButton" Then ob.Enabled = False
If ob.Name <> "Command1" Then
If k = 1 Then
ob.Enabled = False
Else
ob.Enabled = True
End If
End If
Next
k = -k
'Command1.Enabled = True
End Sub
Private Sub Form_Load()
k = 1
End Sub
本文转自 bilinyee博客,原文链接:
http://blog.51cto.com/215363/911071
如需转载请自行联系原作者