Как сделать, чтоб в Combobox можно было вводить только цифры - VB

Формулировка задачи:

Речь идет о combo1.text
Для TextBox (Edit) грамотно делается так (с выводом системного примечания при попытке ввести не цифру).

'стиль для Text1:только ввод цифр
  SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER

Текстовое поле в Combobox суть обычный edit -проверено.

Решение задачи: «Как сделать, чтоб в Combobox можно было вводить только цифры»

textual
                            Листинг программы 
                        

                            'стиль для Combo1 -> TextBox:только ввод цифр
  ' get the handle of the inner Edit control
  Dim Combo1EditHWnd As Long
  Combo1EditHWnd = FindWindowEx(Combo1.hwnd, 0&, vbNullString, vbNullString)
  SetWindowLong Combo1EditHWnd, GWL_STYLE, GetWindowLong(Combo1EditHWnd, GWL_STYLE) Or ES_NUMBER

                        

Оцени полезность:

5 голосов , оценка 4.2 из 5

Похожие ответы