Question

VB中 combo与option 的问题

大致就是combo下拉菜单有两项 option也有两项
当选择combo第一项时 option1也被同时选中
当选择combo第二项 option2被选中 就这么一个 代码该怎么写呢？？？

Answer 1

Private Sub Combo1_Click()
If Combo1.Text = Combo1.List(Combo1.ListCount - 2) Then
Option1.Value = True
Else
Option2.Value = True
End If
End Sub

Answer 2

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Option1.Value = True
Case 1
Option2.Value = True
End Select
End Sub