Здравствуйте, Zinya! Вы писали:
Z> Здравствуйте, Аноним, Вы писали:
Z>>> Так вот вопрос первый: Как установить стиль Edit чтобы вводить только
Z>>> цифры?
А>> На TextBox1_Change() делай проверку. Например:
А>> А>> Private Sub TextBox1_Change()
А>> TextBox1.Value = val(TextBox1.Value)
А>> End Sub
А>>
Z> И что делать если не число. Надо бы сделать так чтобы в Edit-e вообще не
Z> отображались буквы. Либо делать как-то Undo если вдруг ввели букву. Но
Z> как — вот вопрос.
Отслеживай
Private Sub Text1_KeyPress(KeyAscii As Integer)
if KeyAscii <> цифра then
KeyAscii = 0 ' игнорируем
End if
End Sub
Правда остатся copy&paste так что обработку Change лучше оставить...
Posted via RSDN NNTP Server 1.7 "Bedlam"
