How do I highlight an empty textbox? 1

[EdRev]

I wrote this code to be able to highlight a text box when it gets the focus:

Private Sub txtRa_GotFocus()
With txtRa
.SelStart = 0
.SelLength = .MaxLength
End With
End Sub

But it doesn't work when the textbox is empty and I can't assign any initial value at design time becasuse there is a validation routine involved.

any help will be greatly appreciated.

 

[strongm]

Something similar to the code below may suffice:

Private Sub Text1_Change()
If Text1.Text <> &quot;&quot; Then
Text1.BackColor = vbWindowBackground
End If
End Sub

Private Sub Text1_GotFocus()
If Text1.Text = &quot;&quot; Then
Text1.BackColor = vbHighlight
Else
Text1.BackColor = vbWindowBackground
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)

End If
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = vbWindowBackground
End Sub

 

[EdRev]

thanks a lot strongm!!