关闭

VB----随机生成一个不同种类的图形

181人阅读 评论(0) 收藏 举报

 现画一个command命令按钮,进行粘贴。

Private Sub Command1_Click ()

Show

Me Scale (0, 0)-(18, 8)

Me. Auto redraw =True

Me. Draw Mode =2

Circle (3, 4), 3, VB Red

Me. Auto Redraw =false

Line (7, 1) –step (4, 6) .VB Green .B

Line (13, 7) –step (4, 0).VB Blue

Line step (0, 0)  –step (-2, -6). VB Blue

Line step (0, 0)  –step (-2, 6). VB Blue

End sub

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4583次
    • 积分:145
    • 等级:
    • 排名:千里之外
    • 原创:11篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档