про блокировку

[i'm pissed]

блокирую клавиши на клаве так не заблокированы только цифры

Код: Выделить всё

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.Locked = Not IsNumeric(Chr(KeyCode))
End Sub

а разблокирую так

Код: Выделить всё

If KeyCode = vbKeyInsert Then Text1.Locked = False
If KeyCode = vbKeyEnd Then Text1.Locked = False
If KeyCode = vbKeyRight Then Text1.Locked = False
If KeyCode = vbKeyLeft Then Text1.Locked = False
If KeyCode = vbKeyUp Then Text1.Locked = False
If KeyCode = vbKeyDown Then Text1.Locked = False
If KeyCode = vbKeyBack Then Text1.Locked = False
If KeyCode = vbKeyDelete Then Text1.Locked = False
If KeyCode = vbKeyNumpad0 Then Text1.Locked = False
If KeyCode = vbKeyNumpad1 Then Text1.Locked = False
If KeyCode = vbKeyNumpad2 Then Text1.Locked = False
If KeyCode = vbKeyNumpad3 Then Text1.Locked = False
If KeyCode = vbKeyNumpad4 Then Text1.Locked = False
If KeyCode = vbKeyNumpad5 Then Text1.Locked = False
If KeyCode = vbKeyNumpad6 Then Text1.Locked = False
If KeyCode = vbKeyNumpad7 Then Text1.Locked = False
If KeyCode = vbKeyNumpad8 Then Text1.Locked = False
If KeyCode = vbKeyNumpad9 Then Text1.Locked = False

как разблокировать "точку"

[xolod]

Не-не-не... Так делать не надо. Это ж как у тебя проверка тормозить будет если ты еще че захочешь включить - выключить..?

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If InStr("1234567890 ." & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[i'm pissed]

а я думаю че у меня подтармаживает

[i'm pissed]

чето у тебя ошибка тут

[xolod]

Так ясен пень. phpBB 8) заменил рожицей!

[i'm pissed]

а нураз так THX

[i'm pissed]

в твоем примере точка не работает.

[xolod]

Незнаю, у меня все отлично работает, специально проверил
Главное, что в событие KeyPress textbox'а и все пашет.

[i'm pissed]

а ок у меня то в событие keydown

[i'm pissed]

НУ все THX теперьвсе работает мне даже больше нравится твой вариант