您的位置：首页 > 编程语言

23 实体对象的事件编程

2006-06-14 15:47 183 查看

个别时候我们将用到实体对象
不过用起来，确实很不方便
剪贴一段代码过来

懒得多分析

Dim i As Integer, iYadder As Integer, iXadder As Integer

Dim iBottom As Integer, iLeft As Integer, iTop As Integer, iRight As Integer

iTop = 15000

iBottom = 14000

iLeft = -15000

iRight = -13000

iYadder = -16

iXadder = 16

For i = 1 To 400

If recRectangle1.Top > iTop - 60 Then iYadder = -16

If recRectangle1.Top < iBottom + 60 Then iYadder = 16

If recRectangle1.Left < iLeft + 60 Then iXadder = 16

If recRectangle1.Left > iRight - 60 Then iXadder = -16

recRectangle1.Top = recRectangle1.Top + iYadder

recRectangle1.Left = recRectangle1.Left + iXadder

Next i

这个东西，曾经做过一个按钮得看起来漂亮一点而已
美化的东西
有任务的时候再动

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航