VB蒋加伏第四版第6章课件.pptVIP

第六章 常用控件;6.1 图形控件;图片框的Autosize属性：决定控件是否自动适应图片的大小 true：图片框自动调整大小适应图片。 false：图片框不能自动调整大小，加载的图形保持其原始尺寸。 ;图象框 图象框(Image)作用与图片框类似，区别在于： 1、图片框可以作为其它控件的容器 2、图片框可以通过Print方法显示文本 3、图像框比图片框占用内存少，显示速度快 图像框的Strech属性：决定图片是否自动适应控件的大小 true：被加载图形自动调整大小适应图象框的大小。 false：图象框自动调整大小适应加载的图形。;例［6-1］图片框示例。在窗体Form1上画一个图片框，名称为P1，高为1900，宽为2400。请编写适当的事件过程，使得在运行时，如果单击窗体，则装入D盘下的文件名为Pic1.bmp的图片，如图6-6所示；如果双击窗体，则图片框中的图片消失。;程序清单如下： Private　Sub　Form_Click() P1.Picture=LoadPicture（″D:\Pic1.bmp″）′ 装入图片 End　Sub Private　Sub　Form_DblClick() P1.Picture=LoadPicture（″″）　　　　′ 清除图片 End　Sub;例［6-2］交换图形。编写程序，交换两个图像框中的图形。 建立程序界面如图6-7所示。在窗体上建立三个图像框，一个命令按钮。然后进行属性设置 。 ;程序清单如下： Private Sub Command1_Click() ′交换图片 Image3.Picture = Image1.Picture Image1.Picture = Image2.Picture Image2.Picture = Image3.Picture End Sub;6.1.2 形状和直线 形状 形状控件（Shape）用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。通过设置Shape属性可以得到需要的图形。 Shape属性设置值如下表所示： ; 直线 直线控件（Line）用来画水平线、垂直线及对角线。通过设置该控件的位置、长度、颜色、宽度、线型等属性可以产生不同风格、颜色的直线。 直线控件的主要属性如下： BorderStyle:用于设置属性的类型，它的属性设置如下表： ;BorderWidth：用于设置线条的宽度，即线 条粗细。 BorderColor： 用于设置线条颜色。 X1、X2、Y1、Y2：用于设置直线的起点和终点。在运行时，要移动或调整直线控件大小，可以通过改变X1、X2、Y1、Y2属性来进行。 例[6－3]　形状控件示例。 例[6－3]　形状控件和直线控件绘制直方图示例。;6.1.2 图形方法 图形控件主要用来显示图形和进行简单的图形绘制，如果要实现高级绘图功能，则需要采用图形方法。 画点方法 Pset方法用于在指定位置以指定颜色画点。格式如下： ［对象名］.Pset［step］(x，y)［，颜色］ 其中: 对象名：可以是窗体或图片框的名称，缺省为当前窗体名。 Step：可选项，有该参数时，表明所画的点坐标（X，Y）是相对坐标，相对于当前坐标点（由CurrentX，CurrentY决定）而言；没有该参数时，点坐标（X，Y）是绝对坐标。 颜色：点的颜色，若省略则采用对象的前景色(ForeColor)画点。颜色为RGB颜色值，如： Pset(70，70)，RGB(255，255，0) ′设置点为黄色 Pset(70，70)，BackColor　 ′设置点为背景色 ;例［6-5］窗体上随机画带颜色的点示例（ 如下图）。; 画直线、矩形方法 Line方法用于画直线和矩形。格式如下： ［对象名.］Line［［step］(x1，y1)］-［step］(x2，y2)［，颜色］［，B［F］］ 其中： 对象名：可以是窗体或图片框的名称，缺省为当前窗体名。 Step：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。 (x1，y1)：可选项，起点坐标。如果省略，表示起点为(CurrentX，CurrentY)。 (x2，y2)：终点或右下角坐标。 颜色：直线或矩形的颜色，如果省略，则使用Forecolor属性指定的颜色。 B：可选项，如果有B，则以(x1，y1)为左