IsNumber
This routine was designed to act as a numbers-only mask for any TextBox Keypress event. Simply call it from any KeyPress event and feed it the KeyAscii return value.
AI
ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Исходный код
Function IsNumber (ByVal KeyAscii As Integer) As Integer If InStr(1, "1234567890", Chr$(KeyAscii), 0) > 0 Or KeyAscii = 8 Then IsNumber = True Else IsNumber = False End If End Function Upload Upload
Оригинальные комментарии (3)
Восстановлено из Wayback Machine