An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
selecting text
another one that has slipped by me please.
after an error is determined and I have setfocus back into the box I want to select all the text in that box so the user can renter it.
TIA
Craig
after an error is determined and I have setfocus back into the box I want to select all the text in that box so the user can renter it.
TIA
Craig
Who is Participating?
Try this:
Private Sub Text1_GotFocus()
' Select all text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Regards,
Grant.
Private Sub Text1_GotFocus()
' Select all text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Regards,
Grant.
Skip99
I do not see how your code is any different than the other comments. If the question has already been answered as a comment, the questioner can accept a comment as answer. Since your "answer" is not unique, you have the option to "withdraw" your proposed answer.
I do not see how your code is any different than the other comments. If the question has already been answered as a comment, the questioner can accept a comment as answer. Since your "answer" is not unique, you have the option to "withdraw" your proposed answer.
Friends. Skip99 and Erick37. Both of u gave correct answers but correct me if i am wrong. The set focus should come last in the line of coding.Right?
Like This:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.Setfocus
<Smiling> csindorf. To whom u r gonna award points. <Smile>
Like This:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.Setfocus
<Smiling> csindorf. To whom u r gonna award points. <Smile>
csindorf stated that he already set focus back to the box, so all that was left was to select the string
text.sellength = len(text.text)
text.sellength = len(text.text)
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
-
Course of the Month11 days, 20 hours left to enrollMonitoring and Operating a Private Cloud with System Center 2012 R2 273 lessons
If Not (IsNumeric(Text1.Text)) Then
MsgBox "Please enter only a number"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub