Question

有没有办法在多行文本框或richtextbox上显示网格线？也许通过覆盖OnPaint事件？

我正在使用文本框插入地址信息，对于每一行，它将是：

街
  市
  国家
  等

我在C＃中使用WinForms。

Answer 1

您可以使用以下方法之一来完成：

自定义TextBox的绘制
使用RTF技巧

以下是这两种方式的截图：

如果你真的想要这个功能，我推荐使用第一种方法。

1-自定义TextBox的绘制

自定义文本框绘制并不简单。您可以以不同的方式自定义TextBox的绘制。这是自定义绘制TextBox的两种方法。

1-1使用NativeWindow自定义TextBox的绘制

这样应该使用NativeWindow对TextBox进行子类化，并在窗口过程中处理WM_PAINT。这是一个完整的代码清单，可以实现您的需求。

要使用代码，只需将文本框传递给CustomPaintTextBox的实例即可：

var t = new CustomControls.CustomPaintTextBox(this.textBox1);

这是CustomPaintTextBox的代码

using System;
using System.Collections.Generic;
using System.Text;
using System.Windows.Forms;
using System.Drawing;
namespace CustomControls
{
    public class CustomPaintTextBox : NativeWindow
    {
        private TextBox parentTextBox;
        private const int WM_PAINT = 15;
        protected override void WndProc(ref Message m)
        {
            switch (m.Msg)
            {
                case WM_PAINT: 
                    // invalidate textbox to make it refresh
                    parentTextBox.Invalidate();
                    // call default paint
                    base.WndProc(ref m);
                    // draw custom paint
                    this.CustomPaint();
                    break;
                default:
                    base.WndProc(ref m);
                    break;
            }
        }
        public CustomPaintTextBox(TextBox textBox)
        {
            this.parentTextBox = textBox;
            textBox.TextChanged += textBox_TextChanged;
            // subscribe for messages
            this.AssignHandle(textBox.Handle);
        }
        void textBox_TextChanged(object sender, EventArgs e)
        {
            CustomPaint();
        }
        private void CustomPaint()
        {
            var g= this.parentTextBox.CreateGraphics();
            float y = 0;
            var lineHeight = g.MeasureString("X", this.parentTextBox.Font).Height;
            while (y < this.parentTextBox.Height)
            {
                y += lineHeight;
                g.DrawLine(Pens.Red, 0f, y, (float)this.parentTextBox.Width, y);
            }
        }
    }
}

这个解决方案的优点是安静简单，不需要新的继承文本框。

1-2-创建透明文本框

这样您首先应创建一个透明文本框，然后将其背景设置为您想要的网格线。由于这种方式也是创建自定义绘图文本框的一种方式，您也可以自定义该文本框的绘制并将其弯曲到您的意愿。

以下是涵盖Transparent TextBox和Transparent RichTextBox的2篇文章的链接：

2-使用RTF技巧

有一些rtf技巧可用于在RichTextBox中显示网格线。最好的技巧之一是在RTF中使用表格。在下面的代码我们使用了3行，其中包含一个宽度为2000缇的单元格：

this.richTextBox1.SelectAll();
this.richTextBox1.SelectedRtf =
@"{\rtf1\ansi\deff0
{\trowd
\cellx2000
\intbl Street\cell
\row}
{\trowd
\cellx2000
\intbl City\cell
\row}
{\trowd
\cellx2000
\intbl Country\cell
\row}
}";

重要提示：在代码编辑器中粘贴上面的代码时，请注意不要在richtext字符之前放置缩进。如果Visual Studio在它们之前插入缩进，则删除所有缩进。

Answer 2

从这段代码开始：

StartDisabled=yes

Answer 3

可能是RTF模板文件：

{\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil\fcharset0 Calibri;}}
{\trowd \trgaph180
\cellx3440\pard\intbl [0]\cell
\row
\trowd \trgaph180
\cellx3440\pard\intbl [1]\cell
\row
\trowd \trgaph180
\cellx3440\pard\intbl [2]\cell
\row
\para}

Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("C:\temp\template.rtf")
Dim sRTF As String = fileContents.Replace("[0]", "line 1").Replace("[1]", "line 2").Replace("[2]", "line 3")
RichTextBox1.Rtf = sRTF

向TextBox / RichTextBox添加指南

3 个答案: