Question

VB中获取Combox已选项的索引值

Private Sub Command1_Click()
Dim str As String
Dim i, n As Long
str = Combo1.Text
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = str Then
n = i
Text1.Text = n
End If
Exit For
Next
i = i + 1
End Sub
Private Sub Form_Load()

Combo1.AddItem "你"
Combo1.AddItem "是"
Combo1.AddItem "谁"
End Sub
为什么只有选择第一项时text显示为0，选择其它项text无显示？

Answer 1

直接利用组合框Combo1的ListIndex属性即可。没必要弄这么复杂。

你的这些代码：

For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = str Then
n = i
Text1.Text = n
End If
Exit For
Next

直接替换成下面的代码即可：

Text1.Text = Combo1.ListIndex

Answer 2

因为有 exit for 语句提前结束for循环
所以 for循环 在i等于1的时候 执行到 exit for 导致 for循环提前结束

就不会有 i= 1 、i=2...的循环了......... 直接转到next 后的那句 接着执行..........

不信 你 就 先 选 第一项 你 然后点按钮 text1变为0
然后 你再选 第二项或第三项 后 再点 按 text1 保持0 不变......

Answer 3

把Exit For写在if then中间
Private Sub Command1_Click()
Dim str As String
Dim i, n As Long
str = Combo1.Text
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = str Then
n = i
Text1.Text = n
Exit For
End If

Next
i = i + 1
End Sub
Private Sub Form_Load()

Combo1.AddItem "你"
Combo1.AddItem "是"
Combo1.AddItem "谁"
End Sub

Answer 4

exit for
end if
就好了