网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net写浏览器 vb做网页

如何编写vb.net程序,打开IE浏览器

如下两种方法,

创新互联建站主营托克逊网站建设的网络公司,主营网站建设方案,成都APP应用开发,托克逊h5微信小程序开发搭建,托克逊网站营销推广欢迎托克逊等地区企业咨询

1,

采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用。

Shell("rundll32

url.dll

FileProtocolHandler

")

2,采用IE打开,只要更改为你的ie路径就可以了。不建议使用这个方法。

Shell("C:\Program

Files\Internet

Explorer\iexplore.exe

")

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如何编写图片浏览器的基本步骤功能是:图片的打开、显示、缩放、旋转。

窗体上放一个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


网站题目:vb.net写浏览器 vb做网页
标题路径:http://bjjierui.cn/article/doseeoh.html

其他资讯