KeyPress功能延迟一整步

Question

我正在编写一个程序，其中一个功能就在于：

每当用户在文本框中输入密钥时，如果密钥可以转换为整数，我希望将该值乘以然后放入另一个文本框中。

我遇到的问题是这个过程的时间安排。当我输入一个键，说“1”时，程序不会转换它，但当我输入“12”时，程序计算为“1”而不是“12”。

你能帮帮我吗？谢谢！

 Private Sub TextEdit1_KeyPress(sender As Object, e As EventArgs) Handles TextEdit1.KeyPress
    cambioCantImporte(TextEdit1, TextEdit2, LabelControl1.Text)
End Sub

Private Sub cambioCantImporte(text1 As TextEdit, text2 As TextEdit, denominacion As String)
    Dim x = Double.Parse(denominacion)

    Try
        If CInt(text1.Text) < 0 Then Exit Sub
        Dim y = CInt(text1.Text)

        If x > 0 Then
            text2.Text = CType(x * y, String)
        Else
            text2.Text = CType(CInt(x / y), String)
        End If
    Catch ex As Exception
        If text1.Text = "" Then
            text1.Text = "0"
            text2.Text = "0"
        End If
        Exit Sub
    End Try
End Sub