VB怎么用画点方法Pset和循环实现五彩碎纸不停散落?VB怎么用画点方法Pset和循环实现五彩碎纸不停散落?碎纸要不停向下散落要会消失的我用了这段代码,但效果确是只是小彩色点出现,不会动

Question

VB怎么用画点方法Pset和循环实现五彩碎纸不停散落?VB怎么用画点方法Pset和循环实现五彩碎纸不停散落? 碎纸要不停向下散落 要会消失的 我用了这段代码,但效果确是只是小彩色点出现,不会动,不会消失.怎么动怎么消失啊? For i = 0 To 100 XPos = Rnd * ScaleWidth YPos = Rnd * ScaleHeight PSet (XPos, YPos), QBColor(Int(Rnd * 16)) Next

Answer 1

'新建窗体，添加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 10...