用 VB 做一个小程序 打开时为一个固定的网页页面就可以了

怎么让实现打开程序时打开指定的网址而且最好不显示地址栏... 怎么让实现 打开程序时打开指定的网址 而且最好不显示地址栏 展开
 我来答
王世南1988
推荐于2017-09-25 · 超过54用户采纳过TA的回答
知道小有建树答主
回答量:189
采纳率:0%
帮助的人:69.2万
展开全部
Option Explicit

Private Sub Form_Load()
Me.Caption = "My Explorer"
Label1.Caption = "URL"
Combo1.Text = ""
Combo1.Top = Label1.Height
Combo1.Left = 0
WebBrowser1.Top = Combo1.Top + Combo1.Height
WebBrowser1.Left = 0
Form_Resize
StatusBar1.Style = sbrSimple
ProgressBar1.ZOrder
End Sub

Private Sub Form_Resize()
On Error GoTo a
Combo1.Width = Form1.Width - 100
WebBrowser1.Width = Combo1.Width
WebBrowser1.Height = Form1.Height - Combo1.Height - 1000
ProgressBar1.Top = Me.Height - StatusBar1.Height - 330
ProgressBar1.Left = 0.25 * StatusBar1.Width
ProgressBar1.Width = 0.75 * Me.Width - 250
a:
End Sub

Private Sub Combo1_Click()
WebBrowser1.Navigate Combo1.Text
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim I As Long
Dim existed As Boolean
If KeyCode = 13 Then
If Left(Combo1.Text, 7) <> "http://" Then
Combo1.Text = "http://" + Combo1.Text
End If
WebBrowser1.Navigate Combo1.Text
For I = 0 To Combo1.ListCount - 1
If Combo1.List(I) = Combo1.Text Then
existed = True
Exit For
Else
existed = False
End If
Next
If Not existed Then
Combo1.AddItem (Combo1.Text)
End If
End If
End Sub

Private Sub WebBrowser1_DownloadBegin()
StatusBar1.SimpleText = "Now Linking..."
End Sub

Private Sub WebBrowser1_DownloadComplete()
StatusBar1.SimpleText = "Link Finished"
ProgressBar1.Value = 0
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If ProgressMax = 0 Then Exit Sub
ProgressBar1.Max = ProgressMax
If Progress <> -1 And Progress <= ProgressMax Then
ProgressBar1.Value = Progress
End If
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
Combo1.Text = WebBrowser1.LocationURL
End Sub

新建一个窗体
在窗体中的工程里面添加
microsoft internet controls
microsoft internet transfer control 6.0
microsoft windows common controls 6.0
三个控件(vb6.0企业版里面有)
在窗体上添加
一个StatusBar1(右边工具栏)
一个ProgressBar1
一个Combo1
一个Label1
一个WebBrowser1
位置和大小随便放
在代码里面复制上面的代码
运行
网址如www.baidu.com

复制代码时注意Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long) 会变红色 这个代码在一行的 由于百度的网页宽度不够 所以复制是可能是2行
追问
怎么让他打开程序时打开指定的网址 而且不显示地址栏
追答
是打开程序时 浏览器打开一个网站 还是在程序里面用一个网页的形式来显示一个固定的网址呢?
如果是在程序中的窗体上加一个网页 那就像楼下说的那样啊 新建一个窗体----工程----部件----Microsoft Internet Controls
在窗体中画一个WebBrowser1控件
打开窗体代码 输入楼下的那个代码就行了 不会显示地址的啊
ljskymove
2011-10-28 · TA获得超过125个赞
知道答主
回答量:72
采纳率:0%
帮助的人:80.9万
展开全部
vb我不会,但我有一个解决方法,因为我也遇到了这样的问题自己解决了.
1,建一个文本文件,输入下面代码:<meta http-equiv="refresh" content="0; url=http://www.lexisnexis.com/">
2,http://www.lexisnexis.com 替换成你想要的网站,并将文件扩展名改为.htm或html
3,添加压缩,自解压格式.注意选项参数.
添加解压后运行htm文件,把覆盖,询问都选为否定.这样才会安静.添加图标,ICO文件.这样别人不会一眼看破是解压文件.目的是更像程序.还可以创建快捷方式.选择解压路径.
具体步骤,我不太会描述,你自己摸索下吧.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zx001z7d53
2011-10-11 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5658万
展开全部
CTRL+T 里面找Microsoft Internet Controls
然后只写下列代码
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
追问
可不可以把地址栏隐藏 或者用图片盖一下也行
追答
可以啊,用平面的PICTUREBOX
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
就会更加分
2011-10-12 · 超过27用户采纳过TA的回答
知道答主
回答量:118
采纳率:0%
帮助的人:62.8万
展开全部
public sub form_load()
shell ("浏览器程序地址 网址")
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
慧蓝恬馨
2011-10-11 · TA获得超过283个赞
知道小有建树答主
回答量:317
采纳率:0%
帮助的人:137万
展开全部
说的具体一点
追问
就是能在VB内打开网页就可以了 最简单的浏览器
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式