Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Why am I getting kicked out of this textbox? Please...
Message
 
To
02/11/2004 04:51:23
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00956695
Message ID:
00956898
Views:
16
I is not happening to me. Justr create a simple form with text box & command button. Paste Your code in Keypress event of the TextBox & change Filename & Order To point to one of my files. Everything is OK: no Change of Focus during keypres. BTW what is the 127 key?

>Heh, I wish... It happens as soon as I press a key, there is no maximum # of characters. Thanks for the thought.
>
>>A wild stab from Fox2.6 perspective.............
>>
>>Is it possible that SET CONFIRM = OFF and you have reached the maximum number of input characters?
>>
>>
>>>Hi,
>>>
>>>I hope somebody else can see why I am unexpectedly losing focus on the textbox which has the following code in its KEYPRESS method:
>>>
>>>
>>>
>>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>>lcAlias = 'inventory'
>>>lcField = 'upname'
>>>
>>>if nKeycode = 127
>>>    if empty(this.value)
>>>         nodefault
>>>    endif
>>>endif
>>>
>>>
>>>IF empty(this.Text)
>>>	keyval=Seek(UPPER(Chr(nKeyCode)),lcAlias,lcField)		
>>>else
>>>	keyval=Seek(UPPER(subs(This.Text,1,This.SelStart)+Chr(nKeyCode)),lcAlias,lcField)
>>>ENDIF
>>>_name = inventory.name
>>>
>>>
>>>
>>>If keyval
>>>	nCurPos = This.SelStart + 1
>>>	This.Value = _name
>>>	This.SelStart = nCurPos
>>>	If Len(Allt(_name)) - nCurPos > 0
>>>		This.SelLength = Len(Allt(_name)) - nCurPos
>>>	ENDIF
>>>
>>>	Nodefault
>>>
>>>ENDIF
>>>
>>>
>>>
>>>The bizarre thing is that it works as I expect it to for a few times, then on the third or fourth invocation I will suddenly have the LOSTFOCUS method fire, although I am only pressing the normal alphanumeric fields.
>>>
>>>Any ideas?
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform