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

使用for each 遍历窗体所有控件，如果是label 或 text 控件则改变其字体，或颜色。以下代码vs2008下通过测试。eg'---------------------------------------------------'窗体：Form1'2个label : label1,label2'2个Textbox: textbox1,textbox2'1个button : button1'-----------------------------------------------------------Public Class Form1'按钮单击时间 Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click
Dim ob As Control
Dim obtype As String
For Each ob In MeControls
obtype = obGetType()ToString()
If obtype = "SystemWindowsFormsTextBox" Or obtype = "SystemWindowsFormsLabel" Then
obForeColor = ColorBlue ‘字体颜色
obFont = New SystemDrawingFont("宋体", 205F, FontStyleUnderline) ’字体
End If
Next
End Sub
End Class

我觉得你是不是想让多出来的文字也隐藏啊？那样的话，需要设置AUTOSIZE为FALSE，这样才能达到无论多少字，都能变成原来的大小的一半。如果要适合字长度的话，那么，改变为TRUE，但是，那样的话，无论你怎么写，都不会变成原来的一半的

VB程序设计可通过对标签控件的FontSize 属性设置改变显示文本所用字体的大小。

FontSize 属性，返回或设置在控件中或在运行时画图或打印 *** 作中，显示文本所用的字体的大小。

语法

objectFontSize [= points]

FontSize 属性语法包含下面部分：

部分        描述  

object    
对象表达式，其值是“应用于”列表中的一个对象。  

points    
数值表达式，用磅为单位指定所用字体的大小。  

代码示例：

Option Explicit
    Dim flag As Boolean
Private Sub Form_Click()
    If flag Then
        Label1FontSize = 24
    Else
        Label1FontSize = 8
    End If
    flag = Not flag
End Sub
Private Sub Form_Load()
    flag = True
End Sub

---