🚀 go-pugleaf

In article <droland.921006185344@lab18.eng.auburn.edu> droland@eng.auburn.edu (David A. Roland) writes:
>Thanks for the info on everything.  Do I get a prize or anything for 
>finding that SENDKEYS wasn't in there?
You get my sincere thanks.  At least my mother thinks that this is a prize
to be valued above all else :)

>Let me ask one other question, I was using SENDKEYS to send a TAB everytime
>the user hit ENTER so that on data entry you could whiz through forms.
>Without it I have to set the focus to the next textbox in order.  I tried
>having the keypress event do something like this
>	if keyascii=13 then keyascii=9
>but this doesn't work any other way that is that simple?
Not sure, off hand, how to simulate SendKeys to do this but there is
another way that's really simpler anyway.

Simply set up your text boxes as a control array.  Then your code would
be something like:
Sub txtDataEntry_KeyPress (Index as Integer, KeyAscii as integer)
	if KeyAscii = 13 then
		if Index < MaxFields  then 'the # of text boxes on your form
			txtDataEntry(Index+1).SetFocus
		end if
	end if
end sub

This method works fine in vb/win and vb/dos and is somewhat 'cleaner' than
using SendKeys.

Thanks, Steve