Advertisement
5_2007-2008 Miscellaneous #181361

Highlight Entire Textbox

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

AI

Tóm tắt bởi AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Mã nguồn
original-source
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
Bình luận gốc (3)
Được khôi phục từ Wayback Machine