Advertisement
2002C Miscellaneous #14307

Highlight Entire Textbox

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

AI

Yapay Zeka Özeti: 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.

Kaynak Kod
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
Orijinal Yorumlar (3)
Wayback Machine'den kurtarıldı