Собственно, ввод "только цифры" реализовано - да, но есть недостатки:
1) позволяет ввести запятую ' , '
2) позволяет вставить текст (не цифры) ctrl+V
3) не выводит системное сообщение "Недопустимый символ" (см. рисунок внизу).
Присобаченный 'edit' (текстбокс) я нашел CType(NumericUpDown1.Controls(1), TextBox)
Код такой (поместил на форму NumericUpDown1 и TextBox1 для сравнения)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Class Form1
Const ES_NUMBER = &H2000&
Const GWL_STYLE = (-16)
Private Declare Unicode Function SetWindowLong Lib "user32" Alias "SetWindowLongW" _
(ByVal hwnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
Private Declare Unicode Function GetWindowLong Lib "user32" Alias _
"GetWindowLongW" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
SetWindowLong(TextBox1.Handle, GWL_STYLE, GetWindowLong(TextBox1.Handle, GWL_STYLE) Or ES_NUMBER)
Dim hwndTB As IntPtr = CType(NumericUpDown1.Controls(1), TextBox).Handle
SetWindowLong(hwndTB, GWL_STYLE, GetWindowLong(hwndTB, GWL_STYLE) Or ES_NUMBER)
End Sub
End Class
(1) и (2) как положено лечится.
Но (3) выводится только при проверке (1) и (2) -т.е. запятая либо Ctrl+V (текст).
А при вводе "не цифр" с клавиатуры (3) не срабатывает.
И понятно почему - из за дебильной внутренней реализации "Numeric" -этот детсад суко "отлавливает" не цифры еще до срабатывания стиля. Как полечить чтоб "Недопустимый символ" всегда выводилось?
Иными словами, можно ли убрать внутреннюю реализацию "Numeric"?
