第七章-常用控件与多窗体

第七章常用控件VB中的控件分为三类：标准控件（内部控件）ActiveX控件可插入对象第一节图片框与图像框图片框控件（PictureBox）图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。VB6.0支持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的图形文件。1．Picture属性图片框和图像框中显示的图片由Picture属性决定。图形文件可以在设计阶段装入，也可以在运行期间装入。（1）在设计阶段装入在设计阶段，可以用属性窗口中的Picture属性装入图形文件。（2）在运行期间装入在运行期间，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下：对象名.Picture=LoadPicture（[filename]）2．AutoSize属性该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）。3．stretch属性用于图像框。当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。图片框、图像框的区别（1）图片框控件可以作为其它控件的容器。（2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。（3）图像框比图片框占用的内存少，显示速度快。第二节定时器VB提供了一种叫定时器（Timer）的控件。定时器每隔一定的时间间隔就产生一次Timer事件（可理解为报时），用户可以根据这个特性设置时间间隔控制某些操作或用于计时。1．Interval属性用来决定两次调用定时器的间隔，以ms为单位，取值范围为0～64767，所以最大时间间隔不能超过65s，该属性的缺省值为0，即定时器控件不起作用。2．事件定时器只支持Timer事件。对于一个含有定时器控件的窗体，每经过一段由属性Interval指定的时间间隔，就产生一个Timer事件。【例】建立数字计时器，要求每秒钟时间变化一次。设计界面：在窗体上添加一个定时器控件、一个标签程序代码如下：PrivateSubTimer1_Timer（）Label1.FontSize=48Label1.Caption=TimeEndSub例：蝴蝶飞PrivateSubTimer1_Timer()StaticpickbmpAsBooleanimage1.MovePicture1.Left+30,Picture1.Top-10IfpickbmpThenimage1.Picture=image2.PictureElseimage1.Picture=image3.PictureEndIfpickbmp=NotpickbmpEndSub第三节单选钮与复选框一、单选钮单选钮（OptionButton）通常成组出现，主要用于处理“多选一”的问题。用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。1．属性（1）Value属性该属性表示单选按钮选中或不被选中的状态。True为选中；False为不被选中。（2）Caption属性该属性显示出现在单选钮旁边的文本。（3）Style属性该属性用来设置控件的外观。值为0时，控件显示标准样式；值为1时，控件外观类似命令按钮。2．事件：单选钮常用事件是Click事件。【例】程序运行后，单击某个单选钮，在标签中显示相应的字体。事件过程代码如下：PrivateSubOption1_Click（）Label1.FontName=宋体EndSubPrivateSubOption2_Click（）Label1.FontName=隶书EndSubPrivateSubOption3_Click（）Label1.FontName=楷体_gb2312EndSub二、复选框复选框（CheckBox）也称检查框，单击复选框一次时被选中，左边出现“√”号，再次单击则取消选中，清除复选框中的“√”。可同时使多个复选框处于选中状态，这一点和单选按钮不同。1．属性（1）Value属性决定复选框的状态：0—未选中，1—已选中，2—变灰暗。（2）Picture属性用来指定当复选框被设计成图形按钮时的图像。2．事件复选框常用事件为Click事件。【例】用复选框控制文本是否加下划线和斜体显示。编写如下事件过程：PrivateSubCheck1_Click（）IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSubText1.fontunderline=check1.valuePrivateSubCheck2_Click（）IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSubPrivateSubForm_Load（）Text1.FontSize=20EndSubText1.fontitalic=check2.value第四节容器与框架所谓容器，就是可以在其上放置其它控件对象的一种对象。窗体、图片框和框架都是容器。容器内所有控件成为一个组合，随容器一起移动、显示、消失和屏蔽。若要在同一窗体上建立几组相互独立的单选按钮，通常用框架控件（Frame）将每一组单选钮框起来，这样在一个框架内的单选钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。在窗体上创建框架及其内部控件时，应先添加框架控件，然后单击工具箱上的控件，用“+”指针在框架中以拖拽的方式添加控件，框架内的控件不能被拖出框架外。1．属性（1）Caption属性框架的标题，位于框架的左上角，用于注明框架的用途。（2）Enabled属性决定框架中的对象是否可用，通常把Enabled属性设置为True，以使框架内的控件成为可以操作的。2．事件Click和DblClick。在大多数情况下，我们用框架控件对控件进行分组，没有必要响应它的事件。【例】使用两个单选钮组来改变文本框中文字的颜色和大小。编写代码如下：PrivateSubCommand1_Click（）endEndSubPrivateSubOption1_Click（）Label1.ForeColor=vbBlueEndSubPrivateSubOption2_Click（）Label1.ForeColor=vbRedEndSubPrivateSubOption3_Click（）Label1.ForeColor=vbGreenEndSubPrivateSubOption4_Click（）Label1.FontSize=10EndSubPrivateSubOption5_Click（）Label1.FontSize=20EndSub第五节列表框与组合框一、列表框列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项，但不能向列表清单中输入项目；1．属性（1）List属性该属性是一个字符串数组，用来保存列表框中的各个数据项内容。List数组的下标从0开始，即List（0）保存表中的第一个数据项的内容。List（1）保存第二个数据项的内容，依次类推.（2）ListCount属性该属性记录了列表框中的数据项数，该属性只能在程序中引用它。LIST1.LISTCOUNT（3）Text属性用于存放被选中列表项的文本内容。该属性是只读的不能在属性窗口中设置，也不能在程序中设置，只用于获取当前选定的列表项的内容。可在程序中引用Text属性值。PrivateSubList1_Click()Text1.Text=List1.TextEndSub列表框和组合框列表框各主要属性的值：List1.ListIndex=3(下标从0开始的)List1.ListCount=5List1.Selected(3)=True，其余为False。List1.Sorted=False，没有排序。List1.Text为“cox”，与List1.List(List1.ListIndex)相等List1下拉式组合框简单组合框下拉式列表框列表框各主要属性的值：List1.ListIndex=0List1.ListCount=8List1.Selected(3)=True其余为False。List1.Sorted=FalseList1.Text为“李宁”Combo11.共有的重要属性(P：可在程序中设置或引用，D：可在设计状态设置。)List：PD字符型数组，存放列表框的项目，下标是从0开始。ListIndex：P选中的项目的序号，没有项目被选定时为-1ListCount：P项目的数量，ListCount-1是最后一项的下标。Sorted：DTrue：按字母顺序排列。False：按加入先后顺序排列。Text：P列表项中被选定的内容，List1.List(List1.ListIndex)=List1.Text。2.列表框的特有属性Selected：P逻辑数组。Selected(i)的值为True表示第i+1项被选中。MultiSelect0-None：禁止多项选择。1-Simple：简单多项选择。2-Extended：扩展多项选择。3.列表框的特有属性Style类型Style输入下拉式组合框0能简单组合框1能下拉式列表框2不能4.方法AddItem对象.AddItemitem[,index]RemoveItem对象.RemoveItemindexClear对象.Clear5.事件列表框：Click、DblClick。组合框：Click，只有简单组合框才有DblClick事件。一般不需要编写Click事件过程。通常在单击命令按钮或发生DblClick事件时才读取Text属性。（4）ListIndex属性该属性是List数组中，被选中的列表项的下标值（即索引号）。如果用户没有从列表框中选择任何一项，则ListIndex为－1。程序运行时，可以使用ListIndex属性判断列表框中哪一项被选中。例如，在列表框List1中选中第2项，则ListIndex＝1（ListIndex从0开始）。ListIndex属性不能在设计时设置，只有程序运行时才起作用。（5）Selected属性该属性是一个逻辑数组，其元素对应列表框中相应的项。表示相应的项在程序运行期间是否被选中。例如，Selected（0）的值为True，表示第一项被选中，如为False，表示未被选中。（6）MultiSelect（多选择列表项）属性该属性值表明是否能够在列表框控件中进行复选以及如何进行复选。它决定用户是否可以在控件中做多重选择，它必须在设计时设置，运行时只能读取该属性。（7）SelCount属性其值表示在列表框控件中所选列表项的数目，只有在MultiSelect属性值设置为1（Simple）或2（Extended）时起作用，通常与Selected数组一起使用，以处理控件中的所选项目。2．方法ListBox对应的控件方法有：AddItem，Clear和RemoveItem（1）AddItem方法该方法向一个列表框中加入列表项，其语法是：Listname.AddItemitem［，index］（2）RemoveItem方法该方法用于删除列表框中的列表项，其语法是：Listname.RemoveItemindex（3）Clear方法该方法删除列表框控件中的所有列表项。其语法是：Listname.Clear【例】利用列表框和命令按钮编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。在程序中添加如下代码：PrivateSubCommand1_Click（）Dimentryentry=InputBox（输入添加内容，添加）List1.AddItementryE