Visual Basic 第11章 图形与图象设计

Presentation on theme: "Visual Basic 第11章 图形与图象设计"— Presentation transcript:

1 Visual Basic 第11章 图形与图象设计

2 主要内容 图形控件： 绘图方法： 显示图片控件 容器： 坐标系： 自定义坐标系 颜色及颜色函数 vbRed 等符号常量 Shape 形状
Line 直线 绘图方法： PSet Line Circle 显示图片控件 PictureBox 图片框 Image 图像框 容器： 窗体和图片框 坐标系： 坐标轴 度量单位 自定义坐标系 颜色及颜色函数 QBColor(n) RGB(r,g,b) vbRed 等符号常量

3 Shape－形状控件的主要属性 Shape属性：决定6种形状之一 FillStyle属性：决定填充的图案
BorderStyle属性：决定边界线的虚实 FillColor：填充色，BorderColor：边框色 BorderWidth：边框宽度。如宽度>1，则边界只能是实线。

4 Line（直线）控件的主要属性 X1,Y1 － 起点坐标 X2,Y2 － 终点坐标 BorderWidth － 线条宽度
BorderStyle － 线条虚实样式 如BorderWidth >1，则BorderStyle不起作用， 只能是实线。 BorderColor － 线条颜色 注意：在运行时想改变直线的位置，应改变其端点的坐标。Line 没有 Left 和 Top 属性 例

5 坐标系 默认： ScaleMode属性 自定义 1 缇 2 磅(1”/72) 3 像素 4 字符 5 英寸 6 毫米 7 厘米
自定义 1 缇 2 磅(1”/72) 3 像素 4 字符 5 英寸 6 毫米 7 厘米 默认： 单位：Twip(缇)=1/1440 英寸

6 自定义坐标系 使用Scale语句： Scale (x1,y1)-(x2,y2) 例 Scale (-4,2)-(4,-2) 始终有：
(0,0) - 4 4 -2 2 始终有： Scalewidth=x2-x ScaleHeight=y2-y1 均可能为负！ 清更正第285页的错误！

7 容器及其与画图有关的属性 容器：窗体、图片框或打印机 坐标属性 AutoRedraw －自动重画 DrawWidth － 线条宽度
ScaleLeft 、 ScaleTop －左上角坐标 ScaleWidth、ScaleHeight － 宽度和高度 CurrentX、CurrentY － 当前坐标 AutoRedraw －自动重画 DrawWidth － 线条宽度 DrawStyle － 线条虚实样式 FillColor －填充色，FillStyle －填充样式 若DrawWidth>1，则 DrawStyle不起作用。

8 DrawMode属性

9 画点方法 PSet 格式： [对象名.]Pset [Step] (x,y) [,颜色] 例如：Pset (300,500),vbRed
(在点（300，500）处画一红点) Step 表示使用相对坐标即： CurrentX=CurrentX+x CurrentY=CurrentY+y 然后画点 例1 例2

10 画直线方法 Line 格式： 例：Line (0,0)-(100,50),vbBlue 画一条蓝线
Line [Step] [(x1,y1)]-[Step](x2,y2) [,颜色] [,B[F]] 其中： Step 表示使用相对坐标 起点坐标(x1,y1)的缺省值为(CurrentX,CurrentY) 终点坐标(x2,y2)不能省。 选择“B”将画出一个以(x1,y1)和(x2,y2) 为对角线的矩形。 如果再选择“F”，则以指定的颜色填充。 例：Line (0,0)-(100,50),vbBlue 画一条蓝线 例

11 画园或椭圆 格式： 说明：起点、终点用于画弧(弧度)，比例用于画椭圆。起点、终点为负时，画出与圆心连线。 例如：
[对象名.]Circle [Step]<圆心坐标>,<半径> [,<颜色>,<起点>,<终点>,<比例>] 说明：起点、终点用于画弧(弧度)，比例用于画椭圆。起点、终点为负时，画出与圆心连线。 例如： PictureBox1.Circle (0,0),100,vbBlue,,,0.5 画一个蓝色椭圆

12 清除（Cls）方法 用于清除用画图方法画出的图形和用 Print 语句打印的信息：
语句格式：对象名.Cls 例如：me.Cls Picture1.Cls 注意：如果AutoRedraw=False,则Cls方法不能清除在AutoRedraw为True时所产生的图形和打印的信息。 例

13 颜色及有关函数 颜色值用长整型数表示，如： 内置颜色函数： 颜色常量： 蓝色：&H00FF0000& 绿色：&H0000FF00&
RGB(red,green,blue) red,green,blue: 0~255 QBColor(n) n=0,1,2,…,15 颜色常量：

14 显示图片的控件 图片框－PictureBox 图像框－Image 图片的加载： 设计时：指定Picture的文件名
运行时：1。用LoadPicture函数 2。用其他控件的Picture属性赋值

15 图像框 Image的主要属性 Picture属性：所显示的图片 Strech属性： False（缺省）：图不伸缩，框随图大小。
True：图随框大小伸缩。

16 图片框 PictureBox的主要属性 Picture属性：所显示的图片 AutoSize属性： False（缺省）：框大小不随图变。
True：框大小随图变。