当选一个单选按钮，文本框正常输入，选另一单选按钮，文本框不可输入，且为灰色，怎么实现？

在VB中，当选一个单选按钮，文本框正常输入，选另一单选按钮，文本框不可输入，且为灰色，怎么实现？

2009-1-6 14:19

提问者： jianghe1213

2009-1-6 15:27

满意回答

代码如下:前提,放置到form上一个text,2个option
Private Sub Option1_Click()
If Option1.value = True Then
Text1.Enabled = False
Else
Text1.Enabled = True
End If
End Sub
Private Sub Option2_Click()
If Option2.value = True Then
Text1.Enabled = True
Else
Text1.Enabled = False
End If
End Sub