使用Webbrowser直接运行HTML代码
毛宏达
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
类似资料：