Question

vb filelistbox 的选中判断问题！我这里错在哪里！！！求助

Private Sub Command6_Click()
Dim I
For I = File1.ListCount - 1 To Step - 1
If File1.Selected(I) = True Then
Form2.Show
End If
Next
MsgBox "请选择一个文件", 64, "错误"
Exit Sub
End Sub
'如果选中了一个file1的文件，那么form.show。如果没有选择filelistbox中的文件，那么提示请选择，然后返回！！我这里错在哪里！！

Answer 1

for 循环漏掉一个参数
For I = File1.ListCount - 1 To Step - 1
改为：For I = File1.ListCount - 1 To 0 Step - 1
另外，Form2.Show后应该退出此过程，完整代码如下：
Private Sub Command6_Click()
Dim I
For I = File1.ListCount - 1 To 0 Step - 1
If File1.Selected(I) = True Then
Form2.Show
exit sub
End If
Next
MsgBox "请选择一个文件", 64, "错误"
Exit Sub
End Sub

Answer 2

File1.listindex 好像