Sending non-standard keys

[DaveMere]

Hello all.

Does anyone know of a way to call non-ascii keys through code? Like the "End" key for instance?

I'm trying to produce code that sends the cursor to the end of the text in a text box.

DaveMere

 

[ca8msm]

Private Sub Command1_Click()
SendKeys "{END}"
End Sub

----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[CCLINT]

You can use SendKeys to do what you have asked first, but better is to use:

Text1.SelStart = Len(Text1.Text)

and avoid using SendKeys whenever possible

 

[ca8msm]

DaveMere

The reason that CCLINT is pointing out the downfalls of using SendKeys is that your application, your form and the specific textbox all have to have focus in order for the SendKeys function to work. Obviously this causes a lot of problems making sure that they do.

----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[DaveMere]

I used the .SelStart method and it works fine.

Thanks v much!