在 C# 中的文本框中粘贴限制

Question

我已经完成了 textbox.shortcut= false，因此我限制在 textbox 中复制和粘贴。但我只想粘贴数值（这里我还限制了 key_press 只能粘贴数值），但完全粘贴不起作用，我只想粘贴数值。我怎样才能做到这一点？

Answer 1

我会在 中处理该问题TextChanged 事件。
这将捕获粘贴、拖放和所有其他可能的情况。

Answer 2

如果您要捕获按键，您可以检查 Ctrl-V 并使用类似的内容检查剪贴板内容，

   IDataObject clipData = Clipboard.GetDataObject();
   string data = (string)clipData.GetData(System.Windows.Forms.DataFormats.Text);

然后检查 (this.Text + data) 看看它是否可以接受。

Answer 3

如果您基于文本框构建自己的控件，则可以覆盖文本框的 WndProc 事件：

    #region -- WndProc(ref Message m) Event Handler --
    protected override void WndProc(ref Message m)
    {
        if (m.Msg == WM_PASTE)
        {
            //your code here
        }
    }
    #endregion

Answer 4

在 KeyDown 事件中尝试一下

 Public Sub TextBoxNumeric_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
    Try
        ' Allow navigation keyboard arrows
        If fAllowNavigationArrows(e) Then

            ' Handle pasted Text
            If e.Control AndAlso e.KeyCode = Keys.V Then
                Dim strInput As String = Clipboard.GetText()
                Dim strOutput As String = ""
                Dim intStart As Integer
                Dim strNewTxt As String

                e.SuppressKeyPress = True

                ' Preview paste data (removing non-number characters)
                For intI As Integer = 0 To strInput.Length - 1
                    If Char.IsDigit(strInput(intI)) Or (strInput(intI) = "." And strOutput.Length > 0 And strOutput.IndexOf(".") < 0) Then
                        strOutput += strInput(intI).ToString()
                    End If
                Next

                ' Select TextBox Object
                With DirectCast(sender, TextBox)

                    .SelectAll()
                    intStart = .SelectionStart
                    strNewTxt = .Text
                    strNewTxt = strNewTxt.Remove(.SelectionStart, .SelectionLength)

                    ' Remove selected text
                    strNewTxt = strNewTxt.Insert(.SelectionStart, strOutput)

                    ' Paste
                    .Text = strNewTxt
                    .SelectionStart = intStart + strOutput.Length

                End With

            End If

        End If

    Catch ex As Exception
        Throw ex
    End Try

Answer 5

也许使用 onchange 事件，每次更改文本时，尝试解析它，排除每个非数字字符？

Answer 6

例如，如果您使用 MaskedTextBox 控件并将掩码设置为 #####，那么您可以复制 a123b 这样的值并将其粘贴到掩码编辑控件中，它只会粘贴 123。