vb随机图形

原创 2012年03月27日 21:29:07
代码如下:
  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
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

vb实现随机图形

一·实验目的    为了实现随机生成不同的图形,满足题目需要,实现vb语言程序的运作,最后画出那令人满意的随机的不同图形。 二·实验内容    在窗体上画一个commandbutton按钮,...

vb.net GDI+入门——使用Graphics对象填充图形

上一章我们了解如何使用Graphics对象来绘制由点和线构成的线图《vb.net GDI+入门——使用Graphics对象绘制线图》,在实际绘图中,我们还需要使用色块等来填充图形,这一章, 就来看如...

图形编辑器, 画图程序, 绘制, 设计, 打印, 矢量图转换, VC++, VB, 源代码

图形编辑器, 画图程序, 绘制, 设计, 打印, 矢量图转换, VC++, VB, 源代码

笔记5:转:VB.NET(2005)图形的处理(bitmap,byte(),持久化)

http://hi.baidu.com/xingwm/item/33792adb6eac324dddf9be34 1.如何持久化作图     在vb.net 中,已经不像VB6那样利用...

vb实现能动图形

一·实验目的   为了对vb语言的运用有更好的把握,同时能够运用vb语言实现不同图形随机的运动。 二·实验内容   首先,在form1上画出commandbutton,写上开始运动,在画一个...

VB学习第七周--图形打印

1.字母金字塔 Public Class Form1 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As S...

vb.net侧边栏图形菜单

VB6时代,做侧边栏菜单非常困难,一般都要用到第三方控件,但是在VB.net中,做侧边栏图形菜单非常方便,先看效果: 这是菜单选中效果: 这些菜单都是用Label控件做的,容器是用的Pan...

高维图形VB代码参考

  • 2016-07-08 01:25
  • 2.19MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)