Question

vb程序WebBrowser控件

WebBrowser执行显示完URL

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

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

Answer 1

添加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