Question

VB简单动画设计

就是设计一个图形从一边移动到另一边，，，正确的请上传代码，本人刚开始学，，帮帮忙哦~~~

Answer 1

说一种方法，供你参考。但没有代码。你可以自己写。
窗体上放两个控件：图片框和计时器。图片框放在靠左边界的位置。

在设计界面的属性框里：
1、给图片框装入你的图片，并将图片框的边框样式设置无平面（也就是看不出来的那种）；图片框的left为0；
2、把计时器的时间间隔设置为100（也就是0.1秒）

在代码窗口：
1、通用部分声明一个变量“左”为single型
2、在计时器的计时时间里
左=左+移动步长
if左>width-图片框的width then 左=0
图片框的left=左

这样就可以了。

Answer 2

'自动移动，遇到边界会停下，能用方向键控制运动方向的圆球
'需控件：Shape1、Timer1
'在属性窗口将窗体的 KeyPreview 属性设置为 True
Dim ctTo As Long
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp: ctTo = 0
Case vbKeyDown: ctTo = 1
Case vbKeyLeft: ctTo = 2
Case vbKeyRight: ctTo = 3
End Select
End Sub

Private Sub Form_Load()
Shape1.Shape = 3: Shape1.FillColor = 255: Shape1.FillStyle = 0
Shape1.Width = Shape1.Height: Me.KeyPreview = True
Timer1.Enabled = True: Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Dim nTo As Single, X As Single, Y As Single

nTo = Shape1.Width * 0.25
X = Shape1.Left: Y = Shape1.Top
Select Case ctTo
Case 0: Y = Y - nTo
Case 1: Y = Y + nTo
Case 2: X = X - nTo
Case 3: X = X + nTo
End Select
If X < 0 Then X = 0
If X > Me.ScaleWidth - Shape1.Width Then X = Me.ScaleWidth - Shape1.Width
If Y < 0 Then Y = 0
If Y > Me.ScaleHeight - Shape1.Height Then Y = Me.ScaleHeight - Shape1.Height
Shape1.Move X, Y
End Sub