Option Explicit
Private Sub Command1_Click()
picture1.Cls
picture1.Line (picture1.ScaleLeft + 100,picture1.ScaleTop + 100)- _
(picture1.ScaleWidth - 100,picture1.ScaleHeight - 100),B 以对角坐标绘制矩形
End Sub要绘制矩形,需要有参数B或BF,其中的B表示对角坐标绘制矩形,BF表示用矩形边框的颜色来填充矩形内部
Private Sub Command2_Click() 绘制三角形
picture1.Cls
picture1.Line (picture1.ScaleWidth / 2,0)- _
(0,picture1.ScaleHeight / 2)
picture1.Line (picture1.ScaleWidth / 2,0)- _
(picture1.ScaleWidth,picture1.ScaleHeight / 2)
picture1.Line (0,picture1.ScaleHeight / 2)- _
(picture1.ScaleWidth,picture1.ScaleHeight / 2)
End Sub
Private Sub Command3_Click() 绘制直线
picture1.Cls
picture1.Line (picture1.ScaleLeft,picture1.ScaleTop)- _
(picture1.ScaleWidth,picture1.ScaleHeight)
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。