How to pass controls to subs?

[Terry Olsen]

I'd like to change the background color of each textbox on my form to a
different color when entered. The code below doesn't work (invalid cast
error) but you should be able to get the gist of what I want to do. Any
help is appreciated. Thanks.

Private Sub txtHubMnemonic_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles txtHubMnemonic.Enter
'SetBackColor(sender)
SetBackColor(txtHubMnemonic)
End Sub

Private Sub SetBackColor(ByRef MyTB As TextBox)
For Each TB As TextBox In Me.Controls
TB.BackColor = System.Drawing.Color.White
Next
MyTB.BackColor = System.Drawing.Color.BlanchedAlmond
End Sub

 

[Herfried K. Wagner [MVP]]

I'd like to change the background color of each textbox on my form to a
different color when entered. The code below doesn't work (invalid cast
error) but you should be able to get the gist of what I want to do.
[...]
Private Sub txtHubMnemonic_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles txtHubMnemonic.Enter
'SetBackColor(sender)
SetBackColor(txtHubMnemonic)

=> 'SetBackColor(DirectCast(sender, TextBox))'.

Private Sub SetBackColor(ByRef MyTB As TextBox)

'ByRef' => 'ByVal'

For Each TB As TextBox In Me.Controls

\\\
For Each ctr As Control In Me.Controls
If TypeOf ctr Is TextBox Then
DirectCast(ctr, TextBox).<...> = ...
...
....
///

 

[Terry Olsen]

Thanks! That worked... Of cource I had to nest the For...Each due to each
of my text boxes being in its own GroupBox... But I got it dun!

I'd like to change the background color of each textbox on my form to a
different color when entered. The code below doesn't work (invalid cast
error) but you should be able to get the gist of what I want to do.
[...]
Private Sub txtHubMnemonic_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles txtHubMnemonic.Enter
'SetBackColor(sender)
SetBackColor(txtHubMnemonic)

=> 'SetBackColor(DirectCast(sender, TextBox))'.

Private Sub SetBackColor(ByRef MyTB As TextBox)

'ByRef' => 'ByVal'

For Each TB As TextBox In Me.Controls

\\\
For Each ctr As Control In Me.Controls
If TypeOf ctr Is TextBox Then
DirectCast(ctr, TextBox).<...> = ...
...
...
///

 

[Herfried K. Wagner [MVP]]

Of cource I had to nest the For...Each due to each of my text boxes being
in its own GroupBox...

Alternatively you can use a more flexible recursive function for control
enumeration:

\\\
Private Sub RecurseControls(ByVal ctr As Control)
Debug.WriteLine(ctr.Name)
If ctr.HasChildren Then
For Each c As Control In ctr.Controls
RecurseControls(c)
Next c
End If
End Sub
..
..
..
RecurseControls(Me)
///