自行画图.ppt

Pset、Line和Circle方法 【实例4.7】用画点（Pset）方法在图片框中输出2行直线。程序运行时，单击“画点线”命令按钮，在图片框中输出2行由彩色点画得的直线图案。 操作步骤 【实例4.8】用画直线或画矩形（Line）的方法，在窗体上画直线和正方形。程序运行时，单击“画直线”命令按钮，在窗体上输出10条间距相等、长度递增的线段图案。单击“画矩形”命令按钮，在窗体上输出10个大小相等、对角连接的正方形图案。 操作步骤 【实例4.9】用画圆（Circle）的方法，在窗体上绘制同心圆与相切圆。程序运行时，单击“同心圆”命令按钮，在窗体上输出5个大小不一、颜色不一的同心圆图案。单击“相切圆”命令按钮，在窗体上输出一排6个大小相等、颜色渐变的相切圆图案。 操作步骤 画图方法 Pset方法 对象名.Pset [Step] (x,y) , 颜色 3、与画图有关的常用属性 DrawStyle 线型 DrawWidth 线宽 ForeColor 前景色 BackColor 背景色 （1）设计用户界面 （2）编写“画直线”命令按钮的Click事件过程 Private Sub cmdLine_Click() Cls For i = 1 To 10 y = y + 300 Line (500, y)-(500 + i * 300, y), RGB(50, 200, 100) Next i End Sub 起点 终点 首先应清除 （3）编写“画矩形”命令按钮的Click事件过程 Private Sub cmdRect_Click() Cls For i = 1 To 10 a = a + 300 b = a + 300 Line (a, a)-(b, b), vbBlue, B Next i End Sub 画空心矩形 BF画实心矩形 （1）设计用户界面 （2）编写“同心圆”按钮的Click事件过程 Private Sub cmdCircle_Click() Cls For i = 1 To 5 r = r + 300 Circle (1600, 1600), r, QBColor(i) Next i End Sub 圆心 半径 定义画圆数量 （3）编写“相切圆”按钮的Click事件过程 Private Sub cmdCir_Click() Cls x = 500 y = 1500 For i = 1 To 6 Circle (x, y), 300, RGB(20 * i, 40 * i, 60 * i) x = x + 600 Next i End Sub 画相切圆 定义起始圆横坐标 定义起始圆纵坐标 改变相切圆的横向坐标位置 圆心 Line方法 对象名.Line [Step] (x1,y1)- [Step] (x2,y2) , 颜色 , BF 起点 终点 空心矩形 实心矩形 Circle方法 对象名.Circle [Step] (x,y) , 半径 , 颜色 , 起始角 , 终止角 , 纵横比 画圆弧、扇形 画椭圆 圆心坐标 * * 形状控件和直线控件 1.形状控件Shape Shape属性的值为0-5,分别表示不同的形状 Shape属性取不同值对应的形状 形状控件和直线控件 填充方式 ——FillStyle属性 FillStyle属性设置为0-8时的填充效果 形状控件和直线控件 1.BoderStyle属性 BoderStyle，属性值为0—6，分别表示为以下线型： 属性值 说 明 0 透明 1 实线 2 虚线 3 点线 4 点划线 5 双点划线 6 内实线 2.线控件Line 清屏与画点 1. 清屏 [对象.] Cls 作用：清除控件中所有的图形。若省略“对象”，则表示清除 窗体。 2. 画点 [对象.] Pset [Step] (x,y) [,颜色] 作用：在指定的位置上用指定的颜色画一个点。例如， Pset (30,40) ?将在当前的窗体上（30，40）处画一个点 绘图方法 说明： ① x和y是单精度值。缺省时以Twip为单位。 ② 颜色取值为1缺省时则将当前使用的ForeColor