Question

求简单的VB动画代码~~~

比如一条直线在窗口里面转就可以了、、最好有运动的截图（静态）。495798779@qq.com 谢谢

Answer 1

窗体上放一个 时间控件 timer1，复制代码运行 ：
Option Explicit

Const pi As Double = 3.14159265358979
Dim s As Long

Private Sub Form_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Timer1.Interval = 40
Me.ScaleLeft = -1000
Me.ScaleTop = -1000
Me.DrawWidth = 2
Me.AutoRedraw = True
End Sub

Private Sub Timer1_Timer()
Dim x As Single, y As Single
Dim r As Integer, g As Integer, b As Integer
r = Int(Rnd * 255) + 1
g = Int(Rnd * 255) + 1
b = Int(Rnd * 255) + 1
Cls
s = s + 1
If s >= 60 Then s = 1
x = 600 * Cos(s * pi / 30 - pi / 2)
y = 600 * Sin(s * pi / 30 - pi / 2)
Line (-x, -y)-(x, y), RGB(r, g, b)
End Sub

自己会截图吧。。。

追问

我不是学这个的、、连VB怎么用都不知道、、、时间控件是什么呀、、、

追答

这个就是直线旋转的代码。
复制到窗体的代码编辑区即可。
时间控件就是工具栏上的那个钟表图标，点一下，在窗体上拉出来就行了。

Answer 2

我感觉我们是一个学校的