菜鸟问题之一。

Question

Private Sub Command1_Click()
Dim a As String
a = File1.FileName
a = File1.FileName.Next
Image1.Picture = LoadPicture(a)
End SubPrivate Sub Dir1_Change()
File1.Path = Dir1.Path
End SubPrivate Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End SubPrivate Sub File1_Click()
ChDrive Drive1.Drive
ChDir Dir1.Path
Image1.Picture = LoadPicture(File1.FileName)
End SubPrivate Sub Image1_Click()End Sub

Answer 1

file1.ListIndex =file1.ListIndex +1 ‘ 或file1.ListIndex =file1.ListIndex -1
File1_Click
即可

Answer 2

file1.ListIndex =file1.ListIndex +1