防止在自定义文本框中触发验证/验证事件 - vb.net

Question

我有一个在 vb.net (2005) 中创建的自定义文本框组件（继承自 system.windows.forms.textbox），用于处理数字数据的输入。效果很好。

如果数字没有改变，我想禁止触发验证和验证事件。如果用户通过表单和文本框中的选项卡进行切换，则会触发 validating/validated 事件。

我认为文本框可以缓存该值并将其与文本属性中列出的内容进行比较。如果它们不同，那么我希望触发验证/验证事件。如果它们相同，则不会解雇任何内容。

我似乎不知道如何抑制该事件。我尝试过重写 OnValidating 事件。那行不通。

有什么想法吗？

更新：

这是自定义文本框类。我的想法是我想在验证事件上缓存文本框的值。一旦该值被缓存，下次用户通过选项卡浏览该框时，验证事件将检查 _Cache 是否与 .Text 不同。如果是这样，那就是我想将验证事件引发到父表单（以及经过验证的事件）的时候。如果 _cache 相同，那么我不想将事件引发到表单。本质上，文本框的工作方式与常规文本框相同，只是验证和验证方法仅在文本更改时才会提升到表单。

 Public Class CustomTextBox

#Region "Class Level Variables"
    Private _FirstClickCompleted As Boolean = False 'used to indicate that all of the text should be highlighted when the user box is clicked - only when the control has had focus shifted to it
    Private _CachedValue As String = String.Empty
#End Region

#Region "Overridden methods"
    Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
        'check to see if the control has recently gained focus, if it has then allow the first click to highlight all of the text
        If Not _FirstClickCompleted Then
            Me.SelectAll() 'select all the text when the user clicks a mouse on it...
            _FirstClickCompleted = True
        End If

        MyBase.OnClick(e)
    End Sub

    Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
        _FirstClickCompleted = False 'reset the first click flag so that if the user clicks the control again the text will be highlighted

        MyBase.OnLostFocus(e)
    End Sub

    Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)

        If String.Compare(_CachedValue, Me.Text) <> 0 Then
            MyBase.OnValidating(e)
        End If
    End Sub

    Protected Overrides Sub OnValidated(ByVal e As System.EventArgs)
        _CachedValue = Me.Text
        MyBase.OnValidated(e)
    End Sub
#End Region

End Class

更新2：

感谢xpda，解决方案很简单（简单到我不明白:)）。将 OnValidating 和 OnValidated 替换为（还需要一个布尔值来记录状态）：

Protected Overrides Sub OnValidating(ByVal e As System.ComponentModel.CancelEventArgs)
    If String.Compare(_CachedValue, Me.Text) <> 0 Then
        _ValidatingEventRaised = True
        MyBase.OnValidating(e)
    End If
End Sub

Protected Overrides Sub OnValidated(ByVal e As System.EventArgs)
    If Not _ValidatingEventRaised Then Return

    _CachedValue = Me.Text
    _ValidatingEventRaised = False
    MyBase.OnValidated(e)
End Sub

Answer 1

您可以在 TextChanged 事件中设置一个标志，并使用该标志来判断是否在验证处理程序开始时退出。

Answer 2

尝试在您的控件中处理该事件并取消它，如下所示。

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
    e.Cancel = True
End Sub