Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.220.16.184] |
|
Сообщ.
#1
,
|
|
|
Самый простой алгоритм перед Вами
Private Sub Text1_KeyPress(KeyAscii As Integer) If IsNumeric(Chr(KeyAscii)) Then Me.Caption = "Введена цифра" Else Me.Caption = "Введена не цифра" End If End Sub |