VB 图片在窗体内自由移动，触到边上自动返回

Question

image或picture就像小球弹来弹去的效果

Answer 1

'添加一个计时器 Timer1 ，一个图像框 Image1
Option Explicit
Dim dx '定义两个窗体层变量
Dim dy '分别存放X，Y 方向变化增量

Private Sub Form_Load() '初始化
Timer1.Enabled = True
Timer1.Interval = 100
dx = Form1.Width / (Rnd * 150 + 200)
dy = Form1.Height / (Rnd * 150 + 200)
End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top + dy '通过改变 top 属性改变高度
Image1.Left = Image1.Left + dx
If Image1.Top <= 0 Then dy = -dy '如“碰壁”则变向
If Image1.Left <= 0 Then dx = -dx
If Image1.Top >= Form1.Height - Image1.Height Then dy = -dy
If Image1.Left >= Form1.Width - Image1.Width Then dx = -dx
End Sub

Answer 2

OFFICE是盗版的吧！把它卸载掉或安装破解程序吧