VB工程--百例43--图形绘制

概述  Option Explicit Private Sub Command1_Click()         picture1.Cls          picture1.Line (picture1.ScaleLeft + 100, picture1.ScaleTop + 100)- _         (picture1.ScaleWidth - 100, picture1.ScaleHeig

Option Explicit

Private Sub Command1_Click()@H_301_8@ picture1.Cls@H_301_8@ picture1.line (picture1.Scaleleft + 100,picture1.Scaletop + 100)- _@H_301_8@ (picture1.ScaleWIDth - 100,picture1.ScaleHeight - 100),B 以对角坐标绘制矩形@H_301_8@ End Sub要绘制矩形，需要有参数B或BF，其中的B表示对角坐标绘制矩形，BF表示用矩形边框的颜色来填充矩形内部

Private Sub Command2_Click() 绘制三角形@H_301_8@ picture1.Cls @H_301_8@ picture1.line (picture1.ScaleWIDth / 2,0)- _@H_301_8@ (0,picture1.ScaleHeight / 2)@H_301_8@ picture1.line (picture1.ScaleWIDth / 2,0)- _@H_301_8@ (picture1.ScaleWIDth,picture1.ScaleHeight / 2)@H_301_8@ picture1.line (0,picture1.ScaleHeight / 2)- _@H_301_8@ (picture1.ScaleWIDth,picture1.ScaleHeight / 2)@H_301_8@ @H_301_8@ End Sub

Private Sub Command3_Click() 绘制直线@H_301_8@ picture1.Cls@H_301_8@ picture1.line (picture1.Scaleleft,picture1.Scaletop)- _@H_301_8@ (picture1.ScaleWIDth,picture1.ScaleHeight)@H_301_8@ End Sub

总结

以上是内存溢出为你收集整理的VB工程--百例43--图形绘制全部内容，希望文章能够帮你解决VB工程--百例43--图形绘制所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。