vb工程21--百例41--五彩碎纸

概述  Option Explicit   Private Sub Command1_Click()         End End Sub   Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)           position         Dim XPos, YP

Option Explicit

Private Sub Command1_Click()

End

End Sub

Private Sub Form_MouseMove(button As Integer,Shift As Integer,X As Single,Y As Single)

position

Dim XPos,YPos,i定义点的水平和垂直坐标及循环变量i

DrawWIDth = 100 设置点的宽度为100

For i = 1 To 10000 循环变量从i从1到10000

XPos = Rnd * ScaleWIDth 水平坐标为窗体内部宽度的随机位置

YPos = Rnd * ScaleHeight 垂直坐标为窗体内部宽度的随机位置

PSet (XPos,YPos),QBcolor(Rnd * 15) 在窗体上绘制点,颜色是随机的

Next i 下一个循环变量

End Sub

总结

以上是内存溢出为你收集整理的vb工程21--百例41--五彩碎纸全部内容，希望文章能够帮你解决vb工程21--百例41--五彩碎纸所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。