则点菜单--“显示”——"表单控件工具栏“,单击“表单控件”中的相关控件,
然后将鼠标移动到表单上,点击一下就可以了。
1、先在表单的init事件中加上:public a,b
a=5
b=5
2、然后添加一个标签(label)控件到表单中,caption值改为"你好"
3、再添加一个时钟(timer)控件到表单中,将其interval属性改为200(刷新时间,单位毫秒,1000表示1秒),最后在timer事件中加上代码:
thisform.label1.left=thisform.label1.left+a
thisform.label1.top=thisform.label1.top+b
if thisform.label1.left<0 or thisform.label1.left+thisform.label1.width>thisform.width
a=-a
endif
if thisform.label1.top<0 or thisform.label1.top+thisform.label1.height>thisform.height
b=-b
endif
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)