Question

vb怎么用ListBox 和image 做一个图片浏览器

那个private sub list1.list(0)-click 显示为红色，说list1.list(0)中间那个点错了。我不知道为什么，应该怎么做呢？如何用vb的这两个空件做一个图片浏览器。。。。

Answer 1

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image1.Picture = LoadPicture(App.Path & "\0.jpg")
Case 1
Image1.Picture = LoadPicture(App.Path & "\1.jpg")
Case 2

Image1.Picture = LoadPicture(App.Path & "\2.jpg")
End Select

End Sub