1. 程式人生 > >使用Webbrowser直接執行HTML程式碼

使用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