哈喽哈喽，小伙伴们大家好，今天我们一起来进入高职考战斗的第七期，那么本期我们主要还是对台某控件来做一个综合的运用。
高职考技能提升教程 timer定时器综合运用
界面设计
要求
1. 添加相关的控件和属性：添加计时器控制，并设置初始化状态：时间间隔为0.5秒、不可用；添加定时器事件，完成相应的（1），（2）（3）填空，实施标签上下重复移动；(其中时间间隔为0.5秒、不可用各1分，共2分)
2. 单击“开始”按钮，定时器工作；“开始”按钮变成“暂停”；单击“暂停”按钮，定时器停止工作，“暂停”按钮变“开始”；完成（4），（5）填空；
3. 双击标签“调整方块移动的距离”，弹出对话框如图2-2所示，添加适当的事件；
4. 单击命令按钮“改变窗体背景颜色大小”，要求窗体背景颜色同命令按钮背景颜色一致；且将窗体移动到左上角（0，0），同时窗体的宽度与高度大小分别5000，5000（要求用move方法）完成相应（6）（7）。
5. 保存工程文件和窗体文件，生成可执行文件test2.exe。
总结
Move对窗体移动的时候，窗体是不能最大化的，否则要报错
弹出框inputbox的使用
软件设计界面：
源代码分享：
Dim f As Boolean 'true表示向上，false表示向false Dim h As Long '表示移动的距离 Private Sub Command1_Click() If Command1.Caption = "启动" Then Timer1.Enabled = True Command1.Caption = "暂停" Else Timer1.Enabled = False Command1.Caption = "启动" End If End Sub Private Sub Command2_Click() Form1.Move 0, 0, 5000, 5000 Form1.BackColor = Command1.BackColor End Sub Private Sub Form_Load() h = 100 End Sub Private Sub Label2_DblClick() h = InputBox("请输入调整移动距离", "调整") End Sub Private Sub Timer1_Timer() If f = False And Label1.Top + Label1.Height > ScaleHeight Then '当向下运动的时候，如果超过下边界，那么就改变方向为向上 f = True ElseIf f = True And Label1.Top <= 0 Then f = False End If If f = True Then Label1.Move Label1.Left, Label1.Top - h Else Label1.Move Label1.Left, Label1.Top + h End If End Sub
