Text Box Clear User Instructions

[Ziggy12]

How do I clear a text box of user instructions when they click in the text box or start entering into it.

 

[phantom1975]

Put your instructions in the TextBox as either the default or in the UserForm_Initialize event. Then put the following code for your TextBox:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X AS Single, VyVal Y As Single)

With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
Selection.ClearContents
End Sub

Did that do the trick

 

[Ziggy12]

Excellent. How do I give focus to something else in the userform so the user has to click into it?

 

[phantom1975]

You lost me on that one. What exactly would you like to do?

 

[Ziggy12]

After initialisation of the user form the cursor is in textbox1 ready to type. Unles the user moves the mouse down the prompt text in textbox1 is not selected and deleted. Thought the best way to deal with that is give something else on the user form the focus so the user has to move the cursor to the text box. Trouble is I haven't been able to find the function that gives an oject on the userform focus. I know it's in there somewhere.

 

[Ziggy12]

Got it thanks.
Public Started as Boolean

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.Tag = "Received"
If Started = False Then
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
Selection.ClearContents
End If
Started = True
End Sub

and it's commandbutton1.setfocus

thanks for your help

 

[Ziggy12]

Wondered why the currently selected cell would mysteriously clear contents. The clear contents in the code above does more than clear the selection text in the text box.

best way to do above is:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
TextBox1.Tag = "Received"
If Started = False Then
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
'Selection.ClearContents
TextBox1.EnterFieldBehavior = _
fmEnterFieldBehaviorRecallSelection
End If
Started = True
End Sub