VB蒋加伏第四版第6章

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,第六章 常用控件,6.1,常用控件,6.2,选择性控件,6.3,滚动条,6.4,时钟控件,6.5,高级控件,6.6,综合应用举例,6.1,图形控件,6.1.1,图片框和图像框,图片框,图片框,(,PictureBox,),主要用来显示图片图象。,（,1,）在设计阶段装入图片,改变属性窗口中的,Picture,属性,（,2,）在运行期间装入图片,对象名,.Picture=,LoadPicture(filename,),如：,Picture1.Picture=,LoadPicture(c:windowsBubbles.bmp,),删除图片框的图形也同样使用,LoadPicture,如：,Picture1.Picture=,LoadPicture,(),图片框的,Autosize,属性：决定控件是否自动适应图片的大小,true,：,图片框自动调整大小适应图片。,false,：,图片框不能自动调整大小，加载的图形保持其原始尺寸。,图,6-1,AutoSize,属性为,False,图,6-2,AutoSize,属性为,True,图象框,图象框,(Image),作用与图片框类似，区别在于：,1,、图片框可以作为其它控件的容器,2,、图片框可以通过,Print,方法显示文本,3,、图像框比图片框占用内存少，显示速度快,图像框的,Strech,属性：决定图片是否自动适应控件的大小,true,：,被加载图形自动调整大小适应图象框的大小。,false,：,图象框自动调整大小适应加载的图形。,图,6-3,图像框本来大小 图,6-4 Stretch,属性为,False,图,6-5 Stretch,属性为,True,例,6-1,图片框示例。在窗体,Form1,上画一个图片框，名称为,P1,，高为,1900,，宽为,2400,。请编写适当的事件过程，使得在运行时，如果单击窗体，则装入,D,盘下的文件名为,Pic1.bmp,的图片，如图,6-6,所示；如果双击窗体，则图片框中的图片消失。,图,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,所示。在窗体上建立三个图像框，一个命令按钮。然后进行属性设置。,图,6-7 “,交换图形”设计界面 图,6-8 “,交换图形”运行界面,程序清单如下：,Private Sub Command1_Click(),交换图片,Image3.Picture=Image1.Picture,Image1.Picture=Image2.Picture,Image2.Picture=Image3.Picture,End Sub,6.1.2,形状,和直线,形状,形状控件（,Shape,）用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。通过设置,Shape,属性可以得到需要的图形。,Shape,属性设置值如下表所示：,Shape,属性值,形状,0,矩形（默认值）,1,正方形,2,椭圆,3,圆,4,圆角矩形,5,圆角正方形,直线,直线控件（,Line,）用来画水平线、垂直线及对角线。通过设置该控件的位置、长度、颜色、宽度、线型等属性可以产生不同风格、颜色的直线。,直线控件的主要属性如下：,BorderStyle,:,用于设置属性的类型，它的属性设置如下表：,BorderStyle,属性值,线型,0,透明线,1,实线（默认值）,2,虚线（当,BorderWidth,为,1,时有效）,3,点线（当,BorderWidth,为,1,时有效）,4,点划线（当,BorderWidth,为,1,时有效）,5,双点划线（当,BorderWidth,为,1,时有效）,6,内收实线，边框的外边界就是形状的外边缘,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,窗体上随机画带颜色的点示例（,如下图）。,例,6-6,用,Pset,方法绘制曲线示例。,画直线、矩形方法,Line,方法用于画直线和矩形。格式如下：,对象名,.,Line,step,(x1,，,y1),-,step,(x2,，,y2),，颜色，,B,F,其中：,对象名：,可以是窗体或图片框的名称，缺省为当前窗体名。,Step,：,可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。,(x1,，,y1),：,可选项，起点坐标。如果省略，表示起点为,(,CurrentX,，,CurrentY,),。,(x2,，,y2),：,终点或右下角坐标。,颜色：,直线或矩形的颜色，如果省略，则使用,Forecolor,属性指定的颜色。,B,：,可选项，如果有,B,，则以,(x1,，,y1),为左上角坐标，以,(x2,，,y2),为右下角坐标画矩形。,F,：,可选项，只能在选择,B,参数后才能选择，有,F,表示矩形以矩形边框的颜色填充，否则矩形用属性,Fillcolor,和,Fillstyle,填充,。,例,6-7,用,Line,方法画三角形和矩形示例（如下图）,画圆方法,Circle,方法用于画圆、椭圆、圆弧和扇形。格式如下：,对象名,.,circle,step,(x,，,y),，,radius,，,color,，,start,，,end,，,aspect,其中：,对象名：,可以是窗体或图片框的名称，缺省为当前窗体名。,Step,：,可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。,(x,，,y),：,圆、椭圆、圆弧或扇形的中心坐标。,Radius,：,圆、椭圆、圆弧或扇形的圆半径。,Color,：,可选项，圆、椭圆、圆弧或扇形的边框颜色。如果省略，则使用,Forecolor,属性指定的颜色。,Start,、,End,：,可选项，指定弧的起始、终止位置，以弧度为单位，取值范围,-2,2,；,Start,缺省值为,0,(,水平轴正方向,),，,End,缺省值为,2,(,从水平轴的正方向逆时针旋转,360,度,),；若两者为负数，则在画弧的同时还要画出圆心到弧的端点的连线。,Aspect,：,可选项，表示纵轴和横轴的尺寸比。,Aspect,1,表示在,x,轴方向画椭圆，,Aspect,1,表示在,y,轴方向画椭圆，缺省值为,1,。,例,6-8,用,Circle,方法画图示例（如下图）,。,6.2.1,单选钮,(,OptionButton,),和检查框,(,CheckBox,),功能：,表示“选中”和“不选”两种状态。单选钮用“,”,而检查框用,“”,表示选中,主要属性,:,Name,Caption,，,Value,检查框,Value,：,(,数值型）,0,检查框未被选中,1,检查框被选中,2,检查框被禁止操作，显示灰色,单选钮,Value:,(,逻辑型,),True,被选中,False,未被选中,6.2,选择性控件,例,6-10,用单选钮和检查框设置文本框的字体示例,（如下图）,。,主要事件：,Click,因为单击时自动改变状态，故,不需要编写,.,框架,(Frame),作用：,放置一组单选钮,美观,创建：建立框架,画出其它控件,属性：,Name,、,Visible,、,Caption,、,Enabled,框架内的所有控件随框架一起移动、显示、消失和屏蔽。,事件：,click,和,Dblclick,事件，一般不编。,例,6-12,框架的应用示例（如下图）。,6.2.2,列表框（,ListBox,),和组合框,(,ComboBox,),列表框,作用,：显示多个选择项，供用户选择。,特征,：只能从其中选择，而不能直接修改其中的内容。,列表框和组合框共有的重要属性,(,P,：可在程序中设置或引用，,D,：可在设计状态设置。,),List,：,PD,字符型数组，存放列表框的项目，下标是从,0,开始。,ListIndex,：,P,选中的项目的序号，没有项目被选定时为,-1,ListCount,：,P,项目的数量，,ListCount-1,是最后一项的下标。,Sorted,：,D,True,：按字母顺序排列。,False,：按加入先后顺序排列。,Text,：,P,列表项中被选定的内容：,List 1.List(List 1.ListIndex)=List1.Text,列表框的特有的重要属性,Selected,：,P,逻辑数组,Selected(i),的值为,True,表示第,i+1,项被选中。,MultiSelect,0-None,：,禁止多项选择。,1-Simple,：,简单多项选择。,2-Extended,：,扩展多项选择。,列表框各主要属性的值,：,List1.ListIndex=3 (,下标从,0,开始的,),List1.,ListCount,=5,List1.Selected(3)=True,，,其余为,False,。,List1.Sorted=False,，,没有排序。,List1.Text,为“,cox,”,，,与,List1.List(List1.,ListIndex,),相等,List1,列表框的主要事件,Click,、,DblClick,列表框的主要方法,AddItem,方法,格式：,列表框名,.,AddItem,项目字符串，位置值,该方法是将项目字符串所指定的一个项目插入到由位置值所指定的位置上。每插入一项,ListCount,属性值都会自动加,1,。位置值可以从,0,到,ListCount-1,变化。若省略位置值，则新增项目添加到列表框最后面。,Clear,方法,格式：,列表框名,.Clear,该方法用于清除列表框中的所有项目，此时,ListCount,属性值置,0,。,RemoveItem,方法,格式：,列表框名,.,RemoveItem,位置值,该方法将指定位置上的项目从列表框中删除，此时,ListCount,属性值自动减,1,。,例,6-14,列表框项目添加和删除示例（如下图）,。,组合框,作用,：拥有文本框和列表框的功能，在列表框中列出可供用户选择的选项，当用户选定某项后，该项内容自动装入文本框中。,特征,：可以像文本框一样接受用户的输入，也能像列表框一样列举多个项目供用户选择。,组合框的特有的重要属性,Style,类型,Style,输入,下拉式组合框,0,能,简单组合框,1,能,下拉式列表框,2,不能,列表框的主要事件,Style=