在窗体上建立四个命令按纽,为“放大”“加粗”“下划线”“移动”,还建一个“VB程序设计”的标签(水平居中)。单击”放大“时标签文字放大三倍,同时使标签在窗体水平居中,单击”加粗”“下划线”标签文字显示相应效果。单击“移动”则为标签向左移200twip。
代码:Private Sub Command1_Click()
Label1.FontSize = Label1.FontSize * 3  '字体放大三倍
Label1.Left = (Me.ScaleWidth - Label1.Width) / 2 '水平居中
Label1.Top = (Me.ScaleHeight - Label1.Height) / 2 '垂直居中
End SubPrivate Sub Command2_Click()
Label1.FontBold = True
End SubPrivate Sub Command3_Click()
Label1.FontUnderline = True
End SubPrivate Sub Command4_Click()
Label1.Left = Label1.Left = 200
End SubPrivate Sub Label1_Click()
Label1.Width = Screen.Width      '设置窗体的宽度,Screen为屏幕对象
Label1.Height = Screen.Height    '设置窗体的高度
'在水平方向上居中显示
End Sub