完整代码:
Dim A As Boolean
Private Sub Form_Load()
'初始化为空白网页
A = False
WebBrowser1.Navigate "about:blank"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
'当初始化完成后会引发标题变化事件
If A = False Then
'第一次使用时对文档里的内容进行设置
A = True
WebBrowser1.Document.body.innerHTML = " <Font color='#FF0000'>你好 </font>"
End If
End Sub
Private Sub Command1_Click()
'随便更改网页里的内容
WebBrowser1.Document.body.innerHTML = WebBrowser1.Document.body.innerHTML & " <br> <img Src='http://www.csdn.net/Images/logo_csdn.gif'>"
WebBrowser1.Document.body.scrollTop = WebBrowser1.Document.body.scrollHeight
End Sub
简单点的方法,建议你使用
Microsoft Internet Controls 控件
这个控件就像一个IE对象,只要你控制里面的HTML文本就可以控制了。
以下是一个范例程序:
Dim A As Boolean
Private Sub Form_Load()
'初始化为空白网页
A = False
WebBrowser1.Navigate "about:blank"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
'当初始化完成后会引发标题变化事件
If A = False Then
'第一次使用时对文档里的内容进行设置
A = True
WebBrowser1.Document.body.innerHTML = "<Font color='#FF0000'>你好</font>"
End If
End Sub
Private Sub Command1_Click()
'随便更改网页里的内容
WebBrowser1.Document.body.innerHTML = WebBrowser1.Document.body.innerHTML & "<br><img Src='http://www.csdn.net/Images/logo_csdn.gif'>"
End Sub