Ввод в текстовое поле только чисел, которые больше 100 - VB

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

Нужно ввести в текстовое поле только цифры больше 100. как это сделать? код, если можно. как разрешить ввод в текстовое поле только цифр, я разобрался.

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

а как сделать что бы вводить цифры только больше 100 не знаю..подскажите

Решение задачи: «Ввод в текстовое поле только чисел, которые больше 100»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Text1 <= 100 Then
    Cancel = True
    MsgBox "Число должно быть >100", vbExclamation
End If
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.667 из 5

Похожие ответы