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

Формулировка задачи:

Доброго времени суток! Нужна помощь Подскажите как организовать проверку введенных данных в textbox Нада, чтоб если введено не число выскакивало окно msgbox Это я сделал вот так
Private Sub txtParamA_Change()
 
If Not IsNumeric(txtParamA.Text) Then
QstBox = MsgBox("Необходимо ввести число!", vbOKOnly)
End If
 
End Sub
Но возникла проблема, мне надо, чтоб поле textbox очищалось Я попытался добавить
txtParamA.Text = ""
Поле очищается вот тока опять выскакивает мое окно msgBox, получается выскакивает два раза подряд если ввести не число Помогите плз....

Код к задаче: «Организовать проверку введенных данных в TextBox - VB»

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

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.933 из 5


СДЕЛАЙТЕ РЕПОСТ