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

@Lander13 · Регистрация: 03.10.2012

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

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

как разрешить ввод в текстовое поле только цифр, я разобрался.

Visual Basic

1
2
3

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

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

SoftIce · 07.11.2012, 19:37

А как ты будешь 100 вводить?

Ctrl +V ?

А если просто с клавиатуры - 1, 0, 0, то нужно обрабатывать следующее событие после заполнения техтбокса.

@Казанский · 07.11.2012, 21:00

На VBA так:

Visual Basic

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

Для VB переделайте объявление процедуры.

SoftIce es geht mir gut 11272 / 4756 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	07.11.2012, 19:37	2
	А как ты будешь 100 вводить? Ctrl +V ? А если просто с клавиатуры - 1, 0, 0, то нужно обрабатывать следующее событие после заполнения техтбокса. 0

	07.11.2012, 21:00