VB 窗口中label text等控件的字体改变大小

VB.net 用一个按钮把整个软件窗口中label text等控件的字体改变大小

Fontsize属性

一般取10到100就能满足要求控件，单位是磅，包括2160）的数（支持小数）.FontSize = 数字 其中数字为0到2160之间（不包括0

使用for each 遍历窗体所有控件，

如果是label 或 text 控件则改变其字体，或颜色。

以下代码vs2008下通过测试。

e.g.

'---------------------------------------------------

'窗体：form1

'2个label    : label1,label2

'2个textbox: textbox1,textbox2

'1个button  : button1

'-----------------------------------------------------------

public class form1

'按钮单击时间

    private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click     dim ob as control     dim obtype as string     for each ob in me.controls     obtype = ob.gettype().tostring()     if obtype = "system.windows.forms.textbox" or obtype = "system.windows.forms.label" then     ob.forecolor = color.blue ‘字体颜色     ob.font = new system.drawing.font("宋体", 20.5f, fontstyle.underline) ’字体     end if     next     end sub end class