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控件绘制出奥运五环 期的形状，如下图所示。（查看代码）