Ошибка ввода

@avvful · Регистрация: 28.09.2013

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

Ребята, такая ситуация: Нужно что бы выбивало ошибку если ввожу в TextBox буквы, но когда делаю и задаю число с "-" - выбивает ошибку, т.е считает знак , как букву. Вот мой код:

Visual Basic

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
   MsgBox "Пропущено поле"
   Exit Sub
   End If
If OptionButton1.Value = True Then
   TextBox2.Text = 3 * Sin(0.5 * Application.Pi() * TextBox1.Text)
   Else
   TextBox2.Text = 0.5 * Cos(Application.Pi() * TextBox1.Text)
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
OptionButton1.Value = False
OptionButton2.Value = False
End Sub
Private Sub CommandButton3_Click()
End
End Sub
Private Sub TextBox1_Change()
If Not (IsNumeric(TextBox1.Text)) Then
MsgBox "Цифры!"
TextBox1.Text = ""
End If
End Sub

Спасибо

@Hugo121 · 20.10.2013, 18:51

Ничего не выбивает...

Visual Basic

Sub t()
    Dim s$
    s = "-25,3"
    If Not IsNumeric(s) Then MsgBox 1
End Sub

@avvful · 20.10.2013, 19:00 **[ТС]**

Уже разобралась сама, выбивало ошибку. Решила проблему так:

Visual Basic

If TextBox1.Text = "-" Then GoTo 1
    If Not (IsNumeric(TextBox1.Text)) And Not (TextBox1.Text = "") Then
    MsgBox "Ошибка!"
    TextBox1.Text = ""
 
    End If
     1
 
    End Sub

	20.10.2013, 19:00