VBNet - Форум - Цыфры в ТексБокс

Вопрос: Цыфры в ТексБокс Добавлено: 14.12.08 18:20

Автор вопроса: Aston | ICQ: 214-179-991

Привет всем!
У меня вот такой вопросик. Если у ТексБокс такое свойство, чтобы в ТекстБокс можно было вводить только цифры. Вы конечно можете сказать что можно описать в событии change определённые процедуры отслеживающие ввод, но у меня текстовое поле участвует в массиве как шаблон так что мне надо сделать так чтобы это изночально было у текстбокса.
Ответить

Ответы Всего ответов: 14

Номер ответа: 1 Автор ответа: Father Вопросов: 0 Ответов: 159	Профиль \| \| #1	Добавлено: 14.12.08 18:51
	Так и скажем, т.к. у массива контролов один код события на все контролы. Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Ответить

Номер ответа: 2 Автор ответа: Серёга ICQ: 262809473 Вопросов: 17 Ответов: 561	Web-сайт: houselab.narod.ru Профиль \| \| #2	Добавлено: 14.12.08 23:53
	'This project needs a TextBox Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Const GWL_STYLE = (-16) Const ES_NUMBER = &H2000& Public Sub SetNumber(NumberText As TextBox, Flag As Boolean) Dim curstyle As Long, newstyle As Long 'retrieve the window style curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE) If Flag Then curstyle = curstyle Or ES_NUMBER Else curstyle = curstyle And (Not ES_NUMBER) End If 'Set the new style newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle) 'refresh NumberText.Refresh End Sub Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net SetNumber Text1, True Me.Caption = "Now, try typing some letters into the textbox" End Sub Ответить

Номер ответа: 3 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244	Профиль \| \| #3	Добавлено: 15.12.08 11:52
	сделать свой контрол наследником текстбокса, прописать так как ты говорил проверку на событе - Key_Press, а затем уже свой текстбокс вставить в форму Ответить

Номер ответа: 4 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #4	Добавлено: 15.12.08 12:01
	Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If Not Chr(KeyAscii) Like "[0-9]" And KeyAscii <> 8 Then KeyAscii = 0 End Sub Ответить

Номер ответа: 5 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #5	Добавлено: 15.12.08 15:33
	Никогда апи не использовал, всегда обходился селект кейсом в кейпрессе и по моему это оптимальный вариант. Ответить

Номер ответа: 6 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #6	Добавлено: 15.12.08 15:38
	Select Case KeyAscii Case 8, аэскакодединицы To аэскакоддевятки: Case Else: KeyAscii=0 Ответить

Номер ответа: 7 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #7	Добавлено: 15.12.08 17:55
	Кажись даже не девятки а нуля. Ща непомню скока это в цифирях десятирички. Вот написал восемь лет назад прогу на свою голову и так и не запомнил таблицу. Помню тока что ! вроде под номером 33, а A 65 кажись Ответить

Номер ответа: 8 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #8	Добавлено: 15.12.08 18:39
	Smith У МЕНЯ ЗАВТРА ДЕНЬ ВАРЕНИЯ , НО УЖЕ СЕГОДНЯ ИДУТ И ПОЗДРАВЛЯЮТ! Конечно не трезв с 11;00, но Лезгинку правда не употреблял, все Дербентом отшучивался, а ты по какому поводу и как там у Грозном...., туман? У нас даже снег пытался сегодня пойти, благодать!!!. Ответить

Номер ответа: 9 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #9	Добавлено: 15.12.08 19:23
	От скуки пишу, по простым темам форума лазю. Прочитал пост и мне аж весело стало. Боцман, поздравляю с наступающим днем рождения! И завтра не поленюсь, с наступившим поздравлю. Я ща в Саратове, тут тоже подморозило, вчера снежок слегка присыпал. В Грозном говорят зима наступила, а по горным селам местами и снег выпал. Ответить

Номер ответа: 10 Автор ответа: Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830	Web-сайт: Rus-Skipper.narod.ru Профиль \| \| #10	Добавлено: 15.12.08 20:12
	Я ща в Саратове, тут тоже подморозило, вчера снежок слегка присыпал. Саратов это круто, на улице Немецкой церковь <утоли моти печали> по моему?, а далее сувениры помню покупал, а в кошце где цирк в ресторане сидел. Ответить

Номер ответа: 11 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272	Профиль \| \| #11	Добавлено: 16.12.08 21:39
	Боцман большое спасибо работает и безотказно. Простейшее решения проблемы и очень просто.) Ответить

Номер ответа: 12 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #12	Добавлено: 22.12.08 03:44
	Серёговское круче) и правильнее имхо. Ответить

Номер ответа: 13 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #13	Добавлено: 22.12.08 04:00
	Smith пишет: всегда обходился селект кейсом в кейпрессе и по моему это оптимальный вариант. Запомни стова доброго дяди Палача, который декомпилировал и скомпилировал MSVBVM60: "Все, что есть стандартные средства бейсика, не может быть оптимальным вариантом во всех отношениях. Оно может быть оптимально по сложности, но хрен оно будет быстро работать." Ответить

Номер ответа: 14 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #14	Добавлено: 22.12.08 17:27
	лень проверять, но терзают смутные сомненья - а копипаст по райтклику вы, случаем, не проверяли? Может ждать разочарование Ответить

Страница: 1 |