Question

vb中Option和TEXT一起使用的问题

设置了3个Option和3个TEXT控件

现在要当选择了第一个option只有对应的第一个text能被编辑其余2个text不能被编译，依次类推其他的控件

请写出代码。谢谢

Answer 1

如果是控件数组就好做的，不是的话 代码多一点
假设三个Option(0),(1),(2)，text是Text(0),(1),(2)
那么就是
Private Sub Option_Click(Index As Integer)
Dim i As Integer, j As Integer
For i = 0 To Index - 1
Text(i).Enabled = False
Next
For j = Index + 1 To [Option].UBound 'Option是系统名称 所以当控件要加[]。
Text(j).Enabled = False
Next
Text(Index).Enabled = True
End Sub

如果不是控件数组 只能一个一个添加
Option1_Click：Text1.Enabled = True

以上Enabled 可以替换成Locked 即Text(j).Locked = False依次类推

Answer 2

Private Sub Form_Load()
Option1(0).Value = True
End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
Text2.Enabled = False
Text3.Enabled = False
Else
Text2.Enabled = True
Text3.Enabled = True
End If
End Sub

添加一个option1
选中它 Ctrl+C Ctrl+V
VB会问你是否创建控件数组 选择是 再按多一次Ctrl+V 即创建了一个长度为3(索引0-2)的控件数组

上面的代码就有用了

Answer 3

Private Sub Option1_Click()
Text1.Enabled = Option1.Value
Text2.Enabled = Not Option1.Value
Text3.Enabled = Not Option1.Value

End Sub

Private Sub Option2_Click()
Text1.Enabled = Not Option2.Value
Text2.Enabled = Option2.Value
Text3.Enabled = Not Option2.Value
End Sub

Private Sub Option3_Click()
Text1.Enabled = Not Option3.Value
Text2.Enabled = Not Option3.Value
Text3.Enabled = Option3.Value
End Sub

Answer 4

1、不使用控件数组可以：
Private Sub Form_Load()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
End Sub

Private Sub Option1_Click()
Text1.Locked = Not Option1.Value
Text2.Locked = True
Text3.Locked = True
End Sub

Private Sub Option2_Click()
Text1.Locked = True
Text2.Locked = Not Option2.Value
Text3.Locked = True
End Sub

Private Sub Option3_Click()
Text1.Locked = True
Text2.Locked = True
Text3.Locked = Not Option3.Value
End Sub

你说的是“不可编辑”，Enabled是“有效无效”所以试试locked这个属性或者是Visible属性的效果。

2、数组用法

Private Sub Form_Load()
For i = 0 To 2
Text1(i).Visible = False
Next i
End Sub

Private Sub Option1_Click(Index As Integer)
For i = 0 To 2
Text1(i).Visible = False
Next i
Text1(Index).Visible = True
End Sub

你可以试试！

Answer 5

将OPT和TXT设成控件数组,并且一一对应
Private Sub Option1_Click(Index As Integer)
Dim i As Long
For i = 0 To Option1.UBound
If i <> Index Then
Text1(i).Enabled = False
Else
Text1(i).Enabled = True
End If
Next
End Sub