求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文件,运行表单测试。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询