您的位置:首页 > 其它

随机生成不同的图形

2012-04-03 16:49 232 查看
在窗体上画一个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
最后点击运行,出现不同的随机图形,程序成功。
  此程序未能应用timer控件,无法实现在不定时间内生成随机图形。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  图形 command 语言 timer