编程 每单机command1命令按钮一次文本中字体扩大1.2倍每单机缩小则缩小1.2倍文本内容为VB程序设计

2025-03-07 00:57:55
推荐回答(1个)
回答1:

Private Sub Command1_Click() '放大
   Text1.FontSize = 1.2 * Text1.FontSize
End Sub
Private Sub Command2_Click() '缩小
   Text1.FontSize = Text1.FontSize / 1.2
End Sub
Private Sub Form_Load()
   Text1.Text = "VB程序设计"
End Sub