Проверка ввода только заглавных букв производится с помощью следующего кода
|
1 2 3 4 5 6 7 8 9 |
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Select Case e.KeyChar Case "0" To "9", "," Case Else e.KeyChar = "" MsgBox("Разрешается ввод только цифр и запятой") End Select End Sub End Select |