作者：绿色风
分类：
时间：2022-08-17
浏览：219
楼主
xmyjk |
Q:如何运用VBA制作简易网页浏览窗体?
A:- Dim url As String
- Private Sub CommandButton1_Click()
- If Len(TextBox1.Text) > 0 Then WebBrowser1.Navigate TextBox1.Text '将地址栏的URL发送浏览
- End Sub
- Private Sub CommandButton2_Click()
- On Error Resume Next
- WebBrowser1.GoBack '模拟后退
- End Sub
- Private Sub CommandButton3_Click()
- On Error Resume Next
- WebBrowser1.GoForward '模拟前进
- End Sub
- Private Sub CommandButton4_Click()
- WebBrowser1.Refresh '模拟刷新
- End Sub
- Private Sub CommandButton5_Click()
- WebBrowser1.Stop '模拟停止
- End Sub
- Private Sub UserForm_Initialize()
- WebBrowser1.Navigate "http:\\www.exceltip.net" '模拟首页打开ET
- End Sub
- Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, url As Variant)
- TextBox1.Text = WebBrowser1.LocationURL '当页面跳转地址栏跟着变动
- End Sub
- Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
- Cancel = True '取消弹出新窗口
- WebBrowser1.Navigate url '在原窗口继续浏览
- End Sub
- Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
- Label1.Caption = Text '模拟地址栏
- url = Text
- End Sub
- Private Sub WebBrowser1_TitleChange(ByVal Text As String)
- UserForm1.Caption = Text '模拟标签，让窗体名称跟着网页名称变
- End Sub
 自制浏览器.zip
|
2楼
い卋玑┾宝珼 |
沙发沙发，我没做出来这道题，妃妃好强大 |
3楼
水星钓鱼 |
感谢分享 |
4楼
老糊涂 |
下载学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一