少了一些 :PPrivate Sub Form_Load() WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.body.innerhtml = "<B>Strong Lxcc</B>" End Sub
innerhtml 只能修改 已经存在的网页 最好使用webbrowser1.Document.write譬如: Private Sub Command1_Click() WebBrowser1.Navigate "about:blank" WebBrowser1.Document.write "<html><h1>HELLO</h1></html>"'如果换成innerhtml 就出错 End Sub
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.body.innerhtml = "<B>Strong Lxcc</B>"
End Sub
最好使用webbrowser1.Document.write譬如:
Private Sub Command1_Click()
WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.write "<html><h1>HELLO</h1></html>"'如果换成innerhtml 就出错
End Sub