The vb.net implements a TextBox control input that specifies the number of decimal method implementations.

Private Sub textbox1_keypress (ByVal sender as System.Object, ByVal e as System.Windows.Forms.KeyPressEventArgs) Handles t Extbox1. KeyPress
If E.keychar = Chr (8) then Exit Sub

If InStr (TextBox1. Text, ".") = 0 Then TextBox1. MaxLength = "Else TextBox1". MaxLength = 13
If Len (TextBox1. Text)-InStr (textbox1. Text, ".") = 5 and Len (textbox1. Text) <> 5 Then E.keychar = CHR (0)
If Len (TextBox1. Text) = 7 and InStr (TextBox1. Text, ".") = 0 Then
E.keychar = "."
Else
e.handled = False
End If
If E.keychar = Chr and InStr (textbox1. Text, ".") = 0 Then Exit Sub
If E.keychar < Chr (Or e.keychar > chr) then E.keychar = Chr (0)
End Sub

Implement textbox can only input x.y decimal, maximum 7 bits, y maximum 5 bits.

The vb.net implements a TextBox control input that specifies the number of decimal method implementations.