VB 图形图像处理基础

1、医学计算机应用医学计算机应用2021-10-161第八章 程序设计基础与应用2021-10-162Visual Basic Visual Basic 程序设计基础与程序设计基础与应用应用2021-10-163第一节第一节 VB程序设计概述程序设计概述第二节第二节 VB程序设计基础程序设计基础第三节第三节 选择结构程序设计选择结构程序设计第四节第四节 循环结构程序设计循环结构程序设计第五节第五节 过过 程程第六节第六节 文文 件件第七节第七节 图形图像处理基础图形图像处理基础 第八节第八节 多文档界面与菜单多文档界面与菜单第九节第九节 数据库应用数据库应用第七节 图形图像处理基础2021-10-

2、164图形技术2021-10-165要掌握的主要内容：要掌握的主要内容：1. 图形控件（图片框图形控件（图片框 PictureBox，影，影像框像框 Image，形状控件，形状控件Shape )2. 坐标系统（缺省刻度，自定义刻度坐标系统（缺省刻度，自定义刻度)3. 颜色设置（四种方式）颜色设置（四种方式）4. 画点，画线，画圆画点，画线，画圆(包括：包括： 椭圆，弧椭圆，弧)图形控件图片框控件图片框控件2021-10-166PictureBox控件的主要作用是为用户显示图片，也可作为其他控件的主要作用是为用户显示图片，也可作为其他控件的容器。在程序运行时装入图形控件的容器。在程序运行时装入图

3、形 ：图图片片框对象框对象.Picture = LoadPicture(图形文件名图形文件名)从图片框中删除一个图形，可用从图片框中删除一个图形，可用LoadPicture(),即用空图片代即用空图片代替原图片。替原图片。 Autosize属性属性 True 图片框能自动调整大小与显示的图片匹配。图片框能自动调整大小与显示的图片匹配。 False 图形超过图片框的部分将被剪裁掉图形超过图片框的部分将被剪裁掉注意注意 PictureBox控件不提供滚动条控件不提供滚动条图片框控件（可当容器）2 2图片框控件的常用方法图片框控件的常用方法PrintPrint方法。方法。 图片框控件名称图片框控件名

4、称.Print .Print 输出表输出表ClsCls方法。方法。 图片框控件名称图片框控件名称.Cls.Cls 2021-10-1672021-10-168影像框Image 2021-10-169使用方法与图片框相同。影像框占用更少的内存，描绘得更使用方法与图片框相同。影像框占用更少的内存，描绘得更快。影像框内不能存放其他控件。快。影像框内不能存放其他控件。Stretch属性属性 例子例子False 图像框可自动改变大小以适应其中的图形图像框可自动改变大小以适应其中的图形True 图形可根据图像框的大小自动调整尺寸图形可根据图像框的大小自动调整尺寸例例 本例说明图片框与影像框内图形的加载方法

5、，图片框的本例说明图片框与影像框内图形的加载方法，图片框的Autosize属性与影像框的属性与影像框的Stretch属性对加载的图形的影响。属性对加载的图形的影响。形状控件ShapeShape属性属性BorderWidth BorderWidth 属性属性FillStyleFillStyle属性属性2021-10-1610 VB坐标系2021-10-1611每个容器都有一个坐标系，构成一个坐标系，需要三个要素：每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量。坐标度量单位由容器对象的单位由容器对

6、象的ScaleMode属性决定。缺省时为属性决定。缺省时为Twip。每英。每英寸寸1440个个Twip，20个个Twip为一磅。为一磅。2021-10-16122021-10-1613 自行定义坐标系2021-10-1614（ScaleTop，ScaleLeft）例子例子在在Form_Load 事件中定义窗体的坐标系。事件中定义窗体的坐标系。通过通过ScaleTop，ScaleLeft，ScaleWidth和和ScaleHeight属性实现。属性实现。object. Scale (x1,y1) (x2,y2) 若要返回缺省刻度，可使用无参数的若要返回缺省刻度，可使用无参数的Scale方法。方法

7、。2021-10-1615当前坐标2021-10-1616CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图属性给出窗体或图形框或打印机在绘图时的当前坐标。时的当前坐标。例子例子这两个属性在设计阶段不能使用，这两个属性在设计阶段不能使用，使用使用CLS方法后，方法后，CurrentX、CurrentY属性值为属性值为0 例子例子用用Print方法在窗体上随机显示方法在窗体上随机显示50个个“”和和50个个“” 图形方法2021-10-1617 颜色设置 2021-10-16181. 1. RGBRGB函数函数RGB(红，绿，蓝红，绿，蓝)三基色使用三基色使用0255之间的整数

8、之间的整数 2 2. QBColor函数QBColor(QBColor(颜色码颜色码) ) 0 01515之间的整数，之间的整数，16种颜色种颜色3.3.使用定义的常数使用定义的常数 VbRed, VbBlue, VbGreenVbRed, VbBlue, VbGreen4.4.直接使用颜色设置值直接使用颜色设置值 &H808080&H808080例子例子 图形方法与应用1. Pset1. Pset方法方法 画点为单个像素的控制画点为单个像素的控制,PSet,PSet方法用来画点并确定指定点方法用来画点并确定指定点像素的色彩，语法为：像素的色彩，语法为：object.PSet Step (x,

9、y) ,color object.PSet Step (x,y) ,color 如果没有包括如果没有包括colorcolor参数，参数， PSetPSet将像素设置为前景色将像素设置为前景色（ForeColorForeColor）. . 如：如： PSet (100,100)PSet (100,100) 有有colorcolor参数：参数：Pset(100,100), vbRed.Pset(100,100), vbRed.为了为了”擦除擦除”一点，一点， 只要把它的颜色设置为背景色即可，只要把它的颜色设置为背景色即可，如如: PSet (50,75), BackColor : PSet (50

10、,75), BackColor 2021-10-1619画线、矩形方法画线、矩形方法 Line Line 2021-10-1620用于画直线或矩形：用于画直线或矩形：对象对象. Line Step (x1,y1)Step (x2,y2) ,颜色颜色, B F(x1，y1)为线段的起点坐标或矩形的左上角坐标；为线段的起点坐标或矩形的左上角坐标；(x2，y2)为线段的终点坐标或矩形的右下角坐标；为线段的终点坐标或矩形的右下角坐标；关键字关键字Step表示采用当前作图位置的相对值；表示采用当前作图位置的相对值； B B可选。可选。 如果包括，如果包括， 则利用对角线画出矩形。则利用对角线画出矩形。F

11、 F可选。可选。 如果使用了如果使用了B B选现，选现， 则则F F选项规定矩选项规定矩形以矩形边框的颜色填充。不能不用形以矩形边框的颜色填充。不能不用B B而用而用F F。如果不用如果不用F F光用光用B B， 则矩形用当前的则矩形用当前的FillColorFillColor和和FillStyleFillStyle填充。填充。2021-10-1621 Circle方法 2021-10-1622用于画圆、椭圆、圆弧和扇形：用于画圆、椭圆、圆弧和扇形：对象对象.Circle StepStep (x,y),半径半径,颜色颜色 (x,y)为圆心坐标，为圆心坐标，Circle方法画圆方法画圆示例。示例

12、。 Page 181例例6-9 封闭图形的填充方式由封闭图形的填充方式由FillStyle、FillColor这两个属性这两个属性决定。决定。FillColor指定填充图案的颜色，默认的颜色与指定填充图案的颜色，默认的颜色与ForeColor相同。相同。FillStyle属性指定填充的图案，共有属性指定填充的图案，共有8种内部图案（种内部图案（169页）页）。画（椭）圆（弧）2021-10-16232021-10-16242021-10-1625线宽、线型与填充模式线宽、线型与填充模式2021-10-1626(1)窗体、图形框或打印机的窗体、图形框或打印机的DrawWidth属性属性给出这些对

13、象上所画线的宽度或点的大小。给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值属性以像素为单位来度量，最小值为为1。用用DrawWidth属性改变直线宽度。属性改变直线宽度。2021-10-1627Print Top, Left, Height, WidthPrint ScaleTop, ScaleLeft, ScaleHeight, ScaleWidth2021-10-1628Print Top, Left, Height, WidthPrint ScaleTop, ScaleLeft, ScaleHeight, ScaleWidth Form1.Scale