• Home
 · 
• Custom Controls/Forms/Menus
 · 
• *** Activate Auto Selection by this simple code for TextBox Objects ***

*** Activate Auto Selection by this simple code for TextBox Objects ***

*** Activate Auto Selection by this simple code for TextBox Objects ***

Rate *** Activate Auto Selection by this simple code for TextBox Objects ***

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim I As Integer
For I = 0 To Me.Count - 1
    If TypeOf Me.Controls(I) Is TextBox Then
        Me.Controls(I).SelStart = 0
        Me.Controls(I).SelLength = Len(Me.Controls(I))
    End If
Next
End Sub

Private Sub Form_Load()
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Dim I As Integer
For I = 0 To Me.Count - 1
    If TypeOf Me.Controls(I) Is TextBox Then
        Me.Controls(I).SelStart = 0
        Me.Controls(I).SelLength = Len(Me.Controls(I))
    End If
Next
End Sub