189 8069 5689
窗体上放一个PictureBox，两个CommandButton，启纳中一个FileListBox
成都创新互联长期为上千多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为奎文企业提供专业的成都网站设计、网站制作，奎文网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。
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
vb点虐 2008， 网上找的，乱差山网页没加载完可庆做能会哗中出错
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("")
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
Dim urlNew
e.Cancel = True
urlNew = WebBrowser1.Document.ActiveElement.GetAttribute("href")
WebBrowser1.Navigate(urlNew)
End Sub
End Class
我不得不说，楼主很贪心！
“选项卡”的已经很不错了，人家勉强可以无偿提供给你
“网页缩放”，呵呵，楼主太天真了，人家有也不中脊哗会把功能这么完善的给你！
谁愿意把自己辛辛苦苦做的东西送给人家呢！
建议楼主还是先去下载一卖行个单窗口、能前进、后退、刷新、地址野旦栏的小作品！然后再在这个基础上自己完善一下！
简单的可以提供给你，复杂的也有，但是不免费提供！
如果楼主需要简单的，可以HI我！