Question

VB 要求单击按钮时,将标签的高度和宽度放大一倍

窗体form1有一个标签 一个命令按钮 要求单击按钮时,将标签的高度和宽度放大一倍 文字大小也放大一倍 扩大后的标签中心位置不变

求帮忙啊！！

Answer 1

Private Sub Command1_Click()
Label1.Left = Label1.Left - Label1.Width / 2
Label1.Top = Label1.Top - Label1.Height / 2
Label1.Width = Label1.Width * 2
Label1.Height = Label1.Height * 2
Label1.FontSize = Label1.FontSize * 2
End Sub

Answer 2

Private Sub Command1_Click()
With Label1
.Move .Left - .Width / 2, .Top - .Height / 2, .Width * 2, .Height * 2
.Font.Size = .Font.Size * 2
End With

End Sub