Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "about:blank"
Do
DoEvents
Loop Until Me.WebBrowser1.ReadyState = READYSTATE_COMPLETE
WebBrowser1.Document.write "<body style='padding:0; margin:0;'><img src='https://www.baidu.com/img/baidu_jgylogo3.gif'></body>"
End Sub
使用Webbrowser直接运行HTML代码
最新推荐文章于 2020-08-23 07:38:17 发布