¿Cómo insertar código html en cualquier ubicación usando el WebBrowser de VB?

1. Agregue los controles Webbrowser y command1 en la ventana y luego copie el siguiente código:

Private Sub Form_Load()

WebBrowser1.Navigate "www.baidu.com"

End Sub

Private Sub Command1_Click()

Atenuar, s como cadena

Establecer o = Webbrowser1.Document.selection.createRange

Si (No es nada) Entonces

s = InputBox("Ingrese el código HTML: ", "Insertar código")

s = o.htmlText & s

o.pasteHTML s

Establecer o = Nada

Finalizar si

End Sub

El segundo paso, ejecute F5 y después de cargar la página web, use el mouse para seleccionar el lugar donde se debe insertar el código como marca;

El tercer paso es hacer clic en el botón Comando1 e insertar el Codifique HTML de acuerdo con las indicaciones para lograr el objetivo anterior.