Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.135.201.209] |
|
Сообщ.
#1
,
|
|
|
Не подскажите как при нажатии на 1 на клаве в txt1.text появлялось 1...Что то я пробовал по всякому никак...=(((
И как мне обозначить Backspace просто если я блокирую txt1.text от ввода букв то у меня не пашет Backspace =((((((((9 |
Сообщ.
#2
,
|
|
|
У формы есть событие KeyPress называется. Только сначала нужно сделать свойство KeyPreview = True !!!
Private Sub Form_KeyPress(KeyAscii As Integer) Txt1 = Txt1 + Chr(KeyAscii) End Sub Private Sub Form_Load() KeyPreview = True End Sub |
Сообщ.
#3
,
|
|
|
А лучше...
Txt1 = Txt1 + Chr(KeyAscii) ...замени на... If KeyAscii = 8 Then If Txt1 <> "" Then Txt1 = Left(Txt1, Len(Txt1) - 1) ElseIf KeyAscii >= 32 Then Txt1 = Txt1 + Chr(KeyAscii) End If ...и Backspace работать будет |
Сообщ.
#4
,
|
|
|
Санкс..............=))))))))))
|