关于vb编程字体

来源：百度知道 编辑：UC知道 时间：2024/06/11 06:20:11
我用vb企业版我现在做2个按钮
一个是字体变大 一个字体变小
在编成栏怎么写
请注清字体变大：
字体变小：
谢谢
你这个点后是逐渐变大
能不能保持不变 呢

不点就不变了
是不是要加个名为“默认大小”的按钮，

Dim int_fs As Integer
Private Sub Command1_Click()
Text1.Font.Size = Text1.Font.Size + 1
End Sub
Private Sub Command3_Click()
Text1.Font.Size = int_fs
End Sub
Private Sub Command2_Click()
Text1.Font.Size = Text1.Font.Size - 1
End Sub

Private Sub Form_Load()
Command1.Caption = "变大"
Command2.Caption = "变小"
Command3.Caption = "默认大小"
int_fs = Text1.Font.Size
End Sub