Как ввести запрет на ввод букв в TextBox - Visual Basic .NET - Ответ 3900549

@Golenopolsky · Регистрация: 30.11.2012

Author24 — интернет-сервис помощи студентам

Как сделать так что бы ввод букв был запрещен, помоги пожалуйста!!!

VB.NET

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

Вернуться к обсуждению:
Как ввести запрет на ввод букв в TextBox Visual Basic .NET

Следующий ответ

Другие темы раздела
Visual Basic .NET Как вывести данные из GridView на график Доброго времени суток. Имеется курсач, в ходе которого я ввожу необходимые данные, вывожу их в DataGridView, считаю необходимые коэфф. и вывожу все на график Так вот с последним возникли некоторые проблемы, подскажите, как вывести данные из GridView на график. P.S. При необходимость могу выложить готовую часть кода. https://www.cyberforum.ru/ vb-net/ thread742196.html	Visual Basic .NET Вычисление интеграла методом трапеций Здравствуйте! Нужна помощь! Нужно закодировать в консольном приложении!! Методом трапеции определить значение интеграла от a до b f(x)dx при заданном числе разбиений n. В качестве функции f(x) использовать таблицу из 60 точек. Я в ступоре! что делать? Вот что я сделал: WriteLine("Введите a,b,n: ") Dim a = CDbl(ReadLine()), b = CDbl(ReadLine()), n = CDbl(ReadLine()) Dim x...
Visual Basic .NET Как изменять размерность в многомерном массиве например есть ряд переменных которые меняются при каждом нажатии на кнопку с одномерным массивом все понятно, а как быть с двумерным у меня при первом нажатии все нормально массив заполняется а при втором нажатии на кнопку ругается не пойму в чем дело переменная "g2" -глобальная и при каждом нажатии увеличивается на +1 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As... https://www.cyberforum.ru/ vb-net/ thread741960.html	Visual Basic .NET Как сделать так что бы программа подгружала рандомно 40 любых вопросов из 320 Здравствуйте. Появилась такая проблема: Нам дали файл с тестами такого формата: 1. В чём состоит методика самомодифицирующихся правил? (!) Методика позволяет реализовать самообучение на основе примитивных алгоритмов обучения в режиме реального времени. (?) Методика позволяет реализовать обучение с учителем на основе примитивных алгоритмов обучения в режиме реального времени. (?) Методика... https://www.cyberforum.ru/ vb-net/ thread741600.html
Включение в строку всех TextBox и сохранение ее в один файл Visual Basic .NET Всеммммммм дарова форумчане доброго времени всем. И так к делу мне надо сохранить текст из 6 TextBox'ов в формат .txt Но мне надо еще и дописать кое что вообщем должно получится так Ваше имя: TextBox1.Text Ваша фамилия: TextBox2.Text Ваше отчество: TextBox3.Text Ваш возраст: TextBox4.Text Когда ваш день рождения: TextBox5.Text Ваш рос: TextBox6.Text Как то так должно быть.В сохраненном...	Visual Basic .NET Как подключиться к источнику данных программно (без мастеров) https://www.cyberforum.ru/ vb-net/ thread741279.html Как обойтись без перетаскивания? Среда Visual Basic STUDIO’2010 Professional В приложении (проекте) много форм. В т.ч. и MDI_forma 1. В каком событии подсоединиться к базе, чтобы Элементы управления типа DataGridView Можно было заполнить на всех формах? 2. Как заполнить DataGridView не используя Перетаскивание? СПАСИБО.
Visual Basic .NET Как устроена БД MS Sql Server и как к ней подключиться https://www.cyberforum.ru/ vb-net/ thread741249.html Среда Visual Basic STUDIO’2010 Professional 1. Тип файла бвзы Access - .MDB А какой в базе MS Sql Server? 2. Если база Access содержится компактно, в одном файле, Например, Northwind.mdb, то как это обстоит с базой MS Sql Server? Она в нескольких файлах, как Oracle? 3. У меня на компьютере установлен STUDIO'2010. Не могу скопировать учебные базы для MS Sql Server Борей и Pubs. На...	Visual Basic .NET Подсчитать количество точек пересечения прямых Задано множество прямых на плоскости (коэффициентами своих уравне-ний). Подсчитать количество точек пересечения этих прямых надо сделать в С#
Visual Basic .NET Вывести текст до определенного слова Есть текст который выводиться на RichTextBox. Нужно вывести всё до определенного слова. Грубо говоря остальной текст просто удалить. https://www.cyberforum.ru/ vb-net/ thread740870.html	Visual Basic .NET Считывание свойства Description исполняемого файла Здравствуйте, у файла .exe есть в свойствах поле Description, например у Acrobat.exe, написано Acrobat Reader Professional, скажите, пожалуйста, возможно ли программно получить это значение. В классах File и FileInfo, таких методов нет, может есть другой класс в VBA? https://www.cyberforum.ru/ vb-net/ thread740690.html
Как создать бесформенное приложение Visual Basic .NET Добрый день знатоки Visual Basic 2010 Express! Мне нужно написать программу без формы, что бы просто отрабатывала. Попробовал Console но там тоже выскакивает окно типа DOS. Что делать? Или ничего сделать нельзя!? С уважением Владимир	Visual Basic .NET Как прочитать XML из String Подскажите способ чтения XML из переменной string Спасибо! https://www.cyberforum.ru/ vb-net/ thread739494.html

	22.12.2012, 19:53