用c#实现的语法高亮控件

因为工作需要，用c#实现了一个能够对vbscript,c#,j#,sql显示语法高亮的文本编辑控件。这里详细介绍一下它的原理。

该控件是从RichTextBox继承下来，以xml格式存储各种语言的关键字。然后重写RichTextBox的OnTextChanged方法，在该方法中对输入文本进行解析，并对关键字进行着色。源代码点击这里下载。

xml文件格式如下，这里仅以j#为例。caseSensitive代表该语言是否大小写敏感。当然，由于本人懒惰成性，关键字是从网上搜集别人整理好的，如有遗漏，概不负责：)

如果需要解析其他语言，请添加相应的xml文件，并修改枚举类型Languages以及Parser类的构造函数中的相应代码。已知bug：当两个词是由括号分割的时候，程序无法识别。比如Function foo(integer i)，程序会把foo(integer当作一个词。当然这里有两个解决办法，一个是程序自动进行语法排版，在括号前后自动插入空格；另一个是对括号进行解析。也许以后有空的时候我会加上。

<?xml version="1.0" encoding="utf-8" ?>
<definition name="J#" caseSensitive="true">
 <word>private</word>
 <word>protected</word>
 <word>public</word>
 <word>namespace</word>
 <word>class</word>
 <word>var</word>
 <word>for</word>
 <word>if</word>
 <word>else</word>
 <word>while</word>
 <word>switch</word>
 <word>case</word>
 <word>using</word>
 <word>get</word>
 <word>return</word>
 <word>null</word>
 <word>void</word>
 <word>int</word>
 <word>string</word>
 <word>float</word>
 <word>this</word>
 <word>set</word>
 <word>new</word>
 <word>true</word>
 <word>false</word>
 <word>const</word>
 <word>static</word>
 <word>package</word>
 <word>function,</word>
 <word>internal</word>
 <word>extends</word>
 <word>super</word>
 <word>import</word>
 <word>default</word>
 <word>break</word>
 <word>try</word>
 <word>catch</word>
 <word>finally</word>
 <word>+</word>
 <word>-</word>
 <word>=</word>
</definition>

Parser类是负责对xml流进行解析，并包含一个方法来判断一个字符串是不是关键字。详细的代码和注释如下：

using System;
using System.Xml;
using System.IO;
using System.Collections;
using System.Reflection;

namespace SyntaxEditor
{
 /// <summary>
 /// Parser 的摘要说明。
 /// </summary>
 public class Parser
 {
  private  XmlDocument xd=null;    
  private  ArrayList al=null;    //对xml流解析后，会把每一个关键字字符串放入这个容器中
  private bool caseSensitive=false;    //记录当前语言大小写敏感否

  internal Parser(SyntaxEditor.Languages language)    //构造函数接受一个枚举变量
  {
   //
   // TODO: 在此处添加构造函数逻辑
   //
     
   Assembly asm = Assembly.GetExecutingAssembly();
   string filename="";
   switch(language)    //取得xml文件名
   {
    case SyntaxEditor.Languages.CSHARP:
     filename="csharp.xml";
     break;
    case SyntaxEditor.Languages.JSHARP:
     filename="jsharp.xml";
     break;
    case SyntaxEditor.Languages.SQL:
     filename="sql.xml";
     break;
    case SyntaxEditor.Languages.VBSCRIPT:
     filename="vbscript.xml";
     break;
    default:
     break;
   }

   Stream strm = asm.GetManifestResourceStream(asm.GetName().Name + "."+filename);    //取得xml流

   //Reads the contents of the embedded file.
   StreamReader reader= new StreamReader(strm);    //下面的代码解析xml流
   
   xd=new XmlDocument();
   xd.Load(reader);
   
   al=new ArrayList();

   XmlElement root=xd.DocumentElement;
    
   XmlNodeList xnl=root.SelectNodes("/definition/word");
   for(int i=0;i<xnl.Count;i++)
   {
     
    al.Add(xnl[i].ChildNodes[0].Value); 
   }
   

   this.caseSensitive=bool.Parse(root.Attributes["caseSensitive"].Value);
   
  }

  public bool IsKeyWord(string word)    //判断字符串是否为关键字
  {
   bool rtn=false;
   for(int i=0;i<al.Count;i++)
   {
    if(string.Compare(word,al[i].ToString(),!caseSensitive)==0)
    {
     rtn=true;
     break;
    }
   }
   return rtn;
   
  }
 }
}

控件类代码如下。

using System;
using System.Collections;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Windows.Forms;
using System.Runtime.InteropServices;

using HWND = System.IntPtr;

namespace SyntaxEditor
{
 /// <summary>
 /// UserControl1 的摘要说明。
 /// </summary>
 public class SyntaxEditor : System.Windows.Forms.RichTextBox
 {
  /// <summary>
  /// 必需的设计器变量。
  /// </summary>
  private System.ComponentModel.Container components = null;

//使用win32api：SendMessage来防止控件着色时的闪烁现象

  [DllImport("user32")] private static extern int SendMessage(HWND hwnd, int wMsg, int wParam, IntPtr lParam);
  private const int WM_SETREDRAW = 0xB;

  public SyntaxEditor()
  {
   // 该调用是 Windows.Forms 窗体设计器所必需的。
   InitializeComponent();
   base.WordWrap=false;
   // TODO: 在 InitComponent 调用后添加任何初始化

  }

  /// <summary>
  /// 清理所有正在使用的资源。
  /// </summary>
  protected override void Dispose( bool disposing )
  {
   if( disposing )
   {
    if( components != null )
     components.Dispose();
   }
   base.Dispose( disposing );
  }

  #region 组件设计器生成的代码
  /// <summary>
  /// 设计器支持所需的方法 - 不要使用代码编辑器
  /// 修改此方法的内容。
  /// </summary>
  private void InitializeComponent()
  {
   //
   // SyntaxEditor
   //
   this.Name = "SyntaxEditor";

  }
  #endregion

 //重写基类的OnTextChanged方法。为了提高效率，程序是对当前文本插入点所在行进行扫描，

//以空格为分割符，判断每个单词是否为关键字，并进行着色。

  protected override void OnTextChanged(EventArgs e)   
  {
   if(base.Text!="")
   {
    int selectStart=base.SelectionStart;
    int line=base.GetLineFromCharIndex(selectStart);

    string lineStr=base.Lines[line];
    int linestart=0;
    for(int i=0;i<line;i++)
    {
     linestart+=base.Lines[i].Length+1;
    }
    
    SendMessage(base.Handle, WM_SETREDRAW, 0, IntPtr.Zero);

    base.SelectionStart=linestart;
    base.SelectionLength=lineStr.Length;
    base.SelectionColor=Color.Black;
    base.SelectionStart=selectStart;
    base.SelectionLength=0;

    string[] words=lineStr.Split(new char[]{' '});
    Parser parser=new Parser(this.language);
    for(int i=0;i<words.Length;i++)
    {
     if(parser.IsKeyWord(words[i]))
     { 
      
      int length=0;
      for(int j=0;j<i;j++)
      {
       length+=words[j].Length;      
      }
      length+=i;

      int index=lineStr.IndexOf(words[i],length);
      
      

      base.SelectionStart=linestart+index;
      base.SelectionLength=words[i].Length;
      base.SelectionColor=Color.Blue;
      base.SelectionStart=selectStart;
      base.SelectionLength=0;
      base.SelectionColor=Color.Black;

     }
    }
    SendMessage(base.Handle, WM_SETREDRAW, 1, IntPtr.Zero);
    base.Refresh();
   }
   base.OnTextChanged (e);
  }

  public new bool WordWrap
  {
   get{return base.WordWrap;}
  }

  public enum Languages
  {
   SQL,
   VBSCRIPT,
   CSHARP,
   JSHARP
  }
  
  private Languages language=Languages.SQL;

  public Languages Language
  {
   get{return this.language;}
   set{this.language=value;}
  }
 }
}

本文地址：http://com.8s8s.com/it/it43002.htm