You’ve asked a question which has some complexity to it and it requires some expertise. I hope I can best show you in code:
‘Class member variables
Protected Friend WithEvents doc As New mshtml.HTMLDocument ‘ Will require a
‘reference -
Private HTMLDoc2 As mshtml.IHTMLDocument2
Protected Friend WithEvents HTMLDOC As HtmlDocument
Friend Const HTMLSalutation As String = "<html><head>"
Friend Const HTMLCLose As String = "</body></html>"
Friend m_editmode as boolean
‘Initialization
doc = wb.Document.DomDocument
wb.DocumentText = HTMLSalutation & HTMLCLose
Public Property GetEditMode() As Boolean
' This property Gets or Sets the Edit Mode of the webBrowser Control.
' This routine saves the WB's contents, sets the Document into design mode and then reloads the control
Get
Return m_EditMode
End Get
Set(ByVal Value As Boolean)
If Value Then
Dim s As String = wb.DocumentText
doc.designMode = "On"
wb.DocumentText = s : s = Nothing ‘wb is the webbrowser
m_EditMode = True
Else
doc.designMode = "Off"
m_EditMode = False
End If
End Set
End Property
Why all of the interest Htmldocs?
They expose events and methods that are very valuable.
Once you created these and MSHTML document like HTMLDoc2
You can use it to issue commands to the webbrowser to set font colors and things in code like this:
Private Sub cbBold_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbBold.Click, _
cbUnderL.Click, cbItalics.Click, cbLeftIndent.Click, cbRightIndent.Click, _
cbLeftJustify.Click, cbRightJustify.Click, cbCenterJustify.Click, cbBItems.Click, _
cbFontColor.Click, cbBackColor.Click
Select Case sender.name
Case "cbFontColor"
Dim colordialogue2 As New ColorDialog
If colordialogue2.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Exit Sub
Dim icol As Integer = colordialogue2.Color.ToArgb And &HFFFFFF
Dim b As Byte = icol And &HFF
Dim g As Byte = icol >> 8 And &HFF
Dim r As Byte = icol >> 16 And &HFF
HTMLDoc2.execCommand("Forecolor", False, Hex(r) & Hex(g) & Hex(b))
Case "cbBackColor"
Dim colordialogue2 As New ColorDialog
If colordialogue2.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Exit Sub
Dim icol As Integer = colordialogue2.Color.ToArgb And &HFFFFFF
Dim b As Byte = icol And &HFF
Dim g As Byte = icol >> 8 And &HFF
Dim r As Byte = icol >> 16 And &HFF
HTMLDoc2.execCommand("BackColor", False, Hex(r) & Hex(g) & Hex(b))
Case "cbBold"
HTMLDoc2.execCommand("Bold")
Case "cbUnderL"
HTMLDoc2.execCommand("Underline")
Case "cbItalics"
HTMLDoc2.execCommand("Italic")
Case "cbLeftIndent"
HTMLDoc2.execCommand("Outdent")
Case "cbRightIndent"
HTMLDoc2.execCommand("Indent")
Case "cbLeftJustify"
HTMLDoc2.execCommand("JustifyLeft")
Case "cbRightJustify"
HTMLDoc2.execCommand("JustifyRight")
Case "cbCenterJustify"
HTMLDoc2.execCommand("JustifyCenter")
Case "cbBItems"
HTMLDoc2.execCommand("InsertUnorderedList")
End Select
End Sub
