Question

VB 想使标签控件中字号大小改变，假如原来是3号字体，变成四号字体 用代码怎么写？

Answer 1

我来完完整整地写给你代码吧。

（如图）首先在窗体form1中部画一个标签控件Label1，然后画三个命令按钮Command1(放大)、Command2(缩小)、Command3(将此命令再复制三个出来组成一个“四个command3”的数组控件代表“→”“←”“↑”“↓”)，属性均为默认，最后复制以下代码到代码窗口运行即可：

Private Sub Command1_Click()  '放大命令

  Label1.Font.Size = Label1.Font.Size + 1

End Sub

Private Sub Command2_Click()  '缩小命令

  Label1.Font.Size = Label1.Font.Size - 1

End Sub

Private Sub Command3_Click(Index As Integer)   '移动命令（是command3组成的数组控件）

  Select Case Index

  Case 0  ‘Command3的index=0时

    If Label1.Left + Label1.Width < Me.ScaleWidth Then

      Label1.Left = Label1.Left + 50

    End If

  Case 1  ‘Command3的index=1时

    If Label1.Left > 0 Then

      Label1.Left = Label1.Left - 50

    End If

  Case 2  ‘Command3的index=2时

    If Label1.Top > 0 Then

      Label1.Top = Label1.Top - 50

    End If

  Case 3  ‘Command3的index=3时

    If Label1.Top + Label1.Height < Me.ScaleHeight Then

      Label1.Top = Label1.Top + 50

    End If

  End Select

End Sub

Private Sub Form_Load()

  Label1.Caption = "VB应用程序！"

  Label1.Font.Size = 16

  Label1.AutoSize = True

  Label1.Font.Bold = True

End Sub

Answer 2

修改控件的字体大小属性，例如：
Label1.FontSize=12

追问

编写一个应用程序，界面如图所示。窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB应用程序！”向该按钮所指向的方向移动50Twip。

Answer 3

label.font.size=16

Answer 4

Private Sub Label1_Click()
Label1.FontSize=12
End Sub

追问

编写一个应用程序，界面如图所示。窗体中文字“VB应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB应用程序！”向该按钮所指向的方向移动50Twip。 怎么写？