抱歉，我刚才没有管理好帖子。现在为 hl0071 重新发表:


靠,我是一个新手,刚学VB没几天,现在遇到一个问题,想请教一下各位大腕们,是这样的,我想用PICTURE和TIMER来实现图象在窗体内像桌球一样弹来弹去,就像一些网站上的悬浮广告一样,我编了下面的代码但就是不行:

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

Private Sub Timer1_Timer()
Dim a As Integer, b As Integer, c As Integer
a = Picture1.Left + 50
b = Picture1.Top - 50
For a = 0 To Form1.Width - Picture1.Width " 不知道用循环结构行不行"
Select Case a
Case Is > Form1.Width - Picture1.Width
a = Picture1.Left - 50
Case Is < 0
a = Picture1.Left + 50
End Select
Next a
For b = 0 To Form1.Height - Picture1.Height
Select Case b
Case Is < 0
b = Picture1.Top + 50
Case Is > Form1.Height - Picture1.Height
b = Picture1.Top - 50
End Select
Next b
Picture1.Move a, b
End Sub

这样图像一下子跑到右下角就不动了,不知道哪里错了,请多多指教.另外我又编了另外一个代码还是不行:

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

Private Sub Timer1_Timer()
Dim a As Integer, b As Integer, c As Integer
a = Picture1.Left + 50
b = Picture1.Top - 50
if a> Form1.Width - Picture1.Width then
a = Picture1.Left - 50
end if
if a< 0 then
a = Picture1.Left + 50
end if
if b < 0 then
b = Picture1.Top + 50
end if
if b>Form1.Height - Picture1.Height then
b = Picture1.Top - 50
end if

Picture1.Move a, b
end sub

设置timer的Interval和MX、MY控制速度。

Dim MY As Integer
Dim MX As Integer
Private Sub Command1_Click()
Randomize
MY = 50 'Rnd * 100 + 1
MX = 50 'Rnd * 100 + 1
Timer1 = True
End Sub

Private Sub Timer1_Timer()
FsH = Form1.ScaleHeight '- 1
FsW = Form1.ScaleWidth '- 1
If Picture1.Left <= 0 Then MX = -MX
If Picture1.Left + Picture1.Width >= FsW Then MX = -MX
If Picture1.Top <= 0 Then MY = -MY
If Picture1.Top + Picture1.Height >= FsH Then MY = -MY

Picture1.Left = Picture1.Left + MX
Picture1.Top = Picture1.Top + MY

Picture1.Move Picture1.Left, Picture1.Top
End Sub

Option Explicit

Dim iUD As Integer '控制上下移动方向, 1 = 上, 2 = 下
Dim iLR As Integer '控制左右移动方向, 1 = 左, 2 = 右
Dim l As Integer, t As Integer

Private Sub Form_Load()

'将移动方向定为向右上方移动

iUD = 1
iLR = 2
Timer1.Interval = 10
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

If iUD = 1 Then '上
t = Picture1.Top - 50
ElseIf iUD = 2 Then '下
t = Picture1.Top + 50
End If

If iLR = 1 Then '左
l = Picture1.Left - 50
ElseIf iLR = 2 Then '右
l = Picture1.Left + 50
End If

If l < 0 Then '到达左边缘,反弹
iLR = 2
ElseIf l > Form1.Width - Picture1.Width Then '到达右边缘,反弹
iLR = 1
End If
If t < 0 Then '到达顶部,反弹
iUD = 2
ElseIf t > Form1.Height - Picture1.Height Then '到达底部,反弹
iUD = 1
End If

Picture1.Move l, t

End Sub

我不明白，你为什么会想到在 Timer 控件内用循环呢!?

slore 心生邪念，可不是好版主所有的啊……

他不是说了吗，刚才是试了一下，不让别人看见，现在把字扩大，论坛菜鸟啊