Question

【紧急】（vb）For fxm = 0 To List1.ListCount - 1 Step 1循环问题

Private Sub Command1_Click()
On Error Resume Next
Dim fxm
For fxm = 0 To List1.ListCount - 1 Step 1
If List1.Selected(fxm) Then
fxm = List1.List(List1.ListIndex)
MsgBox "目前循环的是[" & fxm & "]"
End If
Next
这个列表框style属性是1，就是每个文本框的左边都有一个复选框，这样可以多选。问题是列表框内存在多个复选项目，例如我在其中选中了三个，就是在复选框内打上“√”，但使用上面的过程进行循环时，我打算使用msgbox语句显示三个选中的项目名称，即便索引改变了，名称变量“fxm”却没有改变，总是显示最后的（就是列表框内最后鼠标选中（高亮部分））项目名称，没有像过程中预期的循环显示选中了三个项目名称，不知道表达清楚没有，请高人给与指点。请看插图。
End Sub

Answer 1

Private Sub Command1_Click()
Dim fxm As Long
For fxm = 0 To List1.ListCount - 1
If List1.Selected(fxm) Then MsgBox "目前循环的是[" & List1.List(frm) & "]"
Next
End Sub

您的问题是，
1、List()中填写的是 List1.ListIndex 而非循环变量 Fxm
2、Fxm 既作为循环变量、又在循环途中被改变

Answer 2

Dim fxm As Integer,s As String
For fxm = 0 To List1.ListCount - 1 Step 1
If List1.Selected(fxm) Then
s = List1.List(List1.ListIndex)'或 s = List1.List(fxm）
MsgBox "目前循环的是[" & s & "]"
End If
Next

Answer 3

Private Sub Command1_Click()
On Error Resume Next
Dim fxm
For fxm = 0 To List1.ListCount - 1 Step 1
If List1.Selected(fxm) Then
t = t & "[" & List1.List(fxm) & "]"
End If
Next
MsgBox "目前循环的是" & t
End Sub

Answer 4

fxm = List1.List(List1.ListIndex)
MsgBox "目前循环的是[" & fxm & "]"
楼主精神错乱了吗？
顶1楼

Answer 5

使用一个timer控件