Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/46: Рейтинг темы: голосов - 46, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 30.11.2012
Сообщений: 51
1

Как ввести запрет на ввод букв в TextBox

22.12.2012, 19:53. Показов 9466. Ответов 8
Метки нет (Все метки)

Как сделать так что бы ввод букв был запрещен, помоги пожалуйста!!!
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        i = 0
        If TextBox1.Text <> "" Then i = i + 1
        If Val(TextBox1.Text) > 0 Then i = i + 1
        If Val(TextBox1.Text) < 100 Then i = i + 1
        If TextBox1.Text = "" Then
            MsgBox("Введите число")
        End If
        If Val(TextBox1.Text) < 0 Then
            MsgBox("МЕНЬШЕ НУЛЯ, ХИТРЕЦ")
        End If
        If Val(TextBox1.Text) > 100 Then
            MsgBox("Куда так много?! не больше 100!")
        End If
        If RadioButton1.Checked = False And RadioButton2.Checked = False And RadioButton3.Checked = False Then
            MsgBox("УРОВЕНЬ ВЫБЕРИ")
        End If
        If RadioButton1.Checked = True Then
 
        End If
        Dim Therandom As New Random
        If i = 3 Then
            If RadioButton1.Checked = True Then
                If TextBox1.Text > 10 Then
                    MsgBox("Число не должно быть больше 10")
                ElseIf TextBox1.Text < 11 Then
                    Label1.Visible = False
                    Label2.Visible = False
                    Label3.Visible = False
                    Label1.Text = Therandom.Next(1, 10)
                    If TextBox1.Text = Label1.Text Then
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU ARE CORRECT!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    Else
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU LOSE!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    End If
                End If
            ElseIf RadioButton2.Checked = True Then
                If TextBox1.Text > 50 Then
                    MsgBox("Число не должно быть больше 50")
                ElseIf TextBox1.Text < 51 Then
                    Label1.Visible = False
                    Label2.Visible = False
                    Label3.Visible = False
                    Label1.Text = Therandom.Next(1, 50)
                    If TextBox1.Text = Label1.Text Then
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU ARE CORRECT!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    Else
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU LOSE!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    End If
                End If
            ElseIf RadioButton3.Checked = True Then
                If TextBox1.Text > 100 Then
                    MsgBox("Число не должно быть больше 100")
                ElseIf TextBox1.Text < 101 Then
                    Label1.Visible = False
                    Label2.Visible = False
                    Label3.Visible = False
                    Label1.Text = Therandom.Next(1, 100)
                    If TextBox1.Text = Label1.Text Then
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU ARE CORRECT!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    Else
                        Label1.Visible = True
                        Label2.Visible = True
                        Label3.Visible = True
                        Label3.Text = "YOU LOSE!!"
                        Button1.Enabled = False
                        TextBox1.Enabled = False
                    End If
                End If
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Enabled = True
        Button1.Enabled = True
    End Sub
End Class
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2012, 19:53
Ответы с готовыми решениями:

Запрет на ввод цифр в TextBox
Нужно, чтобы в TextBox вводились только буквы. Запрет на ввод букв удалось реализовать, а наоборот...

Запрет ввод букв и некоторых символов в Datagridview
У меня есть DataGridview. Хочу чтобы кроме цифры 1,2,3,4,5 и буква Н вводить в ячейки ничего...

Ввод в TextBox всего, кроме русских букв
Извините за повторную тему, но не дописал в той: Как, чтобы в текстбокс можно вводить латиницу,...

Как поставить запрет на ввод букв в форме textBox?
Есть процедура. Что в ней написать, чтобы сделать запрет на ввод букв к примеру? procedure...

8
0 / 0 / 0
Регистрация: 30.11.2012
Сообщений: 51
22.12.2012, 20:06  [ТС] 2
Как ввести запрет на ввод букв в TextBox


Как ввести запрет на ввод букв в TextBox
0
521 / 483 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
22.12.2012, 20:17 3
vb.net
1
2
3
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 Then e.Handled = True
    End Sub
3
0 / 0 / 0
Регистрация: 30.11.2012
Сообщений: 51
22.12.2012, 20:28  [ТС] 4
Спасибо)))
0
0 / 0 / 0
Регистрация: 30.11.2012
Сообщений: 51
22.12.2012, 20:32  [ТС] 5
А как сделать так что бы я не мог ставить цифру 0 перед числом, типо 9 и 09, так как 09 он считает числом и выдает что я проиграл
Как ввести запрет на ввод букв в TextBox
0
0 / 0 / 0
Регистрация: 30.11.2012
Сообщений: 51
22.12.2012, 20:38  [ТС] 6
И можете описать пожалуйста каждое слово
vb.net
1
2
3
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 Then e.Handled = True
    End Sub
0
521 / 483 / 98
Регистрация: 25.12.2011
Сообщений: 1,176
23.12.2012, 14:19 7
Вот так можно убирать 0 перед цифрами:
vb.net
1
2
3
4
5
6
7
8
9
10
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim StartSelect As Integer = 0
        StartSelect = TextBox1.SelectionStart
        If TextBox1.Text.Length >= 2 Then
            If Mid(TextBox1.Text, 1, 1) = "0" Then
                TextBox1.Text = Mid(TextBox1.Text, 2, TextBox1.Text.Length - 1)
                TextBox1.SelectionStart = StartSelect
            End If
        End If
    End Sub
Или тоже самое только на кнопку поставить.

vb.net
1
2
If Not IsNumeric(e.KeyChar) AndAlso Asc(e.KeyChar) <> 8 Then e.Handled = True
'Если в TextBox'e не цифры то e.Handled = True не надо передавать событие
1
-14 / -8 / 0
Регистрация: 18.07.2016
Сообщений: 85
01.10.2016, 21:18 8
vb.net
1
e.Handled = Not e.KeyChar Like "[1-9" + Chr(8) + "]"
0
40 / 41 / 13
Регистрация: 10.08.2016
Сообщений: 310
07.10.2016, 13:20 9
Вот еще один
vb.net
1
2
3
If TextBox1.Text = "" or Isnumeric(Textbox1.text)=false Then
            MsgBox("Введите число")
        End If
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2016, 13:20

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как в VBA в поле Textbox сделать запрет на ввод более одного слова (или запрет на ввод пробелов)?
Добрый день. Нужно, чтобы в поле TextBox можно было ввести не более одного слова (в противном...

Запрет на ввод букв в TextBox
Ребят, нужна ваша помощь. Нужно сделать так, чтобы при вводе любых символов (букв, точек, запятых и...

Как сделать запрет на ввод цифр в textBox?
Как сделать запрет на ввод цифр в textBox

Как организовать запрет на ввод букв и знаков?
1. Подскажите пожалуйста, как организовать запрет на ввод букв и знаков. То есть, есть задачи, где...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.