用vb.net如何编写图片浏览器的基本步骤功能是：图片的打开、显示、缩放、旋转。

Question

如题所述

Answer 1

窗体上放一个PictureBox，两个CommandButton，一个FileListBox

Private Sub Command1_Click()
If File1.ListIndex = 0 Then
ShowPic File1.ListCount - 1
Else
ShowPic File1.ListIndex - 1
End If
End Sub

Private Sub Command2_Click()
If File1.ListIndex = File1.ListCount - 1 Then
ShowPic 0
Else
ShowPic File1.ListIndex + 1
End If
End Sub

Private Sub Form_Load()
File1.Visible = False
File1.Pattern = "*.jpg;*.gif" '可以浏览的文件类型，使用分号隔开
File1.Path = App.Path '改成你需要浏览的目录，比如"C:\Pic"
If File1.ListCount > 1 Then '目录中图片在两张以上可以浏览
ShowPic 0
Exit Sub
ElseIf File1.ListCount = 1 Then '目录中只有一张图片时只显示这一张
ShowPic 0
End If
Command1.Enabled = False
Command2.Enabled = False
End Sub

Private Sub ShowPic(Index As Long)
File1.ListIndex = Index
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(Index))
End Sub

如果对您有帮助，请记得采纳为满意答案，谢谢！祝您生活愉快！

vaela