RichTextBox - 即使在粘贴后也保留原始格式(字体)

时间:2009-12-29 11:33:59

标签: vb.net fonts richtextbox paste

我需要使用RichTextBox,而不是普通的文本框,因为它保持了插入符号位置的方式,从一行到另一行。 但是我需要始终将文字保持为相同的字体,即使它被粘贴了。

目前我已经选择了整个文本并将字体更改为原始文本(Lucida控制台),但是当它粘贴到蓝色时它看起来很糟糕。

3 个答案:

答案 0 :(得分:3)

如果以编程方式处理粘贴,请不要使用Paste方法。而是使用Clipboard.GetDataObject()。GetData(DataFormats.Text)来获取字符串中的文本,然后使用Rtf或Text属性将文本添加到RichTextBox:

string s = (string)Clipboard.GetDataObject().GetData(DataFormats.Text);
richTextBox.Text += s;

否则你可以按下 Ctrl + V 键:

void RichTextBox1_KeyDown(object sender, KeyEventArgs e)
{
    if(e.Control == true && e.KeyCode == Keys.V)
    {
        string s = (string)Clipboard.GetDataObject().GetData(DataFormats.Text);
        richTextBox.Text += s;
        e.Handled = true; // disable Ctrl+V
    }
}

答案 1 :(得分:2)

Darin的方法忽略了插入位置并始终附加到文本的末尾。

实际上,有更好的方法。使用RichTextBox.Paste()的重载:

DataFormats.Format plaintext_format = DataFormats.GetFormat(DataFormats.Text);
this.Paste(plaintext_format);

对我来说就像魅力一样。

答案 2 :(得分:0)

@Darin& @ idn的答案很好,但是在粘贴以下富文本时我无法工作:

   This is text after an arrow.
This is a new line

字体将始终更改为WingDings。我从MS Word中复制了这个:

Text copied from MS Word

具体来说,@idn上面描述的纯文本格式方法确实只是粘贴纯文本,但是发生了一些字体也发生了变化。

以下代码处理KeyUp事件,只选择所有文本并替换其原始颜色和字体(即格式)。为了确保在屏幕上看不到这一点作为闪烁,使用了special method of disabling window repaint events。在KeyDown事件中发生控制绘制禁用,RichTextBox控件自己处理粘贴事件,然后在结束时重新启用控制绘图。最后,这只发生在CTL + V和SHIFT + INS上,两者都是标准的粘贴命令:

    /// <summary>
    /// An application sends the WM_SETREDRAW message to a window to allow changes in that 
    /// window to be redrawn or to prevent changes in that window from being redrawn.
    /// </summary>
    private const int WM_SETREDRAW = 11; 

    private void txtRichTextBox_KeyDown(object sender, KeyEventArgs e)
    {
        // For supported Paste key shortcut combinations, suspend painting
        // of control in preparation for RTF formatting updates on KeyUp
        if ((e.Control && !e.Shift && !e.Alt && e.KeyCode == Keys.V) || // CTL+V
            (!e.Control && e.Shift && !e.Alt && e.KeyCode == Keys.Insert)) // SHIFT+INS
        {
            // Send Suspend Redraw message to avoid flicker. Drawing is 
            // restored in txtRichTextBox_KeyUp event handler
            // [this.SuspendLayout() doesn't work properly] 
            Message msgSuspendUpdate = Message.Create(
                txtRichTextBox.Handle, WM_SETREDRAW, IntPtr.Zero, IntPtr.Zero);
            NativeWindow window = NativeWindow.FromHandle(txtRichTextBox.Handle);
            window.DefWndProc(ref msgSuspendUpdate);
        }
    }

    private void txtRichTextBox_KeyUp(object sender, KeyEventArgs e)
    {
        // Following supported Paste key shortcut combinations, restore
        // original formatting, then resume painting of control.
        if ((e.Control && !e.Shift && !e.Alt && e.KeyCode == Keys.V) || // CTL+V
            (!e.Control && e.Shift && !e.Alt && e.KeyCode == Keys.Insert)) // SHIFT+INS
        {
            // Layout already suspended during KeyDown event

            // Capture cursor position. Cursor will later be placed 
            // after inserted text
            int selStart = txtRichTextBox.SelectionStart;
            int selLen = txtRichTextBox.SelectionLength;

            // Replace all text with original font & colours
            txtRichTextBox.SelectAll();
            txtRichTextBox.SelectionFont = txtRichTextBox.Font;
            txtRichTextBox.SelectionColor = txtRichTextBox.ForeColor;
            txtRichTextBox.SelectionBackColor = txtRichTextBox.BackColor;

            // Restore original selection
            txtRichTextBox.SelectionStart = selStart;
            txtRichTextBox.SelectionLength = selLen;

            txtRichTextBox.ScrollToCaret();

            // Resume painting of control
            IntPtr wparam = new IntPtr(1); // Create a C "true" boolean as an IntPtr
            Message msgResumeUpdate = Message.Create(
                txtRichTextBox.Handle, WM_SETREDRAW, wparam, IntPtr.Zero);
            NativeWindow window = NativeWindow.FromHandle(txtRichTextBox.Handle);
            window.DefWndProc(ref msgResumeUpdate);
            txtRichTextBox.Invalidate();
            txtRichTextBox.Refresh();
        }
    }

这种方法的一个警告是,由于事件未被抑制(e.Handled = true;),因此支持标准CTL + Z(撤消)操作。但是,此过程也会通过撤消格式更改来循环。我不认为这是一个大问题,因为下次粘贴文本时,格式会再次被删除。

这种方法并不完美,因为如果将文本从RichTextBox复制并粘贴到另一个应用程序中,则新应用的格式仍然存在,但在我看来,这比丢失撤消功能要好。如果撤消功能不重要,则替换文本选择和格式化应用程序,替换文本以删除所有格式,根据以下答案:https://stackoverflow.com/a/1557270/3063884

var t = txtRichTextBox.Text;
txtRichTextBox.Text = t;