您的位置:首页 > 其它

随机生成不同的图形

2012-05-30 16:50 190 查看

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

内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  command 图形