Мы создавая приложения обычно создаем формы. Эти формы могут содержать разные данные, как например эта.
И у нас есть необходимость проверять данные которые вводит пользователь. Например индекс должен всегда состоять из цифр. Одной из идей этой проверки является использование событий получения и потери фокуса. Основано это на том, что только один элемент в Windows фокус которого устанавливается курсором мышки. И обычно элементы управления позволяют обрабатывать эти события.
GotFocus - получение фокуса ввода LastFocus - потеря фокуса ввода.
Вот теперь мы можем написать код, который будет проверять, что в первом поле в индексе находится число. Пишем код:
Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox "введите индекс плиз.." Text1.SetFocus End If End Sub
Теперь мы просто не сможем уйти с этого поля пока не введен правильный номер.
Естественно нужно предусмотреть ситуацию если пользователь вообще передумает что то вводить. В данном варианте если пользовать так и не сможет ввести правильное число то программа просто закроется.
Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then rez = MsgBox("введите индекс плиз..", vbOKCancel, "Error") If (rez = vbCancel) Then End End If Text1.SetFocus End If End Sub