1

我有一个使用实现 Convert 和 ConvertBack 的转换器绑定到 DateTime 的 TextBox。UpdateSourceTrigger 设置为 PropertyChanged，以便在用户键入时完成验证。这是问题所在：

  1. 用户输入一个字符
  2. 转换器将其解析为 DateTime
  3. ViewModel 中的属性已更新和验证
  4. Converter 然后将此 DateTime 转换回字符串并更改文本框中的字符串

这是不可取的，因为文本可以更改为完整日期，而用户只键入了部分日期。如何阻止 UI 这样做？请注意，由于此功能，这只是从 .NET 3.5 升级到 4.0 后才成为问题：

http://karlshifflett.wordpress.com/2009/05/27/wpf-4-0-data-binding-change-great-feature/

谢谢你的帮助！

4

2 回答 2

1

您可以使用Data Validation，它允许您在属性获取类型值之前检查类型值是否满足特定条件（例如正则表达式）-> 只有在满足条件时才会调用 Converter。
另一个建议是，如果键入的值是 DateTime，则通过正则表达式签入 Converter 并仅在匹配时进行转换。

于 2012-10-30T12:38:36.983 回答
0

尝试这个：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limit the length of the number that can be entered to 12 (This is arbitrary)
    If Len(TextBox1.Text) > 12 Then
        KeyAscii = 0
        Exit Sub
    End If

    If KeyAscii < 32 Then
        Exit Sub    ' let it go, it is a control char like backspace
    End If

    If InStr("0123456789.", Chr$(KeyAscii)) > 0 Then
        If InStr(TextBox1.Text, ".") > 0 Then
            If Chr$(KeyAscii) = "." Then
                KeyAscii = 0    ' do not allow more than one decimal point
                Beep
                MsgBox "Only 2 decimal places to be allowed", vbCritical
                Exit Sub

            ElseIf Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, ".") + 1)) >= 2 Then
                KeyAscii = 0    ' do not allow more than 2 digits past decimal point
                Beep
                MsgBox "Only 2 decimal places to be allowed", vbCritical
                Exit Sub

            End If
        End If
    Else
        Beep
        KeyAscii = 0
    End If

    If Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, "$") + 1)) >= 1 Or KeyAscii < 32 Then
        If Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, ".") + 1)) >= 2 Then

            If KeyAscii < 32 Then Beep: Exit Sub
            TextBox1.Text = Format(TextBox1.Text, "$#,###")
        Else
            If KeyAscii < 32 Then Beep: Exit Sub
            TextBox1.Text = TextBox1.Text
        End If
    ElseIf Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, "$") + 1)) >= 0 Or KeyAscii < 32 Then
        If Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, ".") + 1)) >= 2 Then

            If KeyAscii < 32 Then Beep: Exit Sub
            TextBox1.Text = Format(TextBox1.Text, "$#,###")
        Else
            If KeyAscii < 32 Then Beep: Exit Sub
            TextBox1.Text = ""
            TextBox1.Text = "$" & TextBox1.Text
        End If
    End If


End Sub
Private Sub TextBox1_Change()

    If Len(Mid$(TextBox1.Text, InStr(TextBox1.Text, ".") + 1)) >= 3 Then
        TextBox1.Value = Format(PaidCreditCardForfrm.TextBox1.Value, "$#,###")
    End If

End Sub
于 2015-01-01T02:12:20.993 回答