Question

vb窗体内，图片每秒往上移动500像素，碰到窗体顶部时候每秒1000像素往下移动，碰到底再往上，如此循环。

界面要求如下：
vb在一个窗体内一张图片每秒往上移动500像素，当碰到窗体顶部时候每秒1000像素往下移动，碰到底再往上，如此循环。

Answer 1

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

Private Sub Timer1_Timer()
Static fx As Boolean
If fx Then
Picture1.Top = Picture1.Top + 1000
If Picture1.Top + Picture1.Height >= Me.ScaleHeight Then
Picture1.Top = Me.ScaleHeight - Picture1.Height
fx = False
End If
Else
Picture1.Top = Picture1.Top - 500
If Picture1.Top <= 0 Then
Picture1.Top = 0
fx = True
End If
End If
End Sub

纠正一下，应该不是500像素、1000像素吧？因为现在最大的屏幕高度也就1000多像素，那经得起你这样上下折腾，除非你用的电影银幕，呵呵。应该是VB的基本单位缇才对吧（15缇=1像素）。