Question

vb编程题：在考生文件夹中有一个工程文件 vbsj4.vbp，相应的窗体文件为 vbsj4.frm。在名 为 。。。。

题目要求：
在考生文件夹中有一个工程文件 vbsj4.vbp，相应的窗体文件为 vbsj4.frm。在名为 Form1 的窗体上有两个名称分别为 Cmd1 和 Cmd2 的命令按钮;一个名称为 Lab1 的标签控件;一个名称为 Tmr1 计时器控件。

　　程序运行后，在命令按钮 Cmd1 中显示为“开始”;在命令按钮 Cmd2 中显示为“停止”;标签中字号大小为 18 号、字体为粗体、显示为“欢迎光临”(标签的 AutoSize 属性为 True);计时器的 Interval 属性设置为 100，Enabled 属性设置为 False。

此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动(每个时间间隔移动 50)，如图 51-4 所示。当标签移动出窗体右边界后，自动从左边界开始向右移动;如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动;再次单击“继续”命令按钮后，标签继续移动。
=====

谢谢了TAT

Answer 1

Private Sub Cmd1_Click()

Cmd1.Caption = "继续"

Cmd1.Enabled = False

Tmr1.Enabled = True

End Sub

Private Sub Cmd2_Click()

Cmd1.Enabled = True

Cmd2.Enabled = False

Tmr1.Enabled = False

End Sub

Private Sub Tmr1_Timer()

Lab1.Left = Lab1.Left + 50

If Lab1.Left = Form1.Width Then

    Lab1.Left = 0 - Lab1.Width

   

End If

End Sub