Highlight Text Box on GotFocus Event

[simran1]

Hi,

How do i use highlight the contents of the textbox, when on getfocus event?
I tried using SelStart and SelLenght, but am unable to get the results.
Thans for the time taken to help.

 

[aco2x]

Try this code:

txtField1.SelStart = 0
txtField1.SelLength = Len(txtField1)

 

[simran1]

Hi,

Thank you so much. I missed out putting in the length of the field.

 

[M626]

You can also put it in you form load statement to do this for every text box.

Options Explicit
dim ctltext as control

For Each ctlText In Controls
If TypeOf ctlText Is TextBox Then
If ctlText.SelStart = 0 Then
ctlText.SelLength = Len(ctlText)
End If
End If
Next ctlText