Control class and SelectAll 1

[ElectricEel]

Within a simple validation loop, I need to SelectAll text within a textbox control when invalid, however SelectAll is not available in the Control class. How can I go about this within the current loop? Pardon my ignorance if the answer is obvious.

Here's what I have:

Private Function ValidateInput() as Boolean
Dim ctlControl as Control
For Each ctlControl In Me.Controls
If TypeOf ctlControl Is TextBox Then
With ctlControl
.Focus()

'select all text in textbox ????

ValidateInput = False
Exit Function
End With
End If
Next
Return True
End Function

 

[chiph]

Try this:

MyTextBox.SelectionStart = 0
MyTextBox.SelectionLength = MyTextBox.Text.Length

Chip H.


____________________________________________________________________
If you want to get the best response to a question, please read FAQ222-2244 first

 

[ElectricEel]

MyTextBox.SelectAll() would accomplish the same. My goal is to NOT have to explicitly call each TextBox control but implicitly call them from the Control class within the loop.

 

[RiverGuy]

Just add a couple lines to your code:

Private Function ValidateInput() as Boolean
     Dim ctlControl as Control
     Dim txtText as TextBox
     For Each ctlControl In Me.Controls
          If TypeOf ctlControl Is TextBox Then
               txtText = CType(ctlControl, TextBox)
               With txtText
                    .Focus()
                    .SelectAll()
                    ValidateInput = False
                    Exit Function
               End With
          End If
     Next
     Return True
End Function

 

[ElectricEel]

That's what I was looking for. Thanks, RiverGuy.