设计表单bd2 表单中有一个标签和一个汁时器控件 运行时标签“欢迎您!”为从右向左移动的字幕
问题详情
设计表单bd2,表单中有一个标签和一个汁时器控件,运行时标签“欢迎您!”为从右向左移动的字幕,移动时间间隔为20毫秒。请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:步骤1:单击工具栏上的[新建]按钮在[新建]对话框的[文件类型]中选择“表单”单击[新建文件]打开表单设计器。单击[表单控件]窗口中的“标签”按钮再单击表单将标签放在表单合适位置[属性]窗口中的“Caption”设置为“欢迎您!”。单击[表单控件]窗口的“计时器”按钮再单击表单将计时器放在表单合适位置[属性]窗口中的“Interval”属性值设置为“20”。步骤2:右击计时器选择“代码”在“Timer”事件代码编辑窗口输入以下过程代码:ThisForm.Label1.Left=ThisForm.Label1.Left-1IFThisForm.Label1.Left<0-ThisForm.Label1.WidthTHENThisForm.Label1.Left=ThisForm.WidthENDIF步骤3:单击工具栏的[保存]按钮在弹出的[另存为]对话框中输入文件名“bd2”单击[保存]按钮。右击表单选择“执行表单”。
步骤1:单击工具栏上的[新建]按钮,在[新建]对话框的[文件类型]中选择“表单”,单击[新建文件],打开表单设计器。单击[表单控件]窗口中的“标签”按钮,再单击表单,将标签放在表单合适位置,[属性]窗口中的“Caption”设置为“欢迎您!”。单击[表单控件]窗口的“计时器”按钮,再单击表单,将计时器放在表单合适位置,[属性]窗口中的“Interval”属性值设置为“20”。步骤2:右击计时器选择“代码”,在“Timer”事件代码编辑窗口,输入以下过程代码:ThisForm.Label1.Left=ThisForm.Label1.Left-1IFThisForm.Label1.Left<0-ThisForm.Label1.WidthTHENThisForm.Label1.Left=ThisForm.WidthENDIF步骤3:单击工具栏的[保存]按钮,在弹出的[另存为]对话框中输入文件名“bd2”,单击[保存]按钮。右击表单,选择“执行表单”。