Question

VB编程问题 求代码

题目就是 一个按钮 两个计时器 和一个标签

要求就是按钮功能为调整 一个计时器是把标签里面的字体变大
另一个计时器是把标签里面的字变小

实现按一下调整 标签字体变大 再按一下调整 标签字体就变小

求代码应该怎么写啊????

Answer 1

Dim FirstClick As Boolean

Private Sub Command1_Click()
If FirstClick = False Then
Timer1.Enabled = True
FirstClick = True
Else
Timer1.Enabled = Not Timer1.Enabled
Timer2.Enabled = Not Timer2.Enabled
End If
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
Command1.Caption = "调整"
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 100
Timer2.Interval = 100
FirstClick = False
End Sub

Private Sub Timer1_Timer() '大
Label1.FontSize = Label1.FontSize + 1
End Sub

Private Sub Timer2_Timer() '小
Label1.FontSize = Label1.FontSize - 1
End Sub