VB字体自动放大程序，字体放大速度由HScroll控制,当字体大于60时,文字将从9号开始重新放

Question

如题所述

Answer 1

按照要求，已经完成，只要在窗体中做一个比较大的文本框控件，一个横向滚动条控件，两个命令按钮空间，一个定时器控件，加上下面的代码就可以运行了。
Private Sub Command1_Click()
Timer1.Interval = 500
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Form_Load()
Command1.Caption = "放大"
Command2.Caption = "停止"
HScroll1.Min = 20
HScroll1.Max = 300
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 1
If Text1.FontSize > 60 Then Text1.FontSize = 9
End Sub

Answer 2

Private Sub Form_Load()
Text1.Text＝9
HScroll1.Min＝1
HScroll1.Max＝10
End Sub

Private Sub Form_Initialize()
Timer1.Interval＝1
End Sub

Private Sub Timer_Timer()
Text1.FontSize＝Text1.FontSize＋HScroll1.Value
If Text1.FontSize＞＝60 Then Text1.FontSize＝9
End Sub