Question

vb中如何让shape随时间自动变化

在窗体中添加一个 shape 控件，让他的形状跟颜色 每隔一秒自动变化一次。形状跟颜色 变化 是随机变化或 有规律变化 均可。

Answer 1

Private Sub Timer1_Timer()
Shape1.BorderStyle = Int(7 * Rnd)
Shape1.Shape = Int((6 * Rnd))
Shape1.BorderWidth = Int(Rnd * 3 + 1)
Shape1.FillStyle = Int(Rnd * 7 + 1)
End Sub

Answer 2

Dim a
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = a + 1
If a = 6 Then a = 0
Shape1.Shape = a
Shape1.BorderColor = &H800000 + a * 20000
End Sub