richtextbox获取某行_richtextbox 光标_richtextbox和textbox(46)

第十二章 图形

图形控件：shape控件和line控件 图形方法：使用pset(画点)、line(画线)、circle(画圆)等 图形方法，可以方便地在窗体和图片框上绘制简单的 图形 坐标系 每个对象都定位于存放它的容器内 每个容器都有一个坐标系，它包括坐标原点，x坐 标轴和y坐标轴，默认的坐标原点(0,0)在容器对象的左 上角 currentx和currenty属性:返回当前目置坐标

12.1直线控件(line)

常用属性： borderstyle:用来指定直线的类型。 0 透明 1 实线 2虚线 3 点线 4 点画线 5 双点画线 6 内实线 只有当borderwidth 为1时，可以用以上7种类型的线，否则只有0和 6有效。 borderwidth:设置直线的宽度。 bordercolor:设置直线的颜色。 x1、x2、y1、y2 ：指定直线始点和终点的x坐标及y坐标。

12.2形状控件（shape）

使用形状控件很容易画出矩形、正方形、圆、椭圆等几何图形。 常用属性： shape属性:设置画图形的类型。 0 矩形 1正方形 2 椭圆形 3 圆形 4 圆角矩形 5 圆角正方形 fillstyle属性：设置填充样式。 0 实心 1 透明 2 水平线 3垂直线 4向上对角线 5 向下对角线 6交叉线 7 对角交叉线 bordercolor属性：用来指定图形边界颜色。 borderwidth属性：用来指定图形边界宽度。 fillcolor属性： 设置填充的颜色。

12.3pset(画点)方法

格式：[对象名.] pset [step](x,y)[,颜色] 功能：在对象的指定位置(x,y)上按选定的颜色画点 参数step指定(x,y)是相对于当前坐标点的坐标 示例：下列语句能在坐标位置(500，900)处画一个 红点： pset (500,900)，rgb(255,0,0) 该语句等价于： currentx=100 : currenty=100 pset step(400,800)，rgb(255，0，0)

12.4 line(画线)方法

格式：[对象名.] line [(x1,y1)]-(x2,y2)[,颜色] 功能：在两个坐标点之间画一条线段。

例如，下列语句可在窗体上画一条斜线

line (600,600)-(2000,3000)

12.5 circle(画圆)方法

格式：

[对象名.] circle [step](x,y)，半径[，颜色，起点，终点，纵横比] 功能：在对象上画圆、椭圆或圆弧 说明：(1)(x,y)是圆、椭圆或圆弧的中心坐标，“半径”是圆、椭圆或 圆弧的半径。 (2)―起点”、“终点”(以弧度为单位)指定弧或扇形的起点或终点位 置，其范围从-2π到2π。“起点”和“终点”的默认值为0和2π。正数画 弧，负数画扇形。按逆时针方向画弧。

(3)纵横比为圆的纵轴和横轴的尺寸比。当纵横比大于1时，椭圆沿垂 直方向拉长；当纵横比小于1时，椭圆沿水平方向拉长。纵横比的默认 值为1，将产生一个标准圆。

(4)可以省略中间的某个参数，但不能省略分隔参数的逗号

例10.7

在窗体上画出一个扇形、圆、 椭圆

private sub form_load() const pi = 3.14159 show circle (2500, 1500), 1200, vbblue, -pi, -pi/2 circle step(-600, -600), 600 circle step(0, 0), 600, , , , 5/25 end sub

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-46.html