vb.net制作浏览器,vbnet web编程

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

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

我们提供的服务有：成都网站制作、网站设计、外贸网站建设、微信公众号开发、网站优化、网站认证、碧江ssl等。为近千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的碧江网站制作公司

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.NET自己做的网页浏览器

vb.net2008， 网上找的，网页没加载完可能会出错

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

vb.net 编写浏览器

我不得不说，楼主很贪心！

“选项卡”的已经很不错了，人家勉强可以无偿提供给你

“网页缩放”，呵呵，楼主太天真了，人家有也不会把功能这么完善的给你！

谁愿意把自己辛辛苦苦做的东西送给人家呢！

建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品！然后再在这个基础上自己完善一下！

简单的可以提供给你，复杂的也有，但是不免费提供！

如果楼主需要简单的，可以HI我！

新闻名称：vb.net制作浏览器,vbnet web编程
本文路径：http://shouzuofang.com/article/dsgoscg.html