RE: nkeycode are same
Thread ID: 312549 Manoj Patel RE:
nkeycode are same Dear Expert
>
I face a problem with Ctrl + D and Left Arrow.
nkeycode of Both are same i.e. 4.
I Press Left Arrow, then fire Ctrl + D.
>
I Write my Code in Form's Keycode Method. Any have an Idea of distinguish both
>
Please Help
>
Regard
>
Suresh Ramtekkkar
Dear Suresh
Many keys are return same value
see this link
http://www.ousob.com/ng/sum87/ng82c60.php
Thanks & Regards
Manoj Patel
RE: nkeycode are same
Thread ID: 312549 Suresh Ramtekkar RE:
nkeycode are same What is your code in KeyPress Event?
Did you check variable NSHIFTALTCTRL?
>
MartinaJ
>
Dear Expert
>
I face a problem with Ctrl + D and Left Arrow.
nkeycode of Both are same i.e. 4.
I Press Left Arrow, then fire Ctrl + D.
>
I Write my Code in Form's Keycode Method. Any have an Idea of distinguish both
>
Please Help
>
Regard
>
Suresh Ramtekkkar
>
>
>
JID: gorila@dione.zcu.cz
Thanks Martina
I will Check NSHIFTALTCTRL, & my problem is Solved
Thanks again
Regards
Suresh Ramtekkar
RE: No InputMask for EditBox
Thread ID: 129407 Eric den Doop RE: No InputMask for EditBox Dear Experts,
>
I would like to know how to avoide entry of special characters like *,#,@ etc in Edit box, as there is no InputMask for the same.
>
Thanx in advance
>
Regards
Sunil.
>
Nobody is perfect I'm nobody
I think there are other options, but this quick and dirty code seems to do the trick:
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
KEYBOARD '{BACKSPACE}'
ENDIF
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
RE: No InputMask for EditBox
Thread ID: 129407 Vladimir Zhuravlev RE: No InputMask for EditBox I woud write nodefault insead of KEYBOARD '{BACKSPACE}'
in your code
Dear Experts,
>
I would like to know how to avoide entry of special characters like *,#,@ etc in Edit box, as there is no InputMask for the same.
>
Thanx in advance
>
Regards
Sunil.
>
Nobody is perfect I'm nobody
>
>
I think there are other options, but this quick and dirty code seems to do the trick:
>
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
KEYBOARD '{BACKSPACE}'
ENDIF
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
www.foxclub.ru domain owner, VFP-MVP, PHD
RE: No InputMask for EditBox
Thread ID: 129407 Eric den Doop RE: No InputMask for EditBox I woud write nodefault insead of KEYBOARD '{BACKSPACE}'
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
NODEFAULT
ENDIF
You're right. NODEFAULT is a better command in this case.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
RE: No InputMask for EditBox
Thread ID: 129407 Sunil Sawant RE: No InputMask for EditBox I woud write nodefault insead of KEYBOARD '{BACKSPACE}'
>
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
NODEFAULT
ENDIF
>
You're right. NODEFAULT is a better command in this case.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
Hi Eric
Thank you so much Eric for quick response.
Regards
Sunil.
Nobody is perfect I'm nobody
RE: No InputMask for EditBox
Thread ID: 129407 Sunil Sawant RE: No InputMask for EditBox I woud write nodefault insead of KEYBOARD '{BACKSPACE}'
>
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
NODEFAULT
ENDIF
>
You're right. NODEFAULT is a better command in this case.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
Hi
sorry to bother you again, I'm curious to know, using inlist() with above statment is valid or invalid ? coz when I tried using it, its giving me error "Too many arguments" e.g. I want the edit box to accept only charecters (a-z) and numbers(0-9) nothing else.
if !inlist(nKeyCode,48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112
RE: No InputMask for EditBox
Thread ID: 129407 tushar RE: No InputMask for EditBox I woud write nodefault insead of KEYBOARD '{BACKSPACE}'
>
* editbox.KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 64 && "@"
NODEFAULT
ENDIF
>
You're right. NODEFAULT is a better command in this case.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
>
>
Hi
sorry to bother you again, I'm curious to know, using inlist() with above statment is valid or invalid ? coz when I tried using it, its giving me error "Too many arguments" e.g. I want the edit box to accept only charecters (a-z) and numbers(0-9) nothing else.
>
if !inlist(nKeyCode,48,49,50,51,52,53,54,55,56,57,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112
RE: No InputMask for EditBox
Thread ID: 129407 Eric den Doop RE: No InputMask for EditBox I want the edit box to accept only charecters (a-z) and numbers(0-9) nothing else.
Try the following:
LPARAMETERS nKeyCode, nShiftAltCtrl
IF NOT ( BETWEEN(nKeyCode, 48, 57) OR ;
BETWEEN(nKeyCode, 65, 90) OR ;
BETWEEN(nKeyCode, 97, 122) )
NODEFAULT
ENDIF
Note that this code disables special keys like spacebar and backspace as well.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
RE: No InputMask for EditBox
Thread ID: 129407 Sunil Sawant RE: No InputMask for EditBox I want the edit box to accept only charecters (a-z) and numbers(0-9) nothing else.
>
Try the following:
>
LPARAMETERS nKeyCode, nShiftAltCtrl
IF NOT ( BETWEEN(nKeyCode, 48, 57) OR ;
BETWEEN(nKeyCode, 65, 90) OR ;
BETWEEN(nKeyCode, 97, 122) )
NODEFAULT
>
ENDIF
>
Note that this code disables special keys like spacebar and backspace as well.
--
Eric den Doop
www.foxite.com - The Home Of The Visual FoxPro Experts
Thank you everybody.
Regards
Sunil
Nobody is perfect I'm nobody
RE: No spaces in a field
Thread ID: 232540 tushar RE: No spaces in a field Hello! I have a login form with 1 textbox representing the user and 1 textbox representing the password.
>
In the user field when I press the right arrow the cursor moves one space.
>
I wrote in the KeyPress event
>
IF nkeycode=4
NODEFAULT
ENDIF
>
Now the cursor doesn't move when I press the right arrow, but I still want it to move when it's not on the end of the user name.
>
Also when I am at the beginning of the user name and I press the left arrow the tab moves on other buttons.
I would like the cursor to stay there until I press tab or select another button.
>
Thank You!
Check the SelStart property of the textbox.
IF nkeycode
RE: No spaces in a field
Thread ID: 232540 Danila Ionut RE: No spaces in a field Hello! I have a login form with 1 textbox representing the user and 1 textbox representing the password.
>
In the user field when I press the right arrow the cursor moves one space.
>
I wrote in the KeyPress event
>
IF nkeycode=4
NODEFAULT
ENDIF
>
Now the cursor doesn't move when I press the right arrow, but I still want it to move when it's not on the end of the user name.
>
Also when I am at the beginning of the user name and I press the left arrow the tab moves on other buttons.
I would like the cursor to stay there until I press tab or select another button.
>
Thank You!
>
Check the SelStart property of the textbox.
>
IF nkeycode
RE: NODEFAULT
I use on Keypress event of my forms to give users easy escape:
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode = 27
Thisform.Release
Endif
As you can see, I simply trap the key that is being pressed
RE: NODEFAULT
Thread ID: 314390 Cetin Basoz RE: NODEFAULT Why is it that when I place code in the KEYPRESS event that I need to suppress the inherited code with NODEFAULT but if I place code in the CLICK event, I do not have to use NODEFAULT?
>
What e...
RE: NODEFAULT
I use on Keypress event of my forms to give users easy escape:
>
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode = 27
Thisform.Release
Endif
>
As you can see, I simply trap the key that is being pressed
RE: NODEFAULT
Thread ID: 314390 Tony Vignone RE: NODEFAULT Why is it that when I place code in the KEYPRESS event that I need to suppress the inherited code with NODEFAULT but if I place code in the CLICK event, I do not have to use NODEFAULT?
>
What ...
RE: nono...that code deactivates arrow keys com...
Thread ID: 62930 Lucy Alice Pilanga RE: nono...that code deactivates arrow keys com... hi again. since you want to use the arrow keys to move to the previous/next textbox, then you should add this..
TEXTBOX1.Keypress Event
---------------------------------------
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode= [equivalent of left arrow] or nkeycode= [equivalent of up arrow] && cursor moves to previous textbox
thisform.PreviousTextbox.setfocus
endif
if nkeycode= [equivalent of right arrow] or nkeycode= [equivalent of down arrow] && cursor moves to next textbox
thisform.NextTextbox.setfocus
endif
-Lucy Alice
"The truth will make you free
RE: nono...that code deactivates arrow keys com...
Thread ID: 62930 Ken Solo RE: nono...that code deactivates arrow keys com... hi again. since you want to use the arrow keys to move to the previous/next textbox, then you should add this..
>
TEXTBOX1.Keypress Event
---------------------------------------
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode= [equivalent of left arrow] or nkeycode= [equivalent of up arrow] && cursor moves to previous textbox
thisform.PreviousTextbox.setfocus
endif
>
if nkeycode= [equivalent of right arrow] or nkeycode= [equivalent of down arrow] && cursor moves to next textbox
thisform.NextTextbox.setfocus
endif
>
>
>
-Lucy Alice
"The truth will make you free, but first
RE: Not a character expression
FoxPro!
If this is of any help, try the following in the TextBox.KeyPress event procedure:LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
WAIT WINDOW gaMyArray[1] && Shows empty
gaMyArray[1] = ALLTRIM
RE: Not a character expression
Live FoxPro!
>
If this is of any help, try the following in the TextBox.KeyPress event procedure:LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 13
WAIT WINDOW gaMyArray[1] && Shows empty
gaMyArray[1] = ALLTRIM
RE: numeric (1) column
.AddObject('Text2', 'delBlank')
.Text2.Visible = .T.
.CurrentControl = 'Text2'
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS delNull as TextBox
PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl)
LOCAL lcAlias, lcField...
DEFINE CLASS delBlank as TextBox
PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl)
LOCAL lcAlias, lcField
IF m.nKeyCode = 7
NODEFAULT
lcAlias = GETWORDNUM(This.ControlSource,1,'.')
lcField = GETWORDNUM(This.ControlSource
RE: numeric (1) column
as Column
.AddObject('Text2', 'delBlank')
.Text2.Visible = .T.
.CurrentControl = 'Text2'
ENDWITH
ENDPROC
ENDDEFINE
>
DEFINE CLASS delNull as TextBox
PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl)
LOCAL lcAlias...
ENDDEFINE
>
DEFINE CLASS delBlank as TextBox
PROCEDURE KeyPress(nKeyCode, nShiftAltCtrl)
LOCAL lcAlias, lcField
IF m.nKeyCode = 7
NODEFAULT
lcAlias = GETWORDNUM(This.ControlSource,1,'.')
lcField = GETWORDNUM
RE: Old Issue
IF nKeyCode = 13 then
NODEFAULT
this.Click
This.parent.parent.txtCountry.SetFocus
ENDIF
Samir R. Ibrahim
Good things Take time, Great things happend all at once.
My WebLog
My Website
RE: Old Issue
>
IF nKeyCode = 13 then
NODEFAULT
this.Click
This.parent.parent.txtCountry.SetFocus
ENDIF
>
>
Samir R. Ibrahim
Good things Take time, Great things happend all at once.
>
My WebLog
RE: Old Issue
Thread ID: 180737 Samir Ibrahim RE: Old Issue >
hi Saifuddin
>
Please Post the example under my post next time not to my email, so other can see you problem and correct it if I did not.
>
add the below code to contsavecontinue.command1.keypres
>
IF nKeyCode = 13 then
NODEFAULT
this.Click
This.parent.parent.txtCountry.SetFocus
ENDIF
>
>
Samir R. Ibrahim
Good things Take time, Great things happend all at once.
>
My WebLog
My Website: www.cdcity.org
>
Thanks Mr.Samir it solved my long awaited problem.
My best rating to you. (c)
>
Saifuddin
You are Welcome :)
Samir R. Ibrahim
Good things Take time, Great things happend all at once.
My WebLog
My Website: www.cdcity.org
Result Page:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69