vb中如何使用计时器对字体进行放大和颜色更改

2026-05-19 04:28:57

推荐回答（2个）

回答1：

一个标签(label1)，一个按钮(command1)，一个计时器(timer1)

Private Sub Form_Load()
    Command1.Caption = "开始"
End Sub

Private Sub Command1_Click()
    If Command1.Caption = "开始" Then
        Command1.Caption = "停止"
        Timer1.Enabled = True
    Else
        Command1.Caption = "开始"
        Timer1.Enabled = False
    End If
End Sub

Private Sub Timer1_Timer()
    Label1.FontSize = Label1.FontSize + 1
    Label1.ForeColor = Label1.ForeColor + 500 '颜色取值范围是0至16777215也就是(256*256*256-1)
End Sub

不知道你想要的是不是这样的效果

回答2：

这个计时器，是没有这样功能的。