这个简单:
Private Sub Command1_Click() '单击则选中第一个文件
File1.ListIndex = 0
End Sub
Private Sub Command2_Click() '单击则选中下一个文件,到最后一个文件后若单击则转到第一个文件
If File1.ListIndex < File1.ListCount - 1 Then
File1.ListIndex = File1.ListIndex + 1
Else
File1.ListIndex = 0
End If
End Sub
Private Sub Command3_Click() '单击则选中最后一个文件
File1.ListIndex = File1.ListCount - 1
End Sub
File1.ListIndex = 0
filelistbox 是排序的 无法自定义位置