有几种方法确定listbox选择项？
方法1，用Selected方法
Dim n As Integer
For n = 0 To list1.listcount-1
If List1.Selected(n) = True Then
Exit For
End If
Next

方法2
Str = List2.Text
通过循环确定所选择的是哪个项。

t1 = Val(Me.List2.Text)

With Me.List2
.Clear
For ii = 0 To UBound(FlangeTypeArr)
If t1 = FlangeTypeArr(ii) Then
kk = ii
End If
Next ii
.Selected(kk) = True
End With


请问，各位还有哪些更有效的方法。谢谢。

[解决办法]
第一个方法就很好，第二个方法遇到列表项文字重复就不好使了。
[解决办法]
第一种方法，主要用于允许多选的情况。

如果不允许多选，ListBox 的 ListIndex 所指的，就是选定列表项。

List1.List(List1.ListIndex)