13问答网 > vb中怎么使text1字体变大缩小还原，用三个command按钮

vb中怎么使text1字体变大缩小还原，用三个command按钮

2025-02-24 13:43:43

推荐回答（3个）

回答1：

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 1
End Sub

Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - 1
End Sub

Private Sub Command3_Click()
Text1.FontSize = 9
End Sub

回答2：

可以设置一个全局变量a：Dim a As Integer,把窗体运行时的字体赋给a：Private Sub Form_Load() a =（对象名）.FontSize End Sub 然后就可以在放大缩小之后令fontsize=a使得字号变成原始字号了。

回答3：

这么简单的，百度一大堆