visual Basic 第11章 图形与图象设计蕨 万博科技职业学院
Visual BASIC 计 算 机 系 Visual Basic 第11章 图形与图象设计 万博科技职业学院
博科:技院 主要内容 ■图形控件: Hmc ■容器 ☆ Shape形状 今窗体和图片框 ☆Line直线 ■坐标系: ■绘图方法: 坐标轴 OHO ☆PSet 度量单位 ☆Line ■自定义坐标系 ☆ Circle 颜色及颜色函数 程序设计 ■显示图片控件 ☆ QBColor(n) ☆ Picture Box图片框 ☆RGB(gb) ◆ Image图像框 ☆ brEd等符号常量
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 主要内容 ◼ 图形控件： ❖Shape 形状 ❖Line 直线 ◼ 绘图方法： ❖PSet ❖Line ❖Circle ◼ 显示图片控件 ❖PictureBox 图片框 ❖Image 图像框 ◼ 容器： ❖窗体和图片框 ◼ 坐标系： ❖坐标轴 ❖度量单位 ◼ 自定义坐标系 ◼ 颜色及颜色函数 ❖QBColor(n) ❖RGB(r,g,b) ❖vbRed 等符号常量
博科:技院 Shape-形状控件的主要属性 Hmc ■ Shape属性:决定6种形状之 ■ FillStyle属性:决定填充的图案 ■ Borders/e属性:决定边界线的虚实 ■ Fillcolor:填充色, Bordercolor:边框色 OHO Borderwidth:边框宽度。如宽度>1,则边界只程 能是实线。 Shape控件的属性 □区 计 Sh FillStyle: 0 2 3 4 5 Border Style: 1 566
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. Shape－形状控件的主要属性 ◼ Shape属性：决定6种形状之一 ◼ FillStyle属性：决定填充的图案 ◼ BorderStyle属性：决定边界线的虚实 ◼ FillColor：填充色，BorderColor：边框色 ◼ BorderWidth：边框宽度。如宽度>1，则边界只 能是实线
博科:技院 Line(直线)控件的主要属性 Hmc X1Y1一起点坐标 X2Y2一终点坐标 ■ Border width一线条宽度 OHO Border style-线条虚实样式 如 Border Width>1,则 Border style不起作用, 只能是实线 例 程序设计 ■ Bordercolor-线条颜色 注意:在运行时想改变直线的位置,应改变其端点 的坐标。Line没有Let和Top属性
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. Line（直线）控件的主要属性 ◼ X1,Y1 － 起点坐标 ◼ X2,Y2 － 终点坐标 ◼ BorderWidth － 线条宽度 ◼ BorderStyle － 线条虚实样式 如BorderWidth >1，则BorderStyle不起作用， 只能是实线。 ◼ BorderColor － 线条颜色 注意：在运行时想改变直线的位置，应改变其端点 的坐标。Line 没有 Left 和 Top 属性 例
博科:技院 坐标糸 默认: ScaleMode属性 Hmc 0 自定义 (0,0)-Forml 口区 1 缇 2磅(1”/72) OHO 3 像素 4 字符 程序设计 5 Scalewidth 英寸 6毫米 单位:Twp(缇)=1/1440英寸 厘米
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 坐标系 ◼ 单位：Twip(缇)=1/1440 英寸 默认： ScaleMode属性 0 自定义 1 缇 2 磅(1”/72) 3 像素 4 字符 5 英寸 6 毫米 7 厘米
博科:技院 自定义坐标糸 Form1 (×1y1) 囗区 ■使用 Scale语句 Hmc Scale(x1y1-(X2,y2) 例 Scale(-4,2)-(4-2) 工0元 OHO Scalevidth=x2-x1 始终有: 程序设计 Scalewidth=x2-x1 Scaleheig ht=y2-y1 均可能为负! 清更正第285页的错误!圆△
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 自定义坐标系 ◼ 使用Scale语句： Scale (x1,y1)-(x2,y2) 例 Scale (-4,2)-(4,-2) ◼始终有： Scalewidth=x2-x1 ScaleHeight=y2-y1 均可能为负！ (0,0) - 4 4 -2 2 清更正第285页的错误！
博科:技院 容器及其与画图有关的属性 Hmc ■容器:窗体、图片框或打印机 ■坐标属性 令 ScaleLeft、 ScaleTop一左上角坐标 OHO Scale width、 ScaleHeight一宽度和高度 Currentx、 Currenty一当前坐标 ■ Auto Redraw一自动重画 ■ DrawWidth一线条宽度 程序设计 若 DrawWidth>1,则 DrawStyle-线条虚实样式 Drawstyle不起作用。 ■ FillColor一填充色, FillStyle一填充样式
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 容器及其与画图有关的属性 ◼ 容器：窗体、图片框或打印机 ◼ 坐标属性 ❖ ScaleLeft 、 ScaleTop －左上角坐标 ❖ ScaleWidth、ScaleHeight － 宽度和高度 ❖ CurrentX、CurrentY － 当前坐标 ◼ AutoRedraw －自动重画 ◼ DrawWidth － 线条宽度 ◼ DrawStyle － 线条虚实样式 ◼ FillColor －填充色，FillStyle －填充样式 若DrawWidth>1，则 DrawStyle不起作用
博科:技院 DraWMode属性 blackness vbCopyPen Hmc inVert bMaskotpen vbMaskpen vbMaskPenlot OHO bMergeNotPen vbMer gePen vbMer gePenlot vbNop vbNotCopypen 程序设计 vbotMaskPen vbNotMergepen vbNotxorpen whIteness vbXor Pen
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. DrawMode属性
博科:技院 画点方法PSet Hmc ■格式: [对象名. Pset[step](x,y)[颜色] 例如:Pet(300,500) brEd OHO (在点(300,500)处画一红点) 例1 ■Step表示使用相对坐标即: 例2 Currentx= currentx+x 程序设计 CurrentY=CurrentY+y 然后画点
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 画点方法 PSet ◼ 格式： [对象名.]Pset [Step] (x,y) [,颜色] ◼ 例如：Pset (300,500),vbRed (在点（300，500）处画一红点) ◼ Step 表示使用相对坐标即： CurrentX=CurrentX+x CurrentY=CurrentY+y 然后画点 例1 例2
博科:技院 画直线方法Lne Hmc ■格式: Line[step][(×1,y1)]step](x2,y2)[颜色][BF]] 其中: Step表示使用相对坐标 例 OHO 起点坐标(x×1,y1)的缺省值为( Currentx, currenty) 程 令终点坐标(x2,y2)不能省 冷选择“B将画出一个以(×1y1)和(x2y2)为对角线的计 矩形 如果再选择“F,则以指定的颜色填充 例:Line(0,0)-(100.50) abLue画一条蓝线
■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 画直线方法 Line ◼ 格式： 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 画一条蓝线 例