VB.net和c#利用IOleCommandTarget接口实现Html编辑器的Glyphs（原创）

Glyphs是当我们像DreamWeaver一样编辑网页时，会显示出每个html标签的图标，点中图片选择htmlelement,可以用来结构化编辑区，实现对非可见区域的编辑，比如编辑script等
VB.net code

'showGlyph ,start add by alice ,2005-5-17
            Dim ct As htmlinterface.IOleCommandTarget = m_doc
            Dim pguidCmdGroup As Guid = New Guid("DE4BA900-59CA-11CF-9592-444553540000")
            If showGlyph Then
                Dim length As Integer = 17
                Dim pvaIn(length) As Object
                Dim i As Integer = 0
                Dim s As String
                s = Replace(Application.StartupPath, "\", "/") & "/glyphs/"
                pvaIn(0) = "%%p^^%%" & s & "pbgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(1) = "%%p^^%%" & s & "pend.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(2) = "%%anchor^^%%" & s & "anchor.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(3) = "%%br^^%%" & s & "br.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(4) = "%%comment^^%%" & s & "comment.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(5) = "%%div^^%%" & s & "divbgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(6) = "%%div^^%%" & s & "divend.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(7) = "%%form^^%%" & s & "formbgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(8) = "%%form^^%%" & s & "formend.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(9) = "%%h3^^%%" & s & "h3bgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(10) = "%%h3^^%%" & s & "h3end.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(11) = "%%script^^%%" & s & "script.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(12) = "%%span^^%%" & s & "spanbgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(13) = "%%span^^%%" & s & "spanend.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(14) = "%%style^^%%" & s & "style.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(15) = "%%table^^%%" & s & "table.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                pvaIn(16) = "%%trans^^%%" & s & "trans.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**"
                For i = 0 To length - 1
                    ct.Exec(pguidCmdGroup, Convert.ToUInt32(2337), Convert.ToUInt32(0), pvaIn(i), Nothing)
                Next
            Else
                ct.Exec(pguidCmdGroup, Convert.ToUInt32(2336), Convert.ToUInt32(0), Nothing, Nothing)
            End If
            'showGlyph end

c# code

         d4htmlinterface.htmlinterface.IOleCommandTarget ct= (d4htmlinterface.htmlinterface.IOleCommandTarget)EditOcx.DOM;
               Guid pguidCmdGroup = new Guid("DE4BA900-59CA-11CF-9592-444553540000");
                        object[] pvaIn; 
                       int length=2;
                      int i=0;
                    pvaIn = new object[length];
                     string s;
                     s = "G:/d4b/ocx_demo/htmleditdemo/glyphs/";
                     pvaIn[0] = "%%p^^%%" + s + "pbgn.gif^^%%0^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**";
                     pvaIn[1] = "%%P^^%%" + s + "pend.gif^^%%1^^%%3^^%%3^^%%4^^%%20^^%%15^^%%20^^%%15^^**";
         object o=null;
                     for(i=0;i<length;i++)ct.Exec(ref pguidCmdGroup, 2337, 0, ref pvaIn[i], ref o);