Question

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

Answer 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

Answer 2

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

Answer 3

这么简单的，百度一大堆