UC知道VB定时器怎么做
来源：百度知道 编辑：UC知道 时间：2024/05/18 09:41:55
请参考Design.exe程序的运行结果，新建一个工程，完成“字幕闪烁”程序设计。将工程文件以Design.Vbp、窗体文件以Design.frm保存到考试目录下，具体要求如下：
（1）窗体的标题为“字幕闪烁”，固定边框。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮，标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签文字停止闪烁。同时，“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.3秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-5所示。
图2-5 “字幕闪烁”程序运行效果
（1）窗体的标题为“字幕闪烁”，固定边框。
（2）在属性窗口中将标签(Label1)的标题设为“祝您考试成功”，字体设置为“宋体”、字形为“粗体”、大小为“二号”、文字颜色为“红色”。格式设置为在窗体中水平居中对齐。
（3）单击“开始”按钮，标签文字在定时器控制下自动交替以红兰两种颜色显示。同时“开始”按钮变为“停止”按钮。
（4）单击“停止”按钮，标签文字停止闪烁。同时，“停止”按钮变为“开始”按钮。
（5）定时器（Timer1）的时间间隔为0.3秒。
（6）其他界面设计参考Design.exe程序运行效果，如图2-5所示。
图2-5 “字幕闪烁”程序运行效果
Dim flag As Boolean
Private Sub Command1_Click()
flag = Not flag
If flag Then
Timer1.Interval = 300
Command1.Caption = "停止"
Else
Timer1.Interval = 0
Command1.Caption = "开始"
End If
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
Else
Label1.ForeColor = vbRed
End If
End Sub
将代码覆盖粘贴至vb代码窗口即可,运行前确保控件都已建立(代码里使用控件name属性默认,改了name属性的话,代码要相应改动).在属性窗口里改的属性请自行更改.
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Timer1.Interval = 300
ElseIf Command1.Caption = "停止" Then
Command1.Caption = "开始"
Timer1.Interval = 0
End If
End Sub
Private Sub Form_Load()
Me.Caption = "字幕闪烁"
Show
End Sub
Private Sub Timer1_T