Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB
Expertise: Intermediate
Jan 12, 2004

Use an API Function to Limit the Entry of a Textbox Control

First, place the function ischaralpha in the proyect. In this example it's in the general declarations section of the form:

Private Declare Function IsCharAlpha Lib "user32" Alias "IsCharAlphaA"
(ByVal cChar As Byte) As Long
Next, place a textbox in the form. Then, copy the next code to limit the user entry only to alphabetic characters:

If KeyAscii = vbKeyBack Or KeyAscii = vbKeySpace Then
KeyAscii = KeyAscii
Exit Sub
End If

num = IsCharAlpha(KeyAscii)
If num = 0 Then
KeyAscii = 0
End If
With some changes in the code, you can limit the user entry to only numbers:

permitir solo numeros
If KeyAscii = vbKeyBack Or KeyAscii = vbKeySpace Then
KeyAscii = KeyAscii
Exit Sub
End If

Select Case Chr(KeyAscii)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
Armando Antonio Dasilva
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap