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

如果是控件数组就好做的，不是的话 代码多一点
假设三个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依次类推

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)的控件数组

上面的代码就有用了

Private Sub Option1_Click()
Text1.Enabled