Главная   Downloads   Разное  
FAQ     Поиск   Регистрация   Вход 
Текущее время: Чт мар 28, 2024 14:09

Часовой пояс: UTC + 3 часа (Russia: MSK)




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: filter textbox input keys
СообщениеДобавлено: Пн окт 08, 2012 11:18 
Не в сети
Аватара пользователя

Регистрация: Вс мар 02, 2008 23:06
Сообщения: 28
Откуда: Moldova Chishinev
Sub NumPressed(KeyAscii,refObj,Max,Dec)
KpadAcc = Split(refObj.Text, ".")
key=Chr(KeyAscii)
If KeyAscii<46 Or KeyAscii>57 Or KeyAscii=47 Or Dec=0 And KeyAscii=46 Then
KeyAscii.Value = 8
Else
refObj.Text=Replace(refObj.Text,refObj.SelText,Empty)
If refObj.Text = Empty And key = "." Then
KeyAscii.Value = 8
refObj.Text="0."
End If
If refObj.Text = "0" And key <> "." Then
KeyAscii.Value = 8
refObj.Text = key
End If
If InStr(refObj.Text, ".")<>0 Then
If key = "." Or Len(KpadAcc(UBound(KpadAcc))) => Dec Then
KeyAscii.Value = 8
End If
End If
If KeyAscii > 46 And KeyAscii <57 Then
If CDbl(refObj.Text&key)>Max Then
KeyAscii.Value = 8
refObj.Text=Max
End If
End If
End If
End Sub
использовать с евентом keypressed, филтьр дает возможность в техтбокс вставить толико цифры и точку.
филтьр работает но интересно почему KeyAscii определяется как обьект??


В начало
 Профиль  
 
Показать сообщения за:  Сортировка  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа (Russia: MSK)


Кто сейчас на конференции

Сейчас этот форум просматривают: в настоящее время на конференции нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Переход:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская документация по phpBB 3