VB怎么使用timer让label控件在窗口里面自由移动

[复制链接]
查看11 | 回复3 | 2011-9-2 20:21:42 | 显示全部楼层 |阅读模式
代码:dim ix as integerdim iy as integerix=round(rand(me.width)*me.width,0)if ix+label1.width>me.width then ix=ix-label1.widthiy=round(rand(me.height)*me.height,0)if iy+label1.height>me.height then iy=iy-label1.heightlabel1.move ix,iy将上面的代码放置在timer的事件中。...
回复

使用道具 举报

千问 | 2011-9-2 20:21:42 | 显示全部楼层
在timer空间里定时生成2个随机数,然后将两个随机数分别赋给label的lift属性和top属性就可以了...
回复

使用道具 举报

千问 | 2011-9-2 20:21:42 | 显示全部楼层
设定位置参数,然后定时更新参数再重绘即可...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行