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