在VB程序设计中如何改变标签Label的字体大小的源程序（大小数据自定）

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

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

语法

object.FontSize [= points]

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

部分        描述  

object    

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

points    

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

代码示例：

Option Explicit

    Dim flag As Boolean

Private Sub Form_Click()

    If flag Then

        Label1.FontSize = 24

    Else

        Label1.FontSize = 8

    End If

    flag = Not flag

End Sub

Private Sub Form_Load()

    flag = True

End Sub

Label控件不能获得输入焦点（差不多就是光标），故只能借助其它如文本框控件，在后者中输入，然后让Label跟随其文本内容的变化。可在文本框的Text_Change事件中添加代码：

Label1.Caption=Text1.Text

---