《Visual Basic程序设计 第2版 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 吴昌平 第6章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 第2版 普通高等教育“十一五”国家级规划教材 教学课件 ppt 作者 吴昌平 第6章（147页珍藏版）》请在金锄头文库上搜索。
1、,第 6 章 常用控件与多窗体,本章的主要内容有：图片框与图像框、定时器、单选钮与复选框、框架、列表框与组合框滚动条、焦点与Tab顺序、多窗体。,6.1 图片框与图像框,图片框控件（PictureBox）和图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。VB 6.0支持 .BMP、.ICO、.WMF、.EMF、.JPG、.GIF等格式的图形文件。,6.1.1 图片框、图像框的常用属性 1Picture属性 图片框和图像框中显示的图片由Picture属性决定。图形文件可以在设计阶段装入，也可以在运行期间装入。,（1）在设计阶段加入 在设计阶段，可以用属性窗口中的Picture
2、 属性装入图形文件。,（2）在运行期间装入 在运行期间，可以用LoadPicture函数把图形文件装入图片框或图像框中。语句格式如下： 对象名.Picture=LoadPicture(filename),说明： filename：字符串表达式，指定一个被显示的图形的文件名，可以包括文件的盘符和路径。如果图片框中已有图形，则被新装入的图形覆盖。,例如：Picture1.picture=LoadPicture(“c:windowsbubbles.bmp“) 图片框中的图形也可以用LoadPicture函数删除。 例如： Picture1.Picture = LoadPicture()。,2Auto
3、Size属性 该属性用于图片框。决定控件是否自动改变大小以显示图像全部内容。缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小)。,3stretch 属性 用于图像框。当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，但这可能会使图片变形。,6.1.2 图片框、图像框的区别 图片框与图像框的用法基本相同，主要区别如下：,（1）图片框控件可以作为其他控件的容器。 （2）图片框可以通过Print方法接收文本，而图
4、像框则不能接收用Print方法输入的信息。 （3）图像框比图片框占用的内存少，显示速度快。,6.2 定时器,VB提供了一种叫定时器（Timer）的控件。定时器每隔一定的时间间隔就产生一次Timer事件（可理解为报时），用户可以根据这个特性设置时间间隔控制某些操作或用于计时。,1属性 定时器控件的属性不是很多，最常用的是Interval属性，该属性用来决定两次调用定时器的间隔，以毫秒为单位，取值范围为065535，缺省值为0（定时器控件不起作用）。如果希望每秒产生n个事件，则应设置属性Interval的值为1000/n。,2事件 定时器只支持Timer事件。对于一个含有定时器控件的窗体，每经过一
5、段由属性Interval指定的时间间隔，就产生一个Timer事件。,说明： （1）Timer 控件只在设计时出现在窗体上，可以选定这个控件，查看属性，编写事件过程。运行时，定时器不可见，所以其位置和大小无关紧要。,（2）由于大多数个人计算机系统硬件的限制，若将Interval属性值设为比56小的数，不会产生预期的效果。 （3）Timer事件是VB中的模拟实时定时器的事件，和Time函数是两个不同的概念。,【例6.2】建立数字计时器，要求每秒钟时间变化一次。 设计界面： 在窗体上添加一个定时器控件、一个标签，并按表6-1设置属性。,表6-1 属性设置,程序代码如下： Private Sub Ti
6、mer1_Timer() Label1.FontSize = 48 Label1.Caption = Time 将Time函数返回的系统时间显示在标签中 End Sub 执行结果如下图6-3所示，每隔1秒钟显示一次时间。,图6-3 例6.2运行结果,【例6.3】用定时器实现控制时间延迟。要求：单击命令按钮会出现“Hello，World！”字样，经过3秒钟后，标签背景色变成红色。 界面设计：在窗体（Form1）上添加一个定时器、一个命令按钮、一个标签控件，把Label1的Boderstyle属性设置为None，Timer1的Enabled属性设置为false。,程序代码如下： Private S
7、ub Command1_Click() Label1.BackColor = &H8000000F 将标签背景色设置为灰色 Label1.FontSize = 30 Label1.Caption = “Hello，World！“ Timer1.Interval = 3000 Timer1.Enabled = True End Sub,Private Sub Timer1_Timer() Label1.BackColor = &HFF& 将标签背景色设置为红色 Timer1.Enabled = False End Sub,6.3 单选钮与复选框,6.4.1 单选钮 单选钮（OptionButto
8、n）通常成组出现，主要用于处理“多选一”的问题。,用户在一组单选钮中必须选择一项，并且最多只能选择一项。当某一项被选定后，其左边的圆圈中出现一个黑点。例如，图6-4所示就是一组单选钮，用户只能在这三个单选钮选项中选择一个。,图6-4 单选钮,1属性 （1）Value属性 该属性表示单选按钮选中或不被选中的状态。True为选中；False为不被选中。,（2）Caption属性 该属性显示出现在单选钮旁边的文本。,（3）Style属性 该属性用来设置控件的外观。值为0时，控件显示如图6-4所示标准样式；值为1时，控件外观类似命令按钮。,2事件 单选钮常用事件是Click事件。 【例6.4】程序运行
9、后，单击某个单选钮，在标签中显示相应的字体。运行结果如图6-5所示。,图6-5 例6.4 运行结果,表6- 2 对象属性设置,事件过程代码如下： Private Sub kai_Click() Label1.FontName = “楷体_gb2312“ End Sub,Private Sub li_Click() Label1.FontName = “隶书“ End Sub Private Sub song_Click() Label1.FontName = “宋体“ End Sub,（1）要使某个按钮成为单选钮组中的缺省按钮，只要在设计时将其Value值设置成True，它就可以保持被选中状态
10、，直到用户选择另一个不同的单选钮或用代码改变它。,（2）一个单选钮可以用下面这些方法选中： 在运行期间用鼠标单击单选钮。 用Tab键定位到单选钮组，然后用方向键定位单选钮。 用代码将它的Value属性设置为True；即Option1.value=true,（3）要禁用单选钮，可将其Enabled属性设置为False。,6.4.2 复选框 复选框（CheckBox）也称检查框，单击复选框一次时被选中，左边出现“”号，再次单击则取消选中，清除复选框中的“”。可同时使多个复选框处于选中状态，这一点和单选按钮不同。如图6-6所示，有四个复选框。,图6-6 复选框,1属性 （1）Value属性 决定复选
11、框的状态：0未选中，1已选中，2变灰暗。 （2）Picture属性 用来指定当复选框被设计成图形按钮时的图像。,2事件 复选框常用事件为Click事件。 【例6.5】用复选框控制文本是否加下划线和斜体显示。,图6-7 复选框举例运行结果界面,设计界面： 在窗体上建立一个文本框，两个复选框。三个控件的属性如表6-3所示。,表6- 3 属性设置,编写如下事件过程： Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If
12、 End Sub,Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub,Private Sub Form_Load() Text1.FontSize = 20 End Sub,6.4 容器与框架,所谓容器，就是可以在其上放置其它控件对象的一种对象。窗体、图片框和框架都是容器。容器内所有控件成为一个组合，随容器一起移动、显示、消失和屏蔽。,若要在同一窗体上建立几组相互独立的单选按钮，通常用框架控件（Frame）
13、将每一组单选钮框起来，这样在一个框架内的单选钮成为一组，对一组单选钮的操作不会影响其它组的单选钮。,在窗体上创建框架及其内部控件时，应先添加框架控件，然后单击工具箱上的控件，用“+”指针在框架中以拖拽的方式添加控件，框架内的控件不能被拖出框架外。不能用双击的方式向框架中添加控件，也不能先画出控件再添加框架。如果要用框架将窗体上现有的控件进行分组，可先选定控件，将它们剪切后粘贴到框架中。,1属性 （1）Caption属性 框架的标题，位于框架的左上角，用于注明框架的用途。 （2）Enabled属性 决定框架中的对象是否可用，通常把Enabled属性设置为True，以使框架内的控件成为可以操作的。
14、,2事件 Click和DblClick。在大多数情况下，我们用框架控件对控件进行分组，没有必要响应它的事件。 【例6.6】使用两个单选钮组来改变文本框中文字的颜色和大小。运行结果如图6-8所示。,图6-8 例6.6运行结果,编写代码如下： Private Sub Command1_Click() end End Sub,Private Sub Option1_Click() 蓝色单选钮 Label1.ForeColor = &HFF0000 End Sub,Private Sub Option2_Click() 红色单选钮 Label1.ForeColor = &HFF& End Sub,Pr
15、ivate Sub Option3_Click() 绿色单选钮 Label1.ForeColor = &HFF00& End Sub,Private Sub Option4_Click() 文字大小10单选钮 Label1.FontSize = 10 End Sub,Private Sub Option5_Click() 文字大小20单选钮 Label1.FontSize = 20 End Sub,6.5 列表框与组合框,列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项，但不能向列表清单中输入项目； 组合框（ComboBox）控件是综合文本框和列表框特
16、性而形成的一种控件，用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目。,6.5.1 列表框 列表框控件（ListBox）的主要用途在于提供多个数据项供用户选择。在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。如果放入的项较多，超过了列表框设计时可显示的项目数，则系统会自动在列表框边上加一个垂直滚动条。,1属性 （1）List属性 该属性是一个字符串数组，用来保存列表框中的各个数据项内容。 List数组的下标从0开始，即List（0）保存表中的第一个数据项的内容。List（1）保存第二个数据项的内容，依次类推，List（ListCount-1）保存表中的最后一个数据项的内容。,用List属性设置列表项中的数据项的方法为：
