Мне нужно текстовое поле, которое не добавляет отрицательные значения - PullRequest
Новая
       25

Мне нужно текстовое поле, которое не добавляет отрицательные значения

0 голосов
/ 14 марта 2019

У меня есть текстовое поле, которое добавляет свое значение к метке, когда я нажимаю кнопку (метка имеет целочисленное значение), и мне нужно предотвратить воздействие на целочисленное значение, когда отрицательное число, ничто или другие нечисловые символы вводятся в текстовое поле и автоматически отключаются, когда целочисленное значение превышает 100. Пока это мой код: 

Private Sub ropi_btn_Click(ByVal sender 
As System.Object, ByVal e As 
System.EventArgs) Handles 
ropi_btn.Click
    numlabel.Text = ropi
    ropi = Val(textbox.Text) + ropi
    If Label1.Text > 100 Then 
       ropi_btn.Enabled = False
    If Label1.Text > 100 Then 
       txtbox.Enabled = False
    If Label1.Text > 100 Then 
       MessageBox.Show("The integer 
       value is over 2 digits so it is 
       now disabled!")
    If Not IsNumeric(txtbox.Text) Then 
       MessageBox.Show("The value is 
       invalid.  Please try again")
    If txtbox.Text = "" Then 
       Messagebox.Show("The value was invalid.  
       Please try again")
    If txtbox.Text = "-" Then 
       Messagebox.Show("The value was invalid.  
       Please try again")

End Sub

Моя проблема в том, что когда я набираю отрицательные числа, появляется окно сообщения, но оно все равно уменьшается. И когда я ничего не помещаю в текстовое поле, значение автоматически становится равным 0. Любая помощь?

...