快捷导航 上传作品

[c++] vb 窗口随机移动

[复制链接]
梅雷工具箱发表于 2015-6-25 13:24:09 | 显示全部楼层 |阅读模式
vb窗口随机移动


Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1200
End Sub

Private Sub Timer1_Timer()
    Me.Left = Rnd * (Screen.Width - Me.Width)
    Me.Top = Rnd * (Screen.Height - Me.Height)
End Sub

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/
就上UG网淘宝直营店
回复

使用道具 评分 举报

您需要登录后才可以回帖 登录 | 注册UG网

本版积分规则