为什么要自定义？

「添雨跟打器」中的核心功能之一——「词库管理」。这是一个大类。包含有词库添加、删除、自动提示，智能学习，理论码长等功能。用户在跟打过程中，如何以方便，快捷的方式提示给用户？这是一个产品体验上的问题。

早在「老版添雨跟打器」之中，@hwj 帮忙制作了「提词器」。使用的技术很简单，就是在 RichTextBox 上显示 Label ，用来划出不同的线条，颜色。但是缺点很明显。

1. 渲染效率问题
2. 显示样式单一

这两个问题都很好解决。但是「效率」和显示的「感观」上的问题仍然有一种，无法让人忍受的问题。例如，在拖动滚动条时，整个显示错位。如果让它们随之滚动，则会存在效率上的问题。两者，似乎存在一种不可兼得的情况。

寻找

为了解决问题。利用搜索引擎，去寻找解决方案。MSDN 是首先的选择。正好，在其上便找到如下一篇 《how to change the underline style》 。里面含有大量的 VB 代码。

手动翻译成 C# 代码如下文。

代码

新建类：

public class Underline
{
    public RichTextBox R { get; private set; }
    
    public Underline(RichTextBox richText)
    {
        this.R = richText;
    }
}

创建结构体：

[StructLayout(LayoutKind.Sequential)]
private struct CHARFORMAT
{
    public int cbSize;
    public uint dwMask;
    public uint dwEffects;
    public int yHeight;
    public int yOffset;
    public int crTextColor;
    public byte bCharSet;
    public byte bPitchAndFamily;

    [MarshalAs(UnmanagedType.ByValArray, SizeConst = 32)]
    public char[] szFaceName;

    public short wWeight;
    public short sSpacing;
    public int crBackColor;
    public int LCID;
    public uint dwReserved;
    public short sStyle;
    public short wKerning;
    public byte bUnderlineType;
    public byte bAnimation;
    public byte bRevAuthor;
}

引入 Win32 API：

[DllImport("user32", CharSet = CharSet.Auto)]
private static extern int SendMessage(IntPtr hWnd, int msg, int wParam, ref CHARFORMAT lp);

创建属性：

public UnderlineStyle SelectionUnderlineStyle
{
    set
    {
        //Ensure we don't alter the color by accident.
        var color = SelectionUnderlineColor;
        //Ensure we don't show it if it shouldn't be shown.
        if (value == UnderlineStyle.None)
        {
            color = UnderlineColor.Black;
        }
        var fmt = new CHARFORMAT
        {
            yOffset = 100
        };
        fmt.cbSize = Marshal.SizeOf(fmt);
        fmt.dwMask = CFM_UNDERLINETYPE;
        fmt.bUnderlineType = (byte)((byte)value | (byte)color);
        fmt.bAnimation = 1;
        //Set the underline type.
        SendMessage(this.R.Handle, EM_SETCHARFORMAT, SCF_SELECTION, ref fmt);
    }
    get
    {
        var fmt = new CHARFORMAT
        {
            yOffset = 4
        };
        fmt.cbSize = Marshal.SizeOf(fmt);
        //Get the underline style.
        SendMessage(this.R.Handle, EM_GETCHARFORMAT, SCF_SELECTION, ref fmt);
        // Default to no underline.
        if ((fmt.dwMask & CFM_UNDERLINETYPE) == 0)
        {
            return UnderlineStyle.None;
        }
        var style = (byte)fmt.bUnderlineType & 0xF;
        return (UnderlineStyle)style;
    }
}

public UnderlineColor SelectionUnderlineColor
{
    get
    {
        var fmt = new CHARFORMAT();
        fmt.cbSize = Marshal.SizeOf(fmt);
        //Get the underline color.
        SendMessage(this.R.Handle, EM_GETCHARFORMAT, SCF_SELECTION, ref fmt);
        // Default to black.
        if ((fmt.dwMask & CFM_UNDERLINETYPE) == 0)
        {
            return UnderlineColor.Black;
        }
        var style = fmt.bUnderlineType & 0xF;
        return (UnderlineColor)style;
    }
    set
    {
        //Ensure we don't alter the style.
        var style = SelectionUnderlineStyle;
        //Ensure we don't show it if it shouldn't be shown.
        if (style == UnderlineStyle.None)
        {
            value = UnderlineColor.Black;
        }
        var fmt = new CHARFORMAT();
        fmt.cbSize = Marshal.SizeOf(fmt);
        fmt.dwMask = CFM_UNDERLINETYPE;
        fmt.bUnderlineType = (byte)((byte)style | (byte)value);
        //Set the underline color.
        SendMessage(this.R.Handle, EM_SETCHARFORMAT, SCF_SELECTION, ref fmt);
    }
}

使用：

var line = new Underline(this.richTextBoxEx1);
this.richTextBoxEx1.SelectionStart = 0;
this.richTextBoxEx1.SelectionLength = 1;
line.SelectionUnderlineStyle = UnderlineStyle.Dash;
line.SelectionUnderlineColor = UnderlineColor.Blue;

其它问题

1. 下划线样式好像并不是每个都有效，像 wave 样式
2. 颜色方面还没有找到是否可以完全自定义颜色的方式

如果有读者读至此处，了解相关内容，欢迎留言。