读懂新三板:vb程序WebBrowser控件

来源：百度文库编辑：神马品牌网时间：2024/04/29 07:16:13

WebBrowser执行显示完URL

我想做个Command1 点击他可以查看当前url源文件。

请问如何实现？谢谢各位同仁

添加Transfer控件和WebBrowser控件，一个COMMAND和一个文本框。
参考以下代码：
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.xxxx.com"
End Sub

Private Sub Command1_Click()
Dim HtmlByte() As Byte
Dim sHtml As String,sTemp As String
Inet1.URL=WebBrowser1.LocationURL
HtmlByte()=Inet1.OpenURL
Open App.Path+"\xxxx.htm" For Binary As #1
Put#1,,HtmlByte()
Close #1
Open App.Path+"\xxxx.htm" For Input As #1
Do While Not EOF(1)
Line Input #1,sTemp
sHtml=sHtml+sTemp
Loop
Text1=sHtml
Close #1
End Sub

vb程序WebBrowser控件在线等高分求webbrowser控件 vb 关于vb的webbrowser控件的问题 vb 如何获得webbrowser控件的坐标？在VB中如何去掉WebBrowser控件的滚动条？ VB中动态生成和删除WEBBROWSER控件方法 VB中webbrowser控件范围内怎么禁止鼠标右键? WebBrowser控件的问题为什么VB的WebBrowser控件的DocumentComplete方法有时不触发？ vb中WebBrowser控件滚动条问题（如何不显示滚动条