山东商业职业技术学院：《Visual Basic可视化程序设计》课程电子教案（PPT课件）第五章 图形操作

Visua| Basic可视化程序设计 第5章VB囝彩操作 模拟画笔程序设计 图形设计基础 图形控件 绘图方法 键盘和鼠标事件过程 知识延伸—拖放 2021/2/24 第1页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第1页 第5章 VB图形操作 • 模拟画笔程序设计 • 图形设计基础 • 图形控件 • 绘图方法 • 键盘和鼠标事件过程 • 知识延伸——拖放

Visua| Basic可视化程序设计 知识回顾 菜单的设计 ③提间:样奥现弹出菜单? ②提间:样实现动恋菜单? 工具栏与状态栏的设计 ③提问:编程的时候怎样判断用户单击了哪个按扭? 通用对话框的使用 ③提间:六种通用对话框的打开方式 错误处理 Tree view、 Listview控件 2021/2/24 合0| 2页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第2页 知识回顾 • 菜单的设计 • 工具栏与状态栏的设计 • 通用对话框的使用 • 错误处理 • TreeView、ListView控件 提问：怎样实现弹出菜单？ 提问：怎样实现动态菜单？ 提问：编程的时候怎样判断用户单击了哪个按钮？ 提问：六种通用对话框的打开方式

Visua| Basic可视化程序设计 本章目标 熟悉图形的处理 ·图形控件的使用 绘图方法 ·键盘和鼠标事件 2021/2/24 3页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第3页 本章目标 • 熟悉图形的处理 • 图形控件的使用 • 绘图方法 • 键盘和鼠标事件

Visua| Basic可视化程序设计 引例五 ②示例:模拟 Windows中的画笔。(单击查看代码) 文件G查看关于 要求: Q 1.包含操作菜单; 2包含进行图形操作的工具箱 口◎ 3可以画直线、曲线、点、圆、椭 园、矩形等;且能对闭合路径的图 形填充颜色; 4.能隐藏/显示颜料盒和相应的工具 I箱(如:线型或点型) 2021/2/24 合0| 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第4页 引例五 示例：模拟Windows中的画笔。 要求： 1. 包含操作菜单； 2. 包含进行图形操作的工具箱； 3. 可以画直线、曲线、点、圆、椭 圆、矩形等；且能对闭合路径的图 形填充颜色； 4. 能隐藏/显示颜料盒和相应的工具 箱（如：线型或点型）。 （单击查看代码）

Visua| Basic可视化覆序设计 图形设计基础 坐标系统 每个容器都有一个坐标系 构成一个坐标系,需要三个要素 坐标原点 △°坐标度量单位 坐标轴的长度与方向 坐标度量单位由容器对象的 ScaleMode属性决定,缺省为Twip For1 O原点 X Height Scaleheig cht 2021/2/24 5页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第5页 图形设计基础 • 坐标系统 – 每个容器都有一个坐标系 – 构成一个坐标系，需要三个要素  坐标原点  坐标度量单位  坐标轴的长度与方向 – 坐标度量单位由容器对象的ScaleMode属性决定，缺省为Twip Height ScaleHeight X Y O原点

Visua| Basic可视化覆序设计 用户自定义坐标系 (ScaleLeft, Scale Top (-50,-50) 原点 X 方法-: 通过 Scale width、 Scaleheight、 ScaleTop和 Scaleleft 属性实现。 默认坐标系 自定义坐标系 Form1. ScaleHeight= 200 Form1. Scaleheight=-200 Form1. scalewidth= 200 Forml scalewidth= 200 Form1. scaleleft= o Form1.scaleleft=-50 Form1.ScaleTop= 0 Form1. ScaleTop= 50 2021/2/24 6页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第6页 用户自定义坐标系 • 默认坐标系 Form1.ScaleHeight = 200 Form1.ScaleWidth = 200 Form1.ScaleLeft = 0 Form1.ScaleTop = 0 X Y O原点 • 自定义坐标系 Form1.ScaleHeight = 200 Form1.ScaleWidth = 200 Form1.ScaleLeft = -50 Form1.ScaleTop = -50 (-50, -50) X Y 50 方法一： 通过ScaleWidth、ScaleHeight、ScaleTop和ScaleLeft 属性实现。 (ScaleLeft, ScaleTop) -200

Visua| Basic可视化覆序设计 方法二:采用 Scale方法实现 「对象 SCale( xLeft,yop)-( xRight, bOttom ForI (xLeft, yTop) X (x Right, bOttom) 自定义坐标系 例如:Form1.Scae(-50,50)-(150,-150) 可以在程序中使用 Scale方法改变坐标系统。 当 Scale方法不带参数时,取消用户定义的坐标系,采 用缺省坐标系 2021/2/24 第7页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第7页 方法二：采用Scale方法实现 [对象.]Scale [(xLeft, yTop) – (xRight, yBottom)] (xLeft, yTop) (xRight, yBottom) X Y • 自定义坐标系 例如：Form1.Scale (-50, 50) - (150, -150) 可以在程序中使用Scale方法改变坐标系统。 当Scale方法不带参数时，取消用户定义的坐标系，采 用缺省坐标系

Visua| Basic可视化覆序设计 练习例题 ③示例:保持控件对家在坐标系内与轴和Y轴的 位置保持不变,如下图所示。(单击查看代码) 要求 △单击“左移”按钮时,坐标系向左 Y6例1001b控件对象在坐标系内的定位 和向上分别移动100wip单位 °单击“右移”按钮时,坐标系向右 和向下分别移动100twip单位 △在坐标改变之后。窗体上的控件 保持与坐标系的相对位置不变; △同时用一个标签显示当前窗体的 ScaleLeft和 Scaletop两个属性的 当前值。 2021/2/24 38页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第8页 练习例题 示例：保持控件对象在坐标系内与X轴和Y轴的 位置保持不变，如下图所示。 要求：  单击“左移”按钮时，坐标系向左 和向上分别移动100twip单位；  单击“右移”按钮时，坐标系向右 和向下分别移动100twip单位；  在坐标改变之后，窗体上的控件 保持与坐标系的相对位置不变；  同时用一个标签显示当前窗体的 ScaleLeft和ScaleTop两个属性的 当前值。 （单击查看代码）

Visua| Basic可视化程序设计 图形控件(2-1) Line控件 显示水平线、垂直线或对角线 X1、Y1:起始坐标 X2、Y2:终止坐标 Borderwidth:设定线的粗细,单位:像素 Borderstyle:设定线的样式 Shape控件 绘制矩形、正方形、椭圆、圆、圆角矩形、圆角 正方形 vB6例10-6 Shape尾性 2021/2/24 合0| 9页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第9页 图形控件（2-1） • Line控件 – 显示水平线、垂直线或对角线 – X1、Y1：起始坐标 – X2、Y2：终止坐标 – BorderWidth：设定线的粗细，单位：像素 – BorderStyle：设定线的样式 • Shape控件 – 绘制矩形、正方形、椭圆、圆、圆角矩形、圆角 正方形

Visua| Basic可视化覆序设计 练习例题 ③示例:在窗体上利用 Shape控件鲶制出奥运五环 期的形状,如下图所示。(查看代码) 奥运五环旗 回区 ○○○ 2021/2/24 第10页 首页上页目录前页后页末页

Visual Basic 可视化程序设计 首页 上页 目录 前页 后页 末页 2021/2/24 第10页 练习例题 示例：在窗体上利用Shape控件绘制出奥运五环 期的形状，如下图所示。（查看代码）