キープレスイベントで、テキストボックスの全文を取得することは

Question

これは私のコードです：

Private Sub prices_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles wholeprice_input_new_item.KeyPress, dozenprice_input_new_item.KeyPress, detailprice_input_new_item.KeyPress, costprice_input_new_item.KeyPress 

     Dim TxtB As TextBox = CType(sender, TextBox) 
     Dim rex As Regex = New Regex("^[0-9]*[.]{0,1}[0-9]{0,1}$") 

     'MsgBox(TxtB.Text())  

     If (Char.IsDigit(e.KeyChar) Or e.KeyChar.ToString() = "." Or e.KeyChar = CChar(ChrW(Keys.Back))) Then 
      If (TxtB.Text.Trim() <> "") Then 
       If (rex.IsMatch(TxtB.Text) = False And e.KeyChar <> CChar(ChrW(Keys.Back))) Then 
        e.Handled = True 
       End If 
      End If 
     Else 
      e.Handled = True 
     End If 

    End Sub 

最後の文字が含まれていないテキストボックスのTextプロパティが押さ

、例：私はしたい

Text entered = "12.1" 
TxtB.Text = "12." 

Text entered = "11.." 
TxtB.Text = "11." 

Text entered = "12" 
TxtB.Text = "1" 

すべての文字を検証します。どのようにしてイベントのkeypressをテキストボックスのすべての文字を検証できるようにするのですか？

Answer 1

問題は、KeyPressイベントで、押されているキーがまだテキストボックスに追加されていないことです。既存のテキストに押されています文字を追加することができ、このような何か：

Dim TxtB As TextBox = CType(sender, TextBox) 
If (Char.IsDigit(e.KeyChar) OrElse e.KeyChar = "."c Then 
    Dim fullText As String = TxtB.Text & e.KeyChar 
    'Do validation with fullText 
End If 

Answer 2

は実際には、それよりも少し複雑だ - ユーザーは、例えば、バックスペースキーを押した場合はどう？代わりにTextChangedイベントを使用することをお勧めします。このイベントは、最後に押されたキーによってTextプロパティが更新された後に発生します。