UC知道VB怎么用画点方法Pset和循环实现五彩碎纸不停散落?
来源：百度知道 编辑：UC知道 时间：2024/05/16 08:03:07
碎纸要不停向下散落 要会消失的
我用了这段代码,但效果确是只是小彩色点出现,不会动,不会消失.怎么动怎么消失啊?
For i = 0 To 100
XPos = Rnd * ScaleWidth
YPos = Rnd * ScaleHeight
PSet (XPos, YPos), QBColor(Int(Rnd * 16))
Next
'新建窗体，添加timer1
Dim x(1 To 100) As Single, y(1 To 100) As Single, sudux(1 To 100) As Integer, pianyix(1 To 100) As Integer, suduy(1 To 100) As Integer, daxiao(1 To 100) As Integer, yanse(1 To 100) As Integer
Private Sub Form_Load()
Timer1.Interval = 20
For i = 1 To 100
xin i
Next
End Sub
Private Sub Timer1_Timer()
For i = 1 To 100
If y(i) > Me.Height Then xin i
Me.DrawWidth = daxiao(i)
PSet (x(i), y(i)), Me.BackColor
If pianyix(i) > x(i) Then
x(i) = x(i) + sudux(i)
If x(i) >= pianyix(i) Then pianyix(i) = IIf(Int(Rnd * 2) = 1, x(i) + Int(Rnd * 501 + 500), x(i) - Int(Rnd * 501 + 500))
Else
x(i) = x(i) - sudux(i)
If x(i) <= pianyix(i) Then pianyix(i) = IIf(Int(Rnd * 2) = 1, x(i) + Int(Rnd * 501 + 500), x(i) - Int(Rnd * 501 + 500))
End If
y(i) = y(i) + suduy(i)
PSet (x(i), y(i)), QBColor(yanse(i))