Setting all controls to default system font.

[NewsBot]

Well I have been working on a program lately, and in my options dialog I want the font to match the systems default font. I figured that if I use a For Each loop and* get all controls from there, I could set the font for all of them.* Here's the code:

' Sets all controls to the default MessageBoxFont, which under Windows Vista, is Segoe UI.

ForEach currentcontrol As Control InMe.Controls

Dim theControl AsNew Control

theControl = DirectCast(currentcontrol, TextBox)

theControl.Font = SystemFonts.MessageBoxFont

Next

 

Is there an easier way to do this?

 

More...

 

View All Our Microsoft Related Feeds