使用WebBrowser与msHtml开发WinForms下的HtmlEditor控件

引用COM控件WebBrowser

引用msHtml。

BS,还在用vs2003。要是使用2005就不需要使用COM控件。

 

初始化：

With Me.AxWebBrowser1
     .Navigate("about:blank")
     doc = CType(.Document, mshtml.IHTMLDocument2)
     doc.designMode = "on"
End With

bs:designMode居然是一个隐藏属性，找了半天都没有发现，还以为资料有误呢。

常用命令：

Case "加粗"
            doc.execCommand("Bold", False, Nothing)
        Case "倾斜"
            doc.execCommand("Italic", False, Nothing)
        Case "下划线"
            doc.execCommand("Underline", False, Nothing)
        Case "序列"
            doc.execCommand("InsertOrderedList", False, Nothing)
        Case "园点"
            doc.execCommand("InsertUnorderedList", False, Nothing)
        Case "减少缩进"
            doc.execCommand("Outdent", False, Nothing)
        Case "增加缩进"
            doc.execCommand("Indent", False, Nothing)
        Case "左对齐"
            doc.execCommand("JustifyLeft", False, Nothing)
        Case "居中"
            doc.execCommand("JustifyCenter", False, Nothing)
        Case "右对齐"
            doc.execCommand("JustifyRight", False, Nothing)
            ' webBrowserBody.Document.ExecCommand("JustifyFull", false, null);
        Case "超链接"
            doc.execCommand("CreateLink", True, Nothing)
        Case "图片"
            doc.execCommand("InsertImage", True, Nothing)
        Case "撤消"
            doc.execCommand("Undo")
        Case "重做"
            doc.execCommand("Redo")

 

查询状态

       Me.tb加粗.Pushed = doc.queryCommandState("Bold")
       Me.tb倾斜.Pushed = doc.queryCommandState("Italic")
       Me.tb下划线.Pushed = doc.queryCommandState("Underline")

       Me.tb序列.Pushed = doc.queryCommandState("InsertOrderedList")
       Me.tb园点.Pushed = doc.queryCommandState("InsertUnorderedList")

       Me.tb左对齐.Pushed = doc.queryCommandState("JustifyLeft")
       Me.tb居中.Pushed = doc.queryCommandState("JustifyCenter")
       Me.tb右对齐.Pushed = doc.queryCommandState("JustifyRight")

 

返回设置控件内容：

Public Overrides Property Text() As String

    Get
        Debug.WriteLine(Me.AxWebBrowser1.ReadyState)
        Return Me.doc.body.innerHTML
    End Get
    Set(ByVal Value As String)
        Debug.WriteLine(Me.AxWebBrowser1.ReadyState)
        Me.doc.body.innerHTML = Value
    End Set
End Property

 

 

注意：如果是设置控件的内容，必须查询Me.AxWebBrowser1.ReadyState的状态为READYSTATE_COMPLETE才可以，不然body=Nothing.

如果判断是否加载完成，AxWebBrowser1_NavigateComplete2事件引发时说明已加载完成。