thisform.text1.value=time()
thisform.refresh
命令按钮mousedown事件下代码
thisform.text1.value=date()
thisform.refresh
第二
表单初始话init事件中添加代码
thisform.text1.value=time()
打开表单就显示时间
表单init事件
thisform.label1.caption="A"
thisform.label2.caption="B"
thisform.label3.caption="C"
label1 的click事件下代码
a=thisform.label2.CAPTION
b=thisform.label3.caption
thisform.label2.caption=b
thisform.label3.caption=a
LABEL2的click事件下代码
a=thisform.label1.caption
b=thisform.label3.caption
thisform.label1.caption=b
thisform.label3.caption=a
label3的click事件代码
a=thisform.label1.caption
b=thisform.label2.caption
thisform.label1.caption=b
thisform.label2.caption=a
有什么不明白
QQ44571841
if thisform.label1.left<=thisform.label1.widththisform.label1.left=thisfom.width
else
thisform.label1.left=thisform.label1.left-2
endif
这段程序的功能应该是控制标签label1在表单中从右向左滚动的,当label1左边横坐标小于或等于label1的宽度,label1又从表单右边进来,否则,会每次向左移动2个像素。
建议这段程序代码放在Timer事件中。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)