2002C String Manipulation #8737

IsNumber

Name: IsNumber
Brand: Planet Source Code
SKU: PSC-8737
Availability: InStock
Rating: 4.7 (787 reviews)
Author: Matthew Inman

Matthew Inman

★★★★★

4.8 · التحميلات: 2,341

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.

ملخص الذكاء الاصطناعي: 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

التعليقات الأصلية (3)

مسترجع من Wayback Machine