Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 13104

Nov 19th, 2007

how to use the keypress function is visual basic 6

Expand Post »

hey need some help guys. for example i have a text box and i will have input in it. but only numeric ones are allowed to be inputted in the text box if a character for example "a" is pressed the text box will not change and type the "a" and if a numeric button for example is 1, the text box will have 1. how can i do this? thanks.

Similar Threads

Playing .Wav/MIDI files in a Visual Basic Program in Visual Basic 4 / 5 / 6
Visual Basic in Visual Basic 4 / 5 / 6
Visual Basic coding for excel database - am tearing my hair out! in Visual Basic 4 / 5 / 6
variable argument list in Visual Basic in Visual Basic 4 / 5 / 6
idea in ivrs using visual basic and oracle in Visual Basic 4 / 5 / 6

dc_24l

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

23 posts
since Nov 2007

Permalink

Jan 5th, 2008

Re: how to use the keypress function is visual basic 6

hi dc_241

try this
if keyascii>65 or keyascii<97
msgbox"error"
endif

vivekPSG

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

10 posts
since Dec 2007

Permalink

Jan 5th, 2008

Re: how to use the keypress function is visual basic 6

try this following code :

' This code for string input or other (comma,drop,question mark etc) except numeric

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
Text1.Locked = False
Else
Text1.Locked = True
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
Text1.Locked = False
Else
Text1.Locked = True
End If
End Sub

' This code for numeric input only, other input cannot be written

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
Text2.Locked = True
Else
Text2.Locked = False
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
Text2.Locked = True
Else
Text2.Locked = False
End If
End Sub

' This code for string input only (drop, comma, question mark cannot be written)

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii > 65 Or KeyAscii > 97 Then
Text1.Locked = False
Else
Text1.Locked = True
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii > 65 Or KeyAscii > 97 Then
Text1.Locked = False
Else
Text1.Locked = True
End If
End Sub

actually you can combine this with ascii code. look the code in ascii table and you can let what input can be written.

OK.hope this helps..

Last edited by Jx_Man; Jan 5th, 2008 at 8:02 am. Reason: code tags

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,138 posts
since Nov 2007

Permalink

Jan 5th, 2008

Re: how to use the keypress function is visual basic 6

You don't have to lock the text box, just set KeyAscii to 0. Also, you need to handle the backspace key to allow users to fix errors:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8
'Let these key codes pass through
Case Else
'All others get trapped
KeyAscii = 0
End Select
End Sub

SCBWV

Reputation Points: 40

Solved Threads: 24

Junior Poster

Offline

125 posts
since Apr 2007

Permalink

Jan 5th, 2008

Re: how to use the keypress function is visual basic 6

thx SCBWV...
nice recovery for my post...

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,138 posts
since Nov 2007

Permalink

Jan 7th, 2008

Re: how to use the keypress function is visual basic 6

Try this code if it help...

If (keyascii<48 or keyascii>57) and keyascii<>vbkeyback then
keyascii=0
end if

Neophyte08

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

7 posts
since Jan 2008

Permalink

Mar 29th, 2009

Re: how to use the keypress function is visual basic 6

You can also try the isnumeric() function at the keypress event...
For example...

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub

Last edited by KSS; Mar 29th, 2009 at 5:38 pm.

KSS

Reputation Points: 11

Solved Threads: 3

Newbie Poster

Offline

21 posts
since Mar 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: how to print msflexgird and the data in this flexgrid

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Apply code to 'x' button on form

DaniWeb Message

Cancel Changes

User Name
Password