UC知道谁能帮我用VB编个动画程序啊~~
来源：百度知道 编辑：UC知道 时间：2024/05/26 05:03:40
上课需要编写一个动画程序。要求如下:
单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”按钮变为可用；用滚动条来控制运动的速度。
_______________________________________________________________
要能用才贴上来啊~~
越快越好.
5.1后无效.
单击“开始”按钮，图像从左到右不断运动，“开始”按钮变为不可用，同时“停止”按钮变为可用；用滚动条来控制运动的速度。
_______________________________________________________________
要能用才贴上来啊~~
越快越好.
5.1后无效.
Dim Snow(1000, 2), Amounty As Integer
Private Sub Form_Load()
Form1.Show
DoEvents
Randomize
Amounty = 325
For J = 1 To Amounty
Snow(J, 0) = Int(Rnd * Form1.Width)
Snow(J, 1) = Int(Rnd * Form1.Height)
Snow(J, 2) = 10 + (Rnd * 20)
Next J
Do While Not (DoEvents = 0)
For LS = 1 To 10
For I = 1 To Amounty
Snow(I, 1) = Snow(I, 1) + Snow(I, 2)
If Snow(I, 1) > Form1.Height Then
Snow(I, 1) = 0: Snow(I, 2) = 2 + (Rnd * 30)
Snow(I, 0) = Int(Rnd * Form1.Width)
End If
Circle (Snow(I, 0), Snow(I, 1)), 15 * Rnd, RGB(255, 255, 255)
Next I
Form1.Cls
Next LS
Loop
End
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Unload Me
End Sub
希望你可以给我加分
GOOD LUCK
用软件改变世界,用代码书写人生,用思想创造未来!
五一又到了