vb实现随机图形

原创 2012年03月28日 11:42:22
 在窗体上画一个commandbutton按钮,双击按钮编写程序语言,其语言如下:
Private Sub Command1_Click()
Show
Me.Scale (0, 0)-(18, 8)
Me.AutoRedraw = True
Me.DrawMode = 2
Circle (3, 4), 3, vbRed
Me.AutoRedraw = False
Line (7, 1)-Step(4, 6), vbGreen, B
Line (13, 7)-Step(4, 0), vbBlue
Line Step(0, 0)-Step(-2, -6), vbBlue
Line Step(0, 0)-Step(-2, 6), vbBlue
End Sub

vb随机图形

代码如下:   Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub Privat...
  • shisuiwuhen
  • shisuiwuhen
  • 2012年03月27日 21:29
  • 210

关于VB调用Access的Rnd函数随机返回表中数据的解决方法

  论坛上问这个问题的人蛮多,最近正好也在写一个小东西遇上了这个问题,在网上搜索了下没找到解决办法。最后在Access版的老大们帮助下解决了,有兴趣的可以交流一下。  SQL server数据库有个N...
  • vbman2003
  • vbman2003
  • 2007年08月25日 10:15
  • 4396

VB实现简单的图形区域选择

程序效果:当点击左边的部件图时,会弹出对话框提示你点击了哪一个区域。程序思路:用一个图片区域码图作为点击区域的参照,根据XY取得的颜色识别出属于哪一个区域程序界面如下:相关代码如下:Visual Ba...
  • supermanking
  • supermanking
  • 2010年04月28日 11:12
  • 3206

VB随机字母的函数

Function RandABC(N As Long, Optional Model As Long = 1) As String ''N是你想要得到字符串的长度 ''Model是你想得到大写还是...
  • liuzhenfang
  • liuzhenfang
  • 2012年05月08日 08:37
  • 398

用vb绘制图形并使其运动

用VB绘制图形并使其运动 绘制圆形并运动的程序代码 打开VB6.0程序,新建一个窗体。应用command画出一个按钮,将command的caption属性改为“开始运动”;插入一个timer,将其...
  • zhaoyadong1234
  • zhaoyadong1234
  • 2012年05月08日 22:39
  • 303

VB写的随机点名器代码

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++1、新建一个工程;2、在窗体Form1内放入Label1、Timer1、Comma...
  • Ant1328
  • Ant1328
  • 2011年06月26日 11:54
  • 1511

vb实现能动图形

首先,在form1上画出commandbutton,写上开始运动,在画一个闹钟timer1,再点击画图工具选择第三种类型画出一个小球。双击小球进行编程,语言如下; Dim g As Boolean ...
  • F1594601537qq
  • F1594601537qq
  • 2012年03月28日 11:43
  • 170

VB获取指定长度的随机字符串

'指定长度的祖母数字组合Public Function RandomFix(N As Long) As String Randomize R = R + Chr(Int(Rnd() * 2...
  • weinianjie1
  • weinianjie1
  • 2011年03月25日 12:06
  • 3359

VB - 数据文件(二)随机文件及文件基本操作

随机文件  随机文件中每一个记录定长,并设置记录号,记录号从1开始。             存取记录时,只要说明所需记录的编号,系统就以此算出记录所在位置,然后加以写入或读出 初步认识 ...
  • alexbnlee
  • alexbnlee
  • 2011年11月04日 17:31
  • 5995

VB随机生成10个数并排序

Private SubCommand1_Click() Me.Font.Size = 30  Dim a(10) As Integer  Dim i As Integer  For i = 1...
  • xuxiaoping1996
  • xuxiaoping1996
  • 2016年05月12日 17:56
  • 322
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb实现随机图形
举报原因:
原因补充:

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