How to pass or copy text from a webbrowser control to richtextbox without losing format
I want to pass text from webbrowser control to a richtextbox on button click without any loss of format. I.e. bold, italic, underline etc.
Please note that it is for windows application.
I used the code below to enable me type directly on WebBrowser control on form load. And also edit any text I type on it using Bold, Italic, Color, align, line spacing codes etc. I only stated the code I used for bold here as reference.
Private _htmlDoc As MSHTML.IHTMLDocument2 = Nothing
Private Sub _initHtmlEditor()
WebBrowser1.Navigate("about:blank")
_htmlDoc = TryCast(WebBrowser1.Document.DomDocument, MSHTML.IHTMLDocument2)
_htmlDoc.designMode = "on"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
_initHtmlEditor()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
_htmlDoc.execCommand("Bold", False, Nothing)'Bolden
WebBrowser1.Focus()
End Sub
I am using the code below to copy and paste into the RichTextBox control.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
RichTextBox1.AppendText(Environment.NewLine)
WebBrowser1.Document.ExecCommand("SelectAll", False, vbNull)
WebBrowser1.Document.ExecCommand("Copy", False, vbNull)
RichTextBox1.Paste()
End Sub
The problem I have here is Line Spacing and text Alignment which do not apply when I copy and paste.
