VB的WebBrowser如何在任意位置插入html代碼？

壹、在窗體內加入控件Webbrowser,command1控件,然後復制下面代碼：

Private Sub Form_Load()

WebBrowser1.Navigate "www.baidu.com"

End Sub

Private Sub Command1_Click()

Dim o, s As String

Set o = Webbrowser1.Document.selection.createRange

If (Not o Is Nothing) Then

s = InputBox("請輸入HTML代碼：", "插入代碼")

s = o.htmlText & s

o.pasteHTML s

Set o = Nothing

End If

End Sub

二、F5運行，等網頁裝入完畢，在需要插入代碼的地方用鼠標選擇作記號；

三、點擊Command1按鈕，根據提示插入HTML代碼，即可實現上述目標。

上一篇:設計壹個匯編中斷程序：在 內存中駐留壹斷程序，每秒響壹次，類似鐘表（提示 用中斷(CH)）

下一篇:抖音走心文案短句抖音走心短句經典