Farve på html tags

Hvis nu jeg svarer... 4...
Så har jeg nok svaret nogenlunde lige så præcist...

Jeg vil meget gerne hjælpe, men jeg er for dum til at forstå hvor du vil hen.

- Mikker

ligesom i visual basic har koderne forskellige farver, det er det jeg gerne vil have med mit html program.

kun hvis du vil bruge en ocx-file "cmax20.ocx"

som default:
C/C++
Basic
Java
Pascal
SQL
HTML
XML

du kan også lave dine egne tags.

Download:
http://www.csee.wvu.edu/~scharf/appstuff/hwplugin.html




'eksempel til ASP

'HUSK "cmax20.ocx"
'-------------------- Form1 --------------------
Option Explicit

Public Function AspLanguage(ByVal CodeMax As CodeMaxCtl.ICodeMax)
Dim lang As CodeMaxCtl.Language
Dim globals As CodeMaxCtl.globals
Set lang = New CodeMaxCtl.Language
Set globals = New CodeMaxCtl.globals

Dim m_TagElementNames, m_Operators, m_Keywords, m_TagAttributeNames, m_TagEntities, Tag, MyObject

    m_TagAttributeNames = Array("accept", "accept-charset", "accesskey", "action", "align", "alink", "alt", "archive", "axis", "background" _
                              , "bgcolor", "border", "bottommargin", "cellpadding", "cellspacing", "char", "charoff", "charset", "checked", "cite", "class", "classid", "clear", "code", "codebase" _
                              , "codetype", "color", "cols", "colspan", "compact", "content", "coords", "data", "datetime", "declare", "defer", "dir" _
                              , "disabled", "disables", "emphasis", "enctype", "f", "face", "fieldset", "frame", "frameborder", "headers" _
                              , "height", "href", "hreflang", "hspace", "http-equiv", "id", "ismap", "label", "lang", "language", "leftmargin", "link", "longdesc", "marginheight" _
                              , "marginwidth", "maxlength", "media", "method", "multiple", "name", "nohref", "noresize", "noshade", "nowrap", "onblur" _
                              , "onchange", "onfocus", "onkeydown", "onkeyup", "onload", "onmousedown", "onmousemove", "onmouseout", "onmouseover", "onmouseup" _
                              , "onreset", "onselect", "onsubmit", "onunload", "profile", "prompt", "readonly", "rel", "rightmargin" _
                              , "rev", "rows", "rowspan", "rules", "scheme", "scope", "scrolling", "selected", "shape", "size", "span", "src", "standby", "start" _
                              , "style", "summary", "tabindex", "target", "text", "title", "topmargin", "type", "usemap", "valign", "value", "valuetype", "version" _
                              , "vlink", "vspace", "width")

    m_TagElementNames = Array("a", "abbr", "acronym", "address", "applet", "area", "b", "base", "basefont", "bdo", "big", "blockquote", "body" _
                            , "br", "button", "caption", "center", "cite", "code", "col", "colgroup", "dd", "del", "dfn", "dir", "div", "dl", "dt" _
                            , "em", "fieldset", "font", "form", "frame", "frameset", "h1", "h2", "h3", "h4", "h5", "h6", "head", "hr", "html", "i", "iframe", "img" _
                            , "input", "ins", "isindex", "kdb", "label", "legend", "li", "link", "map", "menu", "meta", "noframes", "noscript" _
                            , "object", "ol", "optgroup", "option", "p", "param", "pre", "q", "s", "samp", "script", "select", "small", "span" _
                            , "strike", "strong", "style", "sub", "sup", "table", "tbody", "td", "textarea", "tfoot", "th", "thead", "title" _
                            , "tr", "tt", "u", "ul", "var", "!ELEMENT", "!ATTLIST", "!DOCTYPE", "!ENTITY", "PUBLIC", "#IMPLIED", "#PCDATA", "PCDATA", "EMPTY", "CDATA", "#REQUIRED", "!NOTATION", "#FIXED", "ANY")

    m_TagEntities = Array("") 'Array("Request", "Server", "Response", "vbNewLine", "vbCrLf")
    m_Operators = Array("") 'Array("In", "Each", "Chr", "Chr$", "(", ")", "Replace", "OpenTextFile", "Function", "Sub", "End", "Dim", "For", "To", "Next", "Then", "Exit", "Do", "Loop", "And", "Else", "Select", "Case", "Step", "Mid", "Left", "Right", "If", "Set", "MapPath", "ScriptTimeout", "CreateObject", "HTMLEncode", "URLEncode", "URLPathEncode", "Write", "Clear", "Close", "Form", "QueryString", "ServerVariables")
    m_Keywords = Array("In", "Each", "Chr", "Chr$", "(", ")", "Replace", "OpenTextFile", "Function", "Sub", "End", "Dim", "For", "To", "Next", "Then", "Exit", "Do", "Loop", "And", "Else", "Select", "Case", "Step", "Mid", "Left", "Right", "If", "Set", "MapPath", "ScriptTimeout", "CreateObject", "HTMLEncode", "URLEncode", "URLPathEncode", "Write", "Clear", "Close", "Form", "QueryString", "ServerVariables")

'Keywords
    For Each MyObject In m_Keywords
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.Keywords = Tag: Tag = ""

'TagElementNames
    For Each MyObject In m_TagElementNames
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagElementNames = Tag: Tag = ""

'Operators
    For Each MyObject In m_Operators
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.Operators = Tag: Tag = ""

'TagAttributeNames
    For Each MyObject In m_TagAttributeNames
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagAttributeNames = Tag: Tag = ""

'TagEntities
    For Each MyObject In m_TagEntities
      Tag = Tag & MyObject & Chr(10)
    Next
      lang.TagEntities = Tag: Tag = ""

      lang.SingleLineComments = "'" + Chr(10)

      lang.MultiLineComments1 = "<!--" + Chr(10)
      lang.MultiLineComments2 = "-->" + Chr(10)

      lang.ScopeKeywords1 = "<" + Chr(10) + "<%" + Chr(10)
      lang.ScopeKeywords2 = ">" + Chr(10) + "%>" + Chr(10)
 
      lang.StringDelims = Chr$(34) + Chr(10)

      lang.Style = cmLangStyleSGML

Call globals.RegisterLanguage("ASP", lang)
Set globals = Nothing
Set lang = Nothing
End Function

Private Sub Form_Load()
  Call AspLanguage(CodeMax1)
End Sub
'-------------------- Form1 --------------------