vb课件 第十章 图形操作3
- 格式：ppt
- 大小：466.00 KB
- 文档页数：42
下载文档原格式
合集下载
vb图形操作
图片框的常用方法
paintPicture方法．格式： paintPicture方法．格式： [对象．］PaintPicture 对象．］PaintPicture <picture>,<x1>,<y1>[,width1][,height1][,x2][,y2] [,width2][,height2] 说明： <picture>，必选，要绘制到对象上的图形． <picture>，必选，要绘制到对象上的图形． <x1>,<y1>：表示在对象上绘制图片的坐标值． <x1>,<y1>：表示在对象上绘制图片的坐标值． [,width1][,height1]：绘制图片的目标宽度和高度． [,width1][,height1]：绘制图片的目标宽度和高度． [,x2][,y2]：图片剪切区内的坐标．若省略，则为０ [,x2][,y2]：图片剪切区内的坐标．若省略，则为０ [,width2][,height2]：图片的源宽度和高度． [,width2][,height2]：图片的源宽度和高度． 通过设置width和height属性为负，可以实现图像的翻转 通过设置width和height属性为负，可以实现图像的翻转
图片的加载
方法有两种: 方法有两种:
设计阶段加载 运行阶段加载 通过在代码窗口编写程序实现. LoadPicture语句. 通过在代码窗口编写程序实现.用LoadPicture语句.格式 Object.Picture=LoadPicture(PathName) PathName表示图片所在的路径. PathName表示图片所在的路径.若图片保存在程序的路径 下,可用LoadPicture(App.Path & ”\图片名”),若不在一个 可用LoadPicture(App.Path 图片名”),若不在一个 路径下, 路径下,要用完整的路径。如； Private Sub Picture1_Click() Picture1.Picture = LoadPicture("E:\单机游戏 LoadPicture("E:\ \QQ\NEWFACE\2.bmp") QQ\NEWFACE\ End Sub
10 第10章 VB处理图形
5
Visual Basic程序设计教程
·2个模块级变量A和D，表示摆动角度和方向。 ·2个事件过程： Form_Load，初始化界面和控件属性 Timer1_Timer，控制单摆的运动。
6
Visual Basic程序设计教程
Option Explicit Dim A As Integer, D As Integer '模块级变量，A表示角度，D表示方向 Const PI = 3.1415926 Private Sub Form_Load() Form1.Width = 1.3 * Form1.Height '设置窗体的宽度和高度比例 Picture1.Width = 1.5 * Picture1.Height '设置图片框的宽度和高度比例 Picture1.Scale (-150, -5)-(150, 195) '更改坐标系统 Shape1.FillStyle = 0 '使形状控件的填充模式为"实心 " Shape1.FillColor = vbRed '使形状控件填充红色 Shape1.BorderColor = vbRed '使形状控件的边界颜色为红色 Shape1.Width = 15 '按坐标系，更改形状控件大小 Shape1.Shape = 3 '使形状控件的形状为圆形 Line1.BorderColor = vbRed '使绳索颜色为红色 Line1.X1 = 0: Line1.Y1 = 0 '使绳索上端在原点(0,0)上 Picture1.AutoRedraw = True '使图片框的重绘属性为True Picture1.Line (-10, 0)-(10, 0) '顶端画一条固定绳索的横线 Timer1.Interval = 100 A = -20: D = -1 '设置初始角度和方向 End Sub
VB语言基础PPT演示课件
图形图像控件
总结词
图形图像控件用于在VB应用程 序中显示和处理图形和图像。
详细描述
常用的图形图像控件包括 PictureBox和Graphics，前者 用于显示图片，后者用于绘制 图形。
总结词
通过图形图像控件，可以创建 各种图形和图像效果，增强程 序的视觉效果。
详细描述
这些控件提供了丰富的绘图方 法和属性，使开发人员能够轻 松地创建出精美的用户界面和
VB语言的特点和优势
总结词
VB语言的特点和优势包括易学易用、可 视化设计、高效性能和广泛的应用领域 。
VS
详细描述
VB语言采用了可视化的编程方式，使得 开发者可以通过拖拽控件和属性设置来快 速构建用户界面。VB语言还提供了丰富 的控件库和函数库，使得开发者可以轻松 地实现各种功能。此外，VB语言还支持 多种数据库连接和操作方式，可以方便地 进行数据库开发。VB语言还具有高效性 能和广泛的应用领域，可以用于开发各种 类型的应用程序，包括桌面应用程序、 Web应用程序、游戏等。
关系型数据库
关系型数据库是建立在关系模型基础 上的数据库，使用二维表格来存储数 据，具有数据独立性强、数据操作简 便、数据完整性好等优点。
ADO对象模型
ADO对象模型定义
ADO对象模型是用于访问数据库的对象集合，通 过使用ADO对象，可以实现对数据库的连接、查 询、更新等操作。
Command对象
Command对象用于执行SQL语句或存储过程， 通过该对象可以执行查询、插入、更新和删除等 操作。
窗体控件包括Form、PictureBox、Label 、TextBox等，它们可以用来显示文本、图 像和图形，以及响应用户的输入。
总结词
详细描述
VB语言第10章教案
MouseMove、MouseDown或MouseUp
Private Sub 对象名_鼠标事件(Button As Integer, Shift As
Integer, X As Single,Y As Single)
说明：(1) Button参数表示哪个鼠标键被按下或释放。用0，1，2位分 别表示鼠标的左、右、中键，用1或0表示被按下或释放
Text1.Text = ""
Label1.Caption = Chr(keyasc) & "的ASCII码是：" & keyasc
End Sub
主页
10.1.2 鼠标事件
常用Click、DblClick、MouseMove、MouseDown和MouseUp等事件
后三种事件可以区分鼠标的左、右、中键与Shift、Ctrl、Alt键
Private Sub 对象名_DragOver(Source As Control, X As Single, _ Y As Single, State As Integer)
State参数：0 表示进入，即源对象正进入目标对象内； 1 表示离开，即源对象正在离开目标对象； 2 表示跨越，即源对象在目标范围内移动位置 主页
'移动到窗体的左上角
End If
End Sub
例10.2
主页
10.1.3 拖放操作
“拖放”(DragDrop)就是使用鼠标将对象从一个地方拖动到 另一个地方再放下 控件拖放是指运行时将控件拖放到新的位置
它可以分解为两种操作：一个是发生在源对象的“拖”操 作，另一个是发生在目标对象上的“放”操作
1. 属性
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
VB教学课件共345页(徐玉斌)
6．提供创建强Βιβλιοθήκη 的Internet应用程序工具• Visual Basic 提供很多方法用于创建Internet应用 程序。使用Visual Basic新的Internet编程特征， 可以利用Visual Basic提供的工具创建动态的、功 能强大的Internet应用程序。 • 您可以创建运行在客户端或服务器端的应用程序， 在基于窗体的应用程序中使用HTML页面，或在 Web上使用ActiveX部件。 • 此外，您还可以方便迅速地将应用程序发布到 Internet上。
如何学好本门课程
• • • • 掌握好基本概念和编程方法 上机和课下练习 善于查阅资料和利用互连网资源 参考资料 《程序员指南》 《部件工具指南》 《数据访问指南》
第二章 VB简单的程序设计（3学时）
2.1 程序设计方法的发展 2.2 VB中的有关概念 2.3 建立简单的应用程序 2.4 基本控件和属性 2.5 工程的管理及环境的设置 2.6 生成可执行文件和制作安装盘 2.7 程序调试 2.8 常见错误
“专业版”为专业编程人员提供了一整套进行开发的功 能完备的工具，该版本包括了学习版的全部功能。
“企业版”使得专业编程人员能够开发出功能强大的分 布式、高性能的客户/服务器或Internet/Intranet应用程 序,该版本包括了企业版的全部功能。
Visual（可视化）
Visual的英文含义就是可视化，“可视的Baisc” 这个名字可能抽象了点，但实际上它却是最直观的 编程方法，之所以叫做“可视化”，你只要看到VB 的界面就会明白，实际上你无需编程，就可以完成 许多步骤。 在VB中引入了控件的概念，在Windows中控件的 身影无处不在，如按钮、文本框等，VB把这些控件 模式化，并且每个控件都有若干属性用来控制控件 的外观，工作方法。 这样你就可以象在画板上一样，随意点几下鼠 标，一个按钮就完成了，这些在以前的编程语言下 是要经过相当复杂的工作的。
VB图形和绘图操作
VB图形和绘图操作VB图形和绘图操作一、坐标：X值:是沿X轴的位置,窗体中最左端是缺省位置0Y值:是沿Y轴的位置,窗体中最上端是缺省位置0X,Y的值可以小于0,也可以大于容器宽度或高度二、坐标值的刻度：缺省使用缇(Twip)为测量单位. 「Twip」中文译为"缇"，是一种和屏幕无关的长度单位，目的是为了让应用程序元素输出到不同设备时都能保持一致的计算方式。
打印机的一个点，即我们说的“磅”，相当于20个 Twips，一英吋相当于 1440个Twips, 一公分（厘米）则相当于567 Twips ，也就是说，如果屏幕上某个对象的长度是1440 Twip的话，将会印出一英吋来。
由于我们在屏幕上操作时会习惯用「像素」(也就是我们常说的屏幕分辨率DPI，系统可以设置各种DPI值)，所以我们直接输入数字时必须再将「像素」换算成「Twip」。
当DPI设置为96时(系统默认值)，1个像素=(1/96)*1440=15 Twip；当DPI设置为120时，1个像素=(1/120)*1440=12 Twip。
当DPI为96时，如果希望窗体的高是「400」像素，宽是「300」像素，属性的设定值就是：Height=400×15=6000 Twip，Width =300×15=4500 Twip.在VisualBasic应用程序中，屏幕（Screen）是一个对象。
其Width和Height属性以Twip为单位反映出屏幕的宽度和高度。
而TwipsPerPixelX和TwipsPerPixelY这两个属性只与硬件有关，而与屏幕上可设定的分辨率无关。
将Width除以TwipsPerPixelX可以计算出屏幕的水平分辨率（像素数），同样将Height除以TwipsPerPixelY 也可以计算出屏幕的垂直分辨率。
要想保持一个窗口或是控件的物理大小不变，只要计算出设计时的分辨率与实际运行时的分辨率的比值，然后根据这个比值来调节窗口和其中的控件的大小和相对位置，以及显示的字体尺寸，就可以保持同一应用程序的窗口在不同的系统下的物理外观（当然在不同尺寸的显示器上只能保持比例不变，物理大小还是不同的）。
VB第十章 绘图
Visual Basic 程序设计
第10章 绘图程序
本章要点
坐标系统 绘图属性 绘图方法 应用实例
第10章 绘图程序 10.1 坐标系统
10.1 坐标系统
绘图语句所绘制的图形，通常是通过容器控件 （窗体、图片框）输出的，而每个容器控件都有一个 坐标系统，坐标系是在容器控件中绘图必备的条件。 一个坐标系，包含坐标度量单位、坐标原点、坐 标轴的长度与方向等要素。 由坐标的原点、长度和方向三个要素确定绘制的 图形在容器中的位置。
格式： [对象名.] Circle [ [Step] （X，Y）,半径[,颜色] [,起始角][,终止角][,长短轴比率]]]
可控制画圆还是椭圆 默认值为1，画圆。 功能：在由[对象名 指定的容器内，在坐标系中以 取值为.] [-2π ， 2π]
可控制画圆弧和扇形
（X，Y）为圆心画圆或椭圆或圆弧或扇形。
演示 程序
第10章 绘图程序 10.1 坐标系统
方法二：
Private Sub Form_Click()
格式：[对象.]Scale[(xLeft,yTop)-(xRight,yBottom)]
演示 程序
Form1.Scale (-14, 14)-(14, -14) Form1.CurrentX = -14 Form1.CurrentY = 14 Print "(-14,14)" Form1.CurrentX = 11 Form1.CurrentY = -13 Print "(14,-14)" Form1.CurrentX = 0 Form1.CurrentY = 0 Print "(0,0)" Form1.Line (-14, 0)-(11, 0), vbRed Print "X轴正方向" Form1.Line (0, -14)-(0, 14), vbRed Print "Y轴正方向"
第10章 绘图程序
本章要点
坐标系统 绘图属性 绘图方法 应用实例
第10章 绘图程序 10.1 坐标系统
10.1 坐标系统
绘图语句所绘制的图形，通常是通过容器控件 （窗体、图片框）输出的，而每个容器控件都有一个 坐标系统，坐标系是在容器控件中绘图必备的条件。 一个坐标系，包含坐标度量单位、坐标原点、坐 标轴的长度与方向等要素。 由坐标的原点、长度和方向三个要素确定绘制的 图形在容器中的位置。
格式： [对象名.] Circle [ [Step] （X，Y）,半径[,颜色] [,起始角][,终止角][,长短轴比率]]]
可控制画圆还是椭圆 默认值为1，画圆。 功能：在由[对象名 指定的容器内，在坐标系中以 取值为.] [-2π ， 2π]
可控制画圆弧和扇形
（X，Y）为圆心画圆或椭圆或圆弧或扇形。
演示 程序
第10章 绘图程序 10.1 坐标系统
方法二：
Private Sub Form_Click()
格式：[对象.]Scale[(xLeft,yTop)-(xRight,yBottom)]
演示 程序
Form1.Scale (-14, 14)-(14, -14) Form1.CurrentX = -14 Form1.CurrentY = 14 Print "(-14,14)" Form1.CurrentX = 11 Form1.CurrentY = -13 Print "(14,-14)" Form1.CurrentX = 0 Form1.CurrentY = 0 Print "(0,0)" Form1.Line (-14, 0)-(11, 0), vbRed Print "X轴正方向" Form1.Line (0, -14)-(0, 14), vbRed Print "Y轴正方向"
第10章 VB图形操作
rgb101坐标和颜色表1012rgb函数的参数参数描述red必要参数数值范围从0到255表示颜色的红色成分green必要参数数值范围从0到255表示颜色的绿色成分blue必要参数数值范围从0到255表示颜色的蓝色成分101坐标和颜色表1013一些常见的标准颜色值label1forecolorrgb2550255设定标签的前景色为洋红色颜色红色值绿色值蓝色值黑色255绿色255255红色255洋红色255255黄色255255白色255255255101坐标和颜色qbcolor函数可返回一个long值用来表示所对应颜色值的rgb颜色码
必要参数，数值范围从0到255，表示颜色的蓝色成分
10.1 坐标和颜色
表10-1-3 一些常见的标准颜色值
颜色 黑色 蓝色 红色值 0 0 绿色值 0 0 蓝色值 0 255
绿色
青色 红色 洋红色 黄色 白色
0
0 255 255 255 255
255
255 0 0 255 255
0
255 0 255 0 255
【例10-5】代码
10.2 图形控件
图10-2-1 例10-5运行界面
10.2 图形控件
10.2.2 图像框（Image）控件
Image控件的用途与PictureBox控件相似。但 它只能用于显示图形，不能作为其他控件的容 器，也不支持PicureBox控件的高级方法。
10.2 图形控件
10.1 坐标和颜色
以下规则用于 Visual Basic坐标系统：
当移动控件或调整控件的大小时，使用控件容器的坐标 系统。如果直接在窗体上绘制对象时，窗体就是容器。 如果在框架或图片框里绘制控件时，框架或控件是容器 。 所有的图形和 Print 方法，使用容器的坐标系统。 一些用来调整窗体大小或移动窗体的语句，用来表示窗 体的位置和大小。 当创建用来调整窗体大小或移动窗体的代码时，应先检 查 Screen 对象的 Height 属性和 Width 属性，以确保窗 体在屏幕上大小合适。 任何容器的缺省坐标系统，都是由容器的左上角（0，0 ）坐标开始。
必要参数，数值范围从0到255，表示颜色的蓝色成分
10.1 坐标和颜色
表10-1-3 一些常见的标准颜色值
颜色 黑色 蓝色 红色值 0 0 绿色值 0 0 蓝色值 0 255
绿色
青色 红色 洋红色 黄色 白色
0
0 255 255 255 255
255
255 0 0 255 255
0
255 0 255 0 255
【例10-5】代码
10.2 图形控件
图10-2-1 例10-5运行界面
10.2 图形控件
10.2.2 图像框（Image）控件
Image控件的用途与PictureBox控件相似。但 它只能用于显示图形，不能作为其他控件的容 器，也不支持PicureBox控件的高级方法。
10.2 图形控件
10.1 坐标和颜色
以下规则用于 Visual Basic坐标系统：
当移动控件或调整控件的大小时，使用控件容器的坐标 系统。如果直接在窗体上绘制对象时，窗体就是容器。 如果在框架或图片框里绘制控件时，框架或控件是容器 。 所有的图形和 Print 方法，使用容器的坐标系统。 一些用来调整窗体大小或移动窗体的语句，用来表示窗 体的位置和大小。 当创建用来调整窗体大小或移动窗体的代码时，应先检 查 Screen 对象的 Height 属性和 Width 属性，以确保窗 体在屏幕上大小合适。 任何容器的缺省坐标系统，都是由容器的左上角（0，0 ）坐标开始。
第10章 图形操作.ppt
第10章 图形操作
• 本章主要任务：
1．掌握建立图形坐标系统的方法。 2．掌握VB的图形控件和图形方法及其应用。 3．掌握简单几何图形的绘制。
目录 10.浙1 江10科..2技学10院.3教1信0.4系计10算.5机本基章础小教结学网作站业：www.Goit.1Net
10.1 图形控件
• VB提供了四个图形控件，分别是 • 图像控件（ Image ） • 图片框（ Picture Box ） • 形状控件（ Shape ） • 直线控件（ Line ） • 图形控件的优点是可以使用较少的代码
Picture1.AutoSize = True End Sub Private Sub Cmdimage_Click()
Image1.Height = 1620 Image1.Width = 1800 Image1.Stretch = True End Sub Private Sub Cmdexit_Click() End End Sub
10.1 图形控件
图片框有两个特有的属性AutoSize属性和Align属性
图片框的AutoSize属性值为True时，图片框会自动调 整尺寸以适应所装载的图片大小。利用Align属性 可以手工创建工具栏或状态栏，Align属性值用来 确定图片框出现在窗体上的位置，下面是Align可 取的值：
0—缺省值 1—放于窗体顶部 2—放于窗体底部 3—放于窗体左边 4—放于窗体右边
富的文本控件能够提供字处理功能相似，图片框 能够进行图形处理，例如在图片框中装载图像、 在磁盘上保存图像、用图形方法绘图、打印、逐 个处理像素、设置图像比例等等。此外，图片框 还可以作为其它控件的容器。 • 图片框加载图片的方法与图像控件中的方法一样。
• 本章主要任务：
1．掌握建立图形坐标系统的方法。 2．掌握VB的图形控件和图形方法及其应用。 3．掌握简单几何图形的绘制。
目录 10.浙1 江10科..2技学10院.3教1信0.4系计10算.5机本基章础小教结学网作站业：www.Goit.1Net
10.1 图形控件
• VB提供了四个图形控件，分别是 • 图像控件（ Image ） • 图片框（ Picture Box ） • 形状控件（ Shape ） • 直线控件（ Line ） • 图形控件的优点是可以使用较少的代码
Picture1.AutoSize = True End Sub Private Sub Cmdimage_Click()
Image1.Height = 1620 Image1.Width = 1800 Image1.Stretch = True End Sub Private Sub Cmdexit_Click() End End Sub
10.1 图形控件
图片框有两个特有的属性AutoSize属性和Align属性
图片框的AutoSize属性值为True时，图片框会自动调 整尺寸以适应所装载的图片大小。利用Align属性 可以手工创建工具栏或状态栏，Align属性值用来 确定图片框出现在窗体上的位置，下面是Align可 取的值：
0—缺省值 1—放于窗体顶部 2—放于窗体底部 3—放于窗体左边 4—放于窗体右边
富的文本控件能够提供字处理功能相似，图片框 能够进行图形处理，例如在图片框中装载图像、 在磁盘上保存图像、用图形方法绘图、打印、逐 个处理像素、设置图像比例等等。此外，图片框 还可以作为其它控件的容器。 • 图片框加载图片的方法与图像控件中的方法一样。
VB第十章 图形操作
对象.Zorder [position] Position：指出一个对象相对于另一个对象的位置的数值。 0：表示该对象被定位于Z序列的前面；
1：表示该对象被定位于Z序列的后面。
例：作出下列效果的界面
10.2 绘图属性（窗体、pictureBox和打印机对象所具有的属性） 一、当前坐标属性(当前坐标会随着输出内容而改变)：
Form1.left
0
Form1.top
x
(scaleleft,scaletop) Form1.height Form1.scaleheight
y
3）属性ScaleMode决定对象坐标的度量单位，共有11种 （常用8种，默认的Twip），见下表：
常数 设置 描述 值
vbUser
vbTwips vbPoints vbPixels
Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 Shape1(0).FillStyle = 2 For i = 1 To 5 Load Shape1(i) Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i
For i = 1 To 2
For j = 1 To 2 k = (i - 1) * 2 + j Load Shape1(k) Shape1(k).Visible = True Shape1(k).Top = mtop: Shape1(k).Left = mleft
mleft = mleft + Shape1(0).Width
Private Sub Form_Click()
Dim j As Integer form1.CurrentX = 0 form1.CurrentY = ScaleHeight / 2 form1.DrawWidth = 1 For j = 0 To 6 form1.DrawStyle = j form1.Line -Step(ScaleWidth / 15, 0) Next j For j = 1 To 6
1：表示该对象被定位于Z序列的后面。
例：作出下列效果的界面
10.2 绘图属性（窗体、pictureBox和打印机对象所具有的属性） 一、当前坐标属性(当前坐标会随着输出内容而改变)：
Form1.left
0
Form1.top
x
(scaleleft,scaletop) Form1.height Form1.scaleheight
y
3）属性ScaleMode决定对象坐标的度量单位，共有11种 （常用8种，默认的Twip），见下表：
常数 设置 描述 值
vbUser
vbTwips vbPoints vbPixels
Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 Shape1(0).FillStyle = 2 For i = 1 To 5 Load Shape1(i) Shape1(i).Left = Shape1(i - 1).Left + 750 Shape1(i).Shape = i
For i = 1 To 2
For j = 1 To 2 k = (i - 1) * 2 + j Load Shape1(k) Shape1(k).Visible = True Shape1(k).Top = mtop: Shape1(k).Left = mleft
mleft = mleft + Shape1(0).Width
Private Sub Form_Click()
Dim j As Integer form1.CurrentX = 0 form1.CurrentY = ScaleHeight / 2 form1.DrawWidth = 1 For j = 0 To 6 form1.DrawStyle = j form1.Line -Step(ScaleWidth / 15, 0) Next j For j = 1 To 6
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(4)使用VB常量，如vbRed，vbBlue等。
例9.5 演示颜色的渐变过程。
Visual Basic程序设计
Visual Basic程序设计
Option Explicit Private Sub Form_Click() Dim i% CurrentX = 600 CurrentY = 1800 Print 0 For i = 1 To 7 Load Shape1(i) Shape1(i).Left = 600 + i * (Shape1(0).Width + 100) Shape1(i).FillStyle = i Shape1(i).Visible = True CurrentX = 600 + i * (Shape1(0).Width + 100) CurrentY = 1800 Print i Next i End Sub
Visual Basic程序设计
Visual Basic程序设计
Option Explicit Private Sub Form_Click() Dim j%, x%, y!, sp! y = Form1.ScaleHeight x = Form1.ScaleWidth sp = 255 / y For j = 0 To y Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp) Next j End Sub
Private Sub Picture1_Click() Picture1.Scale (-0.5, 1)-(1.5, -0.2) Picture1.Line (-1, 0)-(2, 0) Picture1.Line (0, 2)-(0, -2) For x = 0.3 To 1 Step 0.005 Picture1.Line (x, 0)-(x, x * x), vbBlue Next x End Sub
属性ScaleMode决定容器对象的坐标度量单位，共有8种单位形式。 缺省时为Twip。每英寸1440个Twip，20个Twip为1磅。
度量单位转换可使用ScaleX和ScaleY方法：
对象.ScaleX（转换值，原坐标单位，转换坐标单位）
对象.ScaleY（转换值，原坐标单位，转换坐标单位） 改变容器对象的ScaleMode属性值，不会改变容器的大小或它在屏 幕上的位置。
下角坐标；
③关键字Step表示采用当前作图位置的相对值； ④关键字B表示画矩形，关键字F表示用画矩形的颜色来填
充矩形，F必须与B一起使用。
例9.6用Line方法在图形框PictureBox上绘制函数f(x)=x2在区间[0.3,1] 之间积分面积区域，填充为蓝色。
Visual Basic程序设计
Visual Basic程序设计
Visual Basic程序设计
Visual Basic程序设计
Private Sub Form_Click() Form1.Scale (-8, 2)-(8, -2) Line (-7.5, 0)-(7.5, 0) Line (0, 1.9)-(0, -1.9) CurrentX = 7.5 CurrentY = 0.2 Print "X" CurrentX = 0.5 CurrentY = 2 Print "Y" For i = -7 To 7 Line (i, 0)-(i, 0.1) CurrentX = i - 0.2 CurrentY = -0.1 Print i Next i For x = -6.283 To 6.283 Step 0.01 y = Sin(x) PSet (x, y) Next x End Sub
③ 指定画笔的起终点位置。
④ 调用绘图方法绘制图形。
Visual Basic程序设计
Visual Basic程序设计
Private Sub Form_Click() Form1.Scale (-8, 2)-(8, -2) For x = -6.283 To 6.283 Step 0.01 y = Sin(x) PSet (x, y) Next x End Sub
例9.2在Form_Paint 事件中定义窗体的坐标系。
Visual Basic程序设计
Visual Basic程序设计
Private Sub Form_Click() Cls Form1.Scale (-300, 200)-(300, -200) Line (-300, 0)-(300, 0) Line (0, 200)-(0, -200) CurrentX = 0 CurrentY = 0 Print 0 CurrentX = 260 CurrentY = 50 Print "X" CurrentX = 10 CurrentY = 180 Print "Y" End Sub
Visual Basic程序设计
自行定义坐标系
使用Scale方法，语法如下： [对象.]Scale[(xLeft , yTop)-(xRight, yBotton)] 说明： (1)对象可以是窗体、图形框或打印机； (2)参数指定了对象的左上角坐标和右下角坐标； (3)不带参数时，取消自定义坐标系。
Visual Basic程序设计
实战1,上机题1
Visual Basic程序设计
Private Sub Form_Click() Dim i%, x% Form1.Cls Scale (-20, 10000)-(1000, -1000) Line (-20, 0)-(1000, 0) Line (0, -1000)-(0, 10000) Randomize For i = 0 To 4 x = Int(Rnd() * (10000 - 1000)) Line (i * 200 + 20, 0)-(i * 200 + 80, x), vbRed, BF CurrentX = i * 200 + 20 CurrentY = -20 Print x Next i End Sub
Visual Basic程序设计
第9章
图形操作
9.1 图形操作基础
9.2 绘图属性
9.3 图形方法及控件 9.4 综合应用
Visual Basic程序设计
9.1 图形操作基础
9.1.1 引例 例9.1在窗体上绘制2到2之间的正弦曲线。 在VB中绘制图形，其过程一般分为4个步骤： ① 先定义图形载体窗体对象或图形框对象的坐标系。 ② 设置线宽，线型、色彩等属性。
Visual Basic程序设计
9.2.2 线宽与线型
作用：窗体、图形框或打印机的DrawWidth属性给出这些对 象上所画线的宽度或点的大小(以像素为单位，最小值为1)。 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画 线的形状。 说明：线型只在DrawWidth属性为1时有效。
设置值 0 1 2 3 4 5 6 线 型 实线(缺省) 长划线 点线 点划线 点点划线 透明线 内实线 图 示
例9.4 通过改变DrawStyle属性值在窗体上画出不同的线型。
Visual Basic程序设计
Visual Basic程序设计
Option Explicit
Private Sub Form_Click() Dim j As Integer Print "DrawStyle 0 1 2 3 4 Print CurrentX = 600 CurrentY = ScaleHeight / 3 DrawWidth = 1 For j = 0 To 6 DrawStyle = j CurrentX = CurrentX + 150 Line -Step(600, 0) Next j End Sub
Visual Basic程序设计
Visual Basic程序设计
Option Explicit Private Sub Form_Click() Dim i As Integer Randomize For i = 1 To 100 CurrentX = Form1.ScaleWidth * Rnd CurrentY = Form1.ScaleHeight * Rnd If i Mod 2 = 0 Then Print "A" Else Print "B" End If Next i End Sub
Visual Basic程序设计
9.2 绘图属性
9.2.1 当前坐标
作用：CurrentX、CurrentY属性给出窗体或图形框或打印机 在绘图时的当前坐标。 说明：①属性在设计阶段不能使用，使用CLS方法后，CurrentX 与CurrentY属性值为0。 ②坐标系确定后，坐标(x,y)表示对象上绝对坐标值。若 坐标值前加上Step，则表示对象上的相对坐标位置，即从当前坐 标分别平移x,y个单位，其绝对坐标为(CurrentX+x, CurrentY+y)。 例9.3用Print方法在窗体上随机显示50个“★”和50个“☆” 。
Visual Basic程序设计
9.3 图形方法及控件
9.3.1 Line方法
作用：Line方法用来画直线或矩形。
格式：[对象.] Line [ [step](x1,y1)]－ [step](x2,y2) [,[颜色][,B[F]]]
说明：①对象可以是窗体或图形框； ②(x1,y1) 、(x2,y2)为线段的起终点坐标或矩形的左上角和右
Visual Basic程序设计
9.1.2 坐标系统 构成一个坐标系，需要三个要素：坐标原点、坐 标度量单位、坐标轴的长度与方向。
Visual Basic程序设计
9.1.2 坐标系统
属性ScaleLeft 、 ScaleTop控制容器对象左边和顶端的坐标，根据 这两个属性可形成坐标原点。所有对象的ScaleLeft、ScaleTop属性 的默认值均为0，坐标原点在对象的左上角。 属性ScaleWidth和ScaleHeight确定对象内部水平方向和垂直方向的 单元数。