Highlight Existing Text in TextBox

[steve1262]

I have an Embeded TextBox in my worksheet. Can anyone tell me how to highligh the existing text in the TextBox when the user first enters it.

I want it to hightlight it so when the user starts typing new text the old text is cleared.

I have tryed a few things but have not had any luck.

Thank you for any help.

Steve

 

[Legacy 98055]

<table width="100%" border="1" bgcolor="White" style="filterrogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD><font size="2" face=Courier New>  <font color="#008000">'you will need both of these if the textbox does not have a</font>
  <font color="#008000">'GotFocus event. This would be the case in a userform</font>
  <font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> TextBox1_Enter()
       TextBox1.SelStart = 0
       TextBox1.SelLength = Len(TextBox1.Text)
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>

  <font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> TextBox1_MouseDown(ByVal Button <font color="#0000A0">As</font> Integer, <font color="#0000A0">ByVal</font> Shift <font color="#0000A0">As</font> Integer, <font color="#0000A0">ByVal</font> X <font color="#0000A0">As</font> Single, <font color="#0000A0">ByVal</font> Y <font color="#0000A0">As</font> Single)
       TextBox1.SelStart = 0
       TextBox1.SelLength = Len(TextBox1.Text)
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>

  <font color="#008000">'in a worksheet</font>
  <font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> TextBox1_GotFocus()
       TextBox1.SelStart = 0
       TextBox1.SelLength = Len(TextBox1.Text)
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table><button onclick='document.all("10212006233310406").value=document.all("10212006233310406").value.replace(/<br \/>\s\s/g,"");document.all("10212006233310406").value=document.all("10212006233310406").value.replace(/<br \/>/g,"");window.clipboardData.setData("Text",document.all("10212006233310406").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="10212006233310406" wrap="virtual">
'you will need both of these if the textbox does not have a
'GotFocus event. This would be the case in a userform
Private Sub TextBox1_Enter()
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub

'in a worksheet
Private Sub TextBox1_GotFocus()
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
End Sub</textarea>

 

[steve1262]

Thanks Tom !!!

Works great !!!


Steve