|
问：让一个控件控制所有控件，程序运行时所有控件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 |
本文转自9pc9com博客，原文链接： http://blog.51cto.com/215363/911071 如需转载请自行联系原作者
