15 Январь 2009

Запретить ввод в TextBox отрицательных чисел

TextBox |  Таги: , , ,

Запретить ввод в TextBox отрицательных чисел
Разрешен ввод только цифр от 1 до 9.

Option Explicit

Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_Change()
If Val(Right((Text1.Text), 1)) < = 0 And Len(Text1.Text) > 0 Then
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
    Text1.SelStart = Len(Text1.Text)
End If
End Sub

Запись опубликована on 15.01.2009 at 9:00 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.