Чтобы только цифры в текстбокс можно было писать

[MOV]

Блин знаю, что ерунда, но так влом писать
Савсем разленился и в формуе не нашел подходящей темы
Деградация

[vvs_adm]

Ну что ж... развивайся заново

Смотри событие TextBox_KeyPress

[hCORe]

В порядке убывания "красивости".

1) Стиль окна ES_NUMBER плюс сабклассинг на вставку текста (WM_PASTE).
2) Фильтр символов при KeyPress/KeyDown. С обнулением кода клавиши.
3) Фильтр символов при Change. С изменением Text.

Проверка на наличие цифр - см. Like.

[vvs_adm]

В порядке убывания "красивости".

2) Фильтр символов при KeyPress/KeyDown. С обнулением кода клавиши.

Там тоже Change смотреть надо, а то эти гады юзеры не съедят, так понадкусывают В данном случае скопипакостят

[hCORe]

Дык, это... Можно Ctrl+V, Shift+Ins в KeyDown ловить... Проверять на правильности и при случае обрубать ручки (KeyCode=0)

[hCORe]

А меню выводить свое... Хотя нет, легче сабклассить WM_PASTE.

[bayasaa]

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

Public Sub OnlyNum(ByRef strAscii As Integer)
'Strict limitations. Non-digital keys converted to 0
Select Case strAscii
Case Asc("0") To Asc("9")
    'Do nothing
Case vbKeyBack
    'do nothing
Case Else
    strAscii = 0
End Select
End Sub


[GSerg]

bayasaa
Как всегда, не прочитал топик и запостил?

[ACiD]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0
Text1.Text = Text1.Text
End If
End Sub

[alibek]

ACiDXX, это что за поток сознания?
Про Backspace забыл? Не говоря уж о том, что Text1.Text = Text1.Text понятен только постигшим Дао.

[ACiD]

_

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8 Or KeyAscii = 10 Or KeyAscii = 13) Then KeyAscii = 0
End Sub