随机图形

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Form1.Cls
End Sub
Private Sub Command3_Click()
Timer1 = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
'FillStyle = Int(Rnd * 7)
'FillColor = QBColor(Int(Rnd * 15))
'Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)
FillStyle = Int(Rnd * 7)
FillColor = QBColor(Int(Rnd * 15))
Line (Int(Rnd * 8000), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000))
End Sub
阅读更多
下一篇动作图片设计程序
想对作者说点什么? 我来说一句

autolisp绘制随机位置图形

2018年05月10日 980B 下载

VB088-画随机图形,源代码

2017年06月17日 3KB 下载

随机图形和文字生成示例

2016年05月04日 21KB 下载

VB 如何实现随机图形验证码

2009年09月30日 945B 下载

没有更多推荐了,返回首页

关闭
关闭