• Home
 · 
• Miscellaneous
 · 
• Highlight Entire Textbox

Highlight Entire Textbox

Highlight textbox/combobox and its entire contents. Simple but cosmetically useful.

Rate Highlight Entire Textbox

• 1
• 2
• 3
• 4
• 5

(6(6 Vote))

Public Sub Focus(varX As Variant)
'selects entire txtbox
 With varX
  If .Text <> "" Then
   .SelStart = 0
   .SelLength = Len(.Text)
  End If
 End With
End Sub

''''''''''''''''''''''''''''''''''''
call statement
''''''''''''''''''''''''''''''''''''
Private Sub txtStoreNo_GotFocus()
 Focus txtstoreno
End Sub