Год рождения – число, которое вводится в текстовое поле. Если требуется ограничить возраст принимаемых на работу, для этого значения можно установить ограничения (в данном примере год рождения должен попасть в диапазон от 1950 до 1975). Кроме того, следует предотвратить возможность ошибки при вводе числа (например, нельзя допустить ввод букв). Для того чтобы можно было не вводить число с клавиатуры, а выбрать значение с помощью мыши, рядом с данным полем размещен элемент управления «Счетчик» (SpinButton). В свойствах этого элемента заданы максимальное и минимальное допустимые значения. Значения, соответствующие двум этим элементам, должны быть равны. Ниже приведены обработчики события для текстового поля ГодРождения, в которое вводится год рождения, и соответствующего счетчика AgeCount, показывающие, как можно контролировать изменение значений элементов управления и установить соответствие между значениями двух элементов:
Private SubГодРождения_Error(ByVal Number As Integer, _
ByVal Description As MSForms.ReturnString, _
ByVal SCode As Long, ByVal Source As String, _
ByVal HelpFile As String, ByVal HelpContext As Long, _
ByVal CancelDisplay As MSForms.ReturnBoolean)
MsgBox "Год рождения должен быть числом от 1950 до 1975"
‘В случае ошибки выбирается значение из счетчика:
ГодРождения.Value = Trim(Str(AgeCount.Value))
