求VFP表单设计里 时间控件里的代码,设计的内容是滚动的字幕,左右来回滚动的文字
1个回答
展开全部
新建表单文件。在表单上添加控件。
1) 设置对象属性
Form1表单Name属性:formtest
Form1表单Caption属性:考试系统
Form1表单BackColor属性:192,192,192
Label1控件Fontname属性:楷体
Label1控件Fontsize属性:24
Label1控件Caption属性:欢迎使用考试系统
Label1控件Backcolor属性:192,192,192
Label1控件Forecolor属性:255,128,0
Label1控件Autosize属性:.T.
Timer1控件Interval属性:200
Command1控件Caption属性:关闭
2) 编写事件代码
Timer1控件的Timer事件:
if thisform.label1.left <-thisform.label1.width
thisform.label1.left =thisform.width
else
thisform.label1.left = thisform.label1.left-10
endif
Command1控件的Click事件:
Thisform.release
3) 保存表单到formtest.scx文件,运行表单测试。
1) 设置对象属性
Form1表单Name属性:formtest
Form1表单Caption属性:考试系统
Form1表单BackColor属性:192,192,192
Label1控件Fontname属性:楷体
Label1控件Fontsize属性:24
Label1控件Caption属性:欢迎使用考试系统
Label1控件Backcolor属性:192,192,192
Label1控件Forecolor属性:255,128,0
Label1控件Autosize属性:.T.
Timer1控件Interval属性:200
Command1控件Caption属性:关闭
2) 编写事件代码
Timer1控件的Timer事件:
if thisform.label1.left <-thisform.label1.width
thisform.label1.left =thisform.width
else
thisform.label1.left = thisform.label1.left-10
endif
Command1控件的Click事件:
Thisform.release
3) 保存表单到formtest.scx文件,运行表单测试。
七鑫易维信息技术
2024-09-02 广告
2024-09-02 广告
Play Video 七鑫易维是致力于机器视觉和人工智能领域的高新科技企业,迄今已专注眼球追踪技术的研发、创新与应用超过14年,拥有完全自主知识产权,全球专利总量655余项。 作为眼球追踪技术领域的全球知名品牌,七鑫易维的产品体系覆盖眼动分...
点击进入详情页
本回答由七鑫易维信息技术提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询