Организовать проверку введенных данных в TextBox

02.01.2011, 22:58. **Показов** 3033. **Ответов** 2

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

Доброго времени суток!

Нужна помощь

Подскажите как организовать проверку введенных данных в textbox

Нада, чтоб если введено не число выскакивало окно msgbox

Это я сделал вот так

Visual Basic

Private Sub txtParamA_Change()
 
If Not IsNumeric(txtParamA.Text) Then
QstBox = MsgBox("Необходимо ввести число!", vbOKOnly)
End If
 
End Sub

Но возникла проблема, мне надо, чтоб поле textbox очищалось

Я попытался добавить

Visual Basic

1	txtParamA.Text = ""

Поле очищается вот тока опять выскакивает мое окно msgBox, получается выскакивает два раза подряд если ввести не число

Помогите плз....

@gaw · 02.01.2011, 23:23

Visual Basic

If Not IsNumeric(txtParamA.Text) And txtParamA.Text <> "" Then
QstBox = MsgBox("Необходимо ввести число!", vbOKOnly)
txtParamA.Text = ""
End If

03.01.2011, 00:10

Спасибо!
Работает!

hunterr
	03.01.2011, 00:10	3
	Спасибо! Работает!

	03.01.2011, 00:10

Опции темы

Организовать проверку введенных данных в TextBox

Решение