Disable keys in program

[muddasirmunir]

I am using VB6.
I want that in my whole program the user can only enter data as numbers (0-9), alphabetical (a-z) and . (dot/point).
How can I disable all the other keys?

I know the code how to permit the keys in the keypress event of any textbox
by using this code:

Dim comp As Boolean
comp = Chr(KeyAscii) Like "[1-9.0]"
If Chr(KeyAscii) = vbBack Then Exit Sub
If comp = False Then
  KeyAscii = 0
End If

Now instead of writing it to all the text boxes (which are huge in number) I want to disable the other keys in start module.
How to do this?

[debasisdas]

Instead of writing all that to the keypress event of all the individual textboxes ,write that in the keypress event of the form and make the KeyPreview property of the form to true.

[QVeen72]

Hi,

You cannot write for the whole project. Instead you can write for each form.
Create it as a general procedure in a .bas module.
Make Form's property : KeyPreview =True
and in Form's KeyPress Event, call that procedure by passing KeyAscii.

Regards
Veena

[muddasirmunir]

Thanks for nice suggestion

Hi,

you cannot write for the whole project. Instead you can write for each form.
Create it as a General Procedure in .bas module..
Make Form's property : KeyPreview =True
and in Form's KeyPress Event, call that procedure by passing KeyAscii

REgards
Veena

[Ali Rizwan]

Use modules for writing the code single time for entire project.

Regards

>> ALI <<