做了两个单选框,每个单选框后面有TEXT用于输入数据进行数据库查询,但我的目的是选一个单选框光标停在后面的那个TEXT里,并且另一个TEXT为灰色不可输入,我写的代码如下,好象不行
.....
If Option1.Value = True Then
Text1.SetFocus
Text2显示灰色用什么
........
ElseIf Option2.Value = True Then
Text2.SetFocus
Text1显示灰色用什么
......
End If
If Option1.Value = True Then
text1.enabled=true
Text1.SetFocus
Text2.enabled=false
........
ElseIf Option2.Value = True Then
text2.enabled=true
Text2.SetFocus
Text1.enabled=false
......
End If
If Option1.Value Then
将Text1设置成正常。
text1.enabled=true
text1.backcolor=&H80000005
将Text2设置为不可用
text2.enabled=false
text2.backcolor= &H80000004
Text1.SetFocus
........
ElseIf Option2.Value = True Then
text2.enabled=true
text2.backcolor=&H80000005
Text2.SetFocus
Text1.enabled=false
text1.backcolor= &H80000004
......
End If