修改 RichTextBox 中的默认选项卡大小

Question

有没有办法更改 .NET RichTextBox 中的默认选项卡大小？ 目前似乎设置为相当于 8 个空间，这对我来说有点大。

编辑：为了澄清，我想将“\t”的全局默认设置设置为控件的 4 个空格。 据我所知，SelectionTabs 属性要求您首先选择所有文本，然后通过数组选择选项卡宽度。 如果必须的话我会这样做，但如果可能的话，我宁愿只更改全局默认值一次，这样我就不必每次都这样做。

Answer 1

我将此类与等宽字体一起使用； 它将所有制表符替换为空格。

您所要做的就是根据您的要求设置以下设计器属性：

• AcceptsTab = True
  TabSize
• ConvertTabToSpaces = True
• TabSize = 4

PS：正如@ToolmakerSteve指出的，显然这里的制表符大小逻辑非常简单：它只是将制表符替换为4个空格，这只适用于开头的制表符每行。 如果您需要改进选项卡处理，只需扩展逻辑即可。

代码

using System.ComponentModel;
using System.Windows.Forms;

namespace MyNamespace
{
    public partial class MyRichTextBox : RichTextBox
    {
        public MyRichTextBox() : base() =>
            KeyDown += new KeyEventHandler(RichTextBox_KeyDown);

        [Browsable(true), Category("Settings"), Description("Convert all tabs into spaces."), EditorBrowsable(EditorBrowsableState.Always), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)]
        public bool ConvertTabToSpaces { get; set; } = false;

        [Browsable(true), Category("Settings"), Description("The number os spaces used for replacing a tab character."), EditorBrowsable(EditorBrowsableState.Always), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)]
        public int TabSize { get; set; } = 4;

        [Browsable(true), Category("Settings"), Description("The text associated with the control."), Bindable(true), EditorBrowsable(EditorBrowsableState.Always), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)]
        public new string Text
        {
            get => base.Text;
            set => base.Text = ConvertTabToSpaces ? value.Replace("\t", new string(' ', TabSize)) : value;
        }

        protected override bool ProcessCmdKey(ref Message Msg, Keys KeyData)
        {
            const int WM_KEYDOWN = 0x100; // https://learn.microsoft.com/en-us/windows/desktop/inputdev/wm-keydown
            const int WM_SYSKEYDOWN = 0x104; // https://learn.microsoft.com/en-us/windows/desktop/inputdev/wm-syskeydown

            if (ConvertTabToSpaces && KeyData == Keys.Tab && (Msg.Msg == WM_KEYDOWN || Msg.Msg == WM_SYSKEYDOWN))
            {
                SelectedText += new string(' ', TabSize);
                return true;
            }
            return base.ProcessCmdKey(ref Msg, KeyData);
        }

        public new void AppendText(string text)
        {
            if (ConvertTabToSpaces)
                text = text.Replace("\t", new string(' ', TabSize));
            base.AppendText(text);
        }

        private void RichTextBox_KeyDown(object sender, KeyEventArgs e)
        {
            if ((e.Shift && e.KeyCode == Keys.Insert) || (e.Control && e.KeyCode == Keys.V))
            {
                SuspendLayout();
                int start = SelectionStart;
                string end = Text.Substring(start);
                Text = Text.Substring(0, start);
                Text += (string)Clipboard.GetData("Text") + end;
                SelectionStart = TextLength - end.Length;
                ResumeLayout();
                e.Handled = true;
            }
        }

    } // class
} // namespace

Answer 2

您可以通过设置 SelectionTabs 财产。

private void Form1_Load(object sender, EventArgs e)
{
    richTextBox1.SelectionTabs = new int[] { 100, 200, 300, 400 };
}

更新：
顺序很重要......

如果您在初始化控件的文本之前设置选项卡，则不必在设置选项卡之前选择文本。

例如，在上面的代码中，这将保留带有原始 8 个空格制表位的文本：

richTextBox1.Text = "\t1\t2\t3\t4";
richTextBox1.SelectionTabs = new int[] { 100, 200, 300, 400 };

但这将使用新的：

richTextBox1.SelectionTabs = new int[] { 100, 200, 300, 400 };
richTextBox1.Text = "\t1\t2\t3\t4";

Answer 3

Winforms 没有用单个数字设置 RichTexBox 的默认制表符大小的属性，但如果您准备深入研究富文本框的 Rtf 并对其进行修改，则可以使用一个设置，称为： “\deftab”。 后面的数字表示缇数（1 点 = 1/72 英寸 = 20 缇）。 标准选项卡大小为 720 缇的生成的 Rtf 可能类似于：

{\rtf1\ansi\ansicpg1252\deff0\deflang2057\deftab720{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}
\viewkind4\uc1\pard\f0\fs41
1\tab 2\tab 3\tab 4\tab 5\par
}

如果您需要将缇转换为像素，请使用受 将像素转换为点：

int tabSize=720;
Graphics g = this.CreateGraphics();
int pixels = (int)Math.Round(((double)tabSize) / 1440.0 * g.DpiX);
g.Dispose();

Answer 4

奇怪的是，一直没有人提出这个方法）

我们可以继承RichTextBox并重写CmdKey处理程序（ProcessCmdKey)
它看起来像这样：

public class TabRichTextBox : RichTextBox
{
    [Browsable(true), Category("Settings")]
    public int TabSize { get; set; } = 4;

    protected override bool ProcessCmdKey(ref Message Msg, Keys KeyData)
    {
            
        const int WM_KEYDOWN = 0x100;       // https://learn.microsoft.com/en-us/windows/desktop/inputdev/wm-keydown
        const int WM_SYSKEYDOWN = 0x104;    // https://learn.microsoft.com/en-us/windows/desktop/inputdev/wm-syskeydown
        // Tab has been pressed
        if ((Msg.Msg == WM_KEYDOWN || Msg.Msg == WM_SYSKEYDOWN) && KeyData.HasFlag(Keys.Tab))
        {
            // Let's create a string of spaces, which length == TabSize
            // And then assign it to the current position
            SelectedText += new string(' ', TabSize);

            // Tab processed
            return true;
        }
        return base.ProcessCmdKey(ref Msg, KeyData);
    }
}

现在，当您按Tab，控制区域将插入指定数量的空格，而不是\t

Answer 5

如果您有一个仅用于显示（只读）固定间距文本的 RTF 框，那么最简单的事情就是不要搞乱制表位。 只需用空格替换它们即可。

如果您希望用户可以输入某些内容并使用 Tab 键前进，您还可以通过覆盖 OnKeyDown() 来捕获 Tab 键并打印空格。