Question

自己做了一个VB图片浏览器，求和高手帮我加插上一张\下一张的代码! 急须

Sub resize_pic()
Image1.Width = (Image1.Height / Image1.Picture.Height) * Image1.Picture.Width
Form1.Width = Image1.Left + Image1.Width + 500

End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
resize_pic

End Sub

Private Sub Form_Load()
File1.Pattern = "*.gif;*.bmp;*.jpg"
Image1.Stretch = False

End Sub

Private Sub Image1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
strpath = Data.Files(1)
If Right(strpath, 3) = "jpg" Or Right(strpath, 3) = "bmp" Or Right(strpath, 3) = "gif" Then
Image1.Picture = LoadPicture(strpath)
resize_pic
Else
MsgBox "Sorry, I don't know about this file name"
End If

End Sub
不知道一楼的大大可不可以详细地把代码列来呢?
小弟对于编程实在不怎么样...

Answer 1

Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)
resize_pic
End Sub
改成如下============================
Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.List(File1.ListIndex))
resize_pic
End Sub
上下翻的话，只要加减File1.ListIndex，然后调用File1_Click就可以了

Answer 2

呵呵,我有问题想问,你编这个用来干什么?楼上其实已经说的很好了,如果你连这个也不用,我建议还是不要搞VB了.
编程这个东东,可不能吃人家嚼过的饭渣啊，只有你细细的看了帮助，去操练，你才会从中得到乐趣，才能真正的会用她。