change parameters of all text

[matt]

is it possible to change a setting, such as Forecolor for all text in a
form, or do you have to change it for each text block?

 

[Chris]

is it possible to change a setting, such as Forecolor for all text in a
form, or do you have to change it for each text block?

Find and replace.

Find ".ForeColor = "
Replace ".ForeColor = NewForeColor '"

Chris

 

[matt]

Find and replace.

Find ".ForeColor = "
Replace ".ForeColor = NewForeColor '"

hey, thanks for the reply. sorry for not being clear, i mean change it in
the code from its default settings in the form. for instance. i have 5 text
labels, lbl1...lbl5. all have default settings of black text, and i want to
change the text color to orange. i would do

lbl1.forecolor = colorsetting
lbl2.forecolor = colorsetting
....
lbl5.forecolor = colorsetting

is there an easy way to change a parmeter? like

new something = lbl1 ... lbl5

something.forecolor = colorsetting


Just a thought that i wanted to ask about. Thanks!

 

[Siva M]

I don't think so. But, the whole thing can be shortened as:
For Each c As Control In Me.Controls

If TypeOf (c) Is Label Then

DirectCast(c, Label).ForeColor = Color.Coral

End If

Next

Find and replace.

Find ".ForeColor = "
Replace ".ForeColor = NewForeColor '"

hey, thanks for the reply. sorry for not being clear, i mean change it in
the code from its default settings in the form. for instance. i have 5 text
labels, lbl1...lbl5. all have default settings of black text, and i want to
change the text color to orange. i would do

lbl1.forecolor = colorsetting
lbl2.forecolor = colorsetting
....
lbl5.forecolor = colorsetting

is there an easy way to change a parmeter? like

new something = lbl1 ... lbl5

something.forecolor = colorsetting


Just a thought that i wanted to ask about. Thanks!

 

[matt]

I don't think so. But, the whole thing can be shortened as:
For Each c As Control In Me.Controls

If TypeOf (c) Is Label Then

DirectCast(c, Label).ForeColor = Color.Coral

End If

Next

This is great, and is basically what i was going for. However, i tried
putting it into my code and it isn't working correctly. I see that it goes
into the for loop, but only once, it isn't looping through all of the
properties. any ideas?

thanks,

 

[Cor Ligthert [MVP]]

Shiva

This is great, and is basically what i was going for. However, i tried
putting it into my code and it isn't working correctly. I see that it
goes into the for loop, but only once, it isn't looping through all of the
properties. any ideas?

Probably because that you have controls in controls. This is easy to
overcome by doing this recursive.

\\\
SetColors(me)
Public sub SetColors(byval this as controls)
For Each c As Control In This.Controls
If TypeOf (c) Is Label Then
DirectCast(c, Label).ForeColor = Color.Coral
End If
SetColors(c)
Next
///
Watch typos it is changed in this message.

I hope this helps,

Cor

 

[Cor Ligthert [MVP]]

Matt/Shiva,

Shiva had to be Matt.

Cor

 

[Siva M]

It looks like you have only one Label on the form. As Cor has said, use
recursion to check container controls as well on the form

I don't think so. But, the whole thing can be shortened as:
For Each c As Control In Me.Controls

If TypeOf (c) Is Label Then

DirectCast(c, Label).ForeColor = Color.Coral

End If

Next

This is great, and is basically what i was going for. However, i tried
putting it into my code and it isn't working correctly. I see that it goes
into the for loop, but only once, it isn't looping through all of the
properties. any ideas?

thanks,

 

[Herfried K. Wagner [MVP]]

is it possible to change a setting, such as Forecolor for all text in a
form, or do you have to change it for each text block?

You may find this class useful:

<URL:http://dotnet.mvps.org/dotnet/samples/controls/EnumerateControls.zip>

 

[matt]

Shiva
Probably because that you have controls in controls. This is easy to
overcome by doing this recursive.

\\\
SetColors(me)
Public sub SetColors(byval this as controls)
For Each c As Control In This.Controls
If TypeOf (c) Is Label Then
DirectCast(c, Label).ForeColor = Color.Coral
End If
SetColors(c)
Next
///
Watch typos it is changed in this message.

I hope this helps,

Works great! thanks!