第6章 命令按钮、复选框、单选按钮和框架.ppt

第6章 命令按钮、复选框、单选按钮和框架,6.1 命令按钮 6.2 复选框 6.3 单选按钮 6.4 框架 6.5 控件数组 习题,命令按钮,大多数应用程序中都有命令按钮CommandButton控件，用户可以单击按钮执行某项操作。,命令按钮控件CommandButton,使用CommandButton控件创建，可以有不同的外观：,Caption属性：该属性设定按钮显示的文字。 Style属性：控制按钮的显示类型，共有两种取值：标准类型和图形类型。 Picture属性：指定按钮中显示的图片。 BackColor属性：指定按钮的背景颜色。 Tooltiptex属性：指定按钮提示信息,命令按钮的快捷访问键,访问键为按钮的选中提供了一种快捷方式，即同时按下ALT键和访问键等同于鼠标单击该按钮。热键可以提高键盘操作的速度。 方法： 使用按钮的Caption属性赋予按钮一个访问键。在标题中，在想要指定为访问键的字符前加一个“&”符号，该字符就会带有一个下划线。比如：&Next，&Last,命令按钮的响应,使用CommandButton控件创建，只要用户单击按 钮，就会调用Click事件过程 程序执行有以下方法选中命令按钮： 鼠标单击按钮 用Tab键把焦点移到按钮上，按空格或回车键 使用按钮的快捷键（Alt+有下划线的字母） Caption属性的快捷字符前插入符号“&” 在程序代码中设置按钮的Value属性为True 在代码中直接调用按钮的Click事件,命令按钮示例1,【例】点击一个按钮，发出铃声 界面元素组成： 一个命令按钮控件：Command1 编写Click事件过程(双击按钮即可进入代码窗口) Private Sub Command1_Click() Beep End Sub,命令按钮示例2,【例】在窗体上添加一个按钮，实现窗口的最大化和还原。,命令按钮示例2,设计一个命令按钮，命名为cmdSize （窗体的MaxButton 和MinButton属性均设置为False） ： 在窗口第一次显示时，按钮标题为“最大化(&L)” 。 点击按钮后将窗口最大化，并且标题变成“还原(&B)”。 再点击设置窗口还原，标题又恢复为“最大化(&L)” 。 Private Sub cmdSize_Click() If cmdSize.Caption = “最大化(&L)“ Then Me.WindowState = 2 cmdSize.Caption = “还原(&B)“ Else Me.WindowState = 0 cmdSize.Caption = “最大化(&L)“ End If End Sub,Visual Basic提供的Enabled（可用）属性用来控制对象是否可用。当Enabled的属性值为True（-1）时，表示对象可用，为False(0)时，使对象“不可用”（即暂时失效）。,6.1.1 使用Enabled属性使命令按钮可用或不可用,可以在设计阶段设置Enabled属性的值，也可以在程序运行阶段改变Enabled属性的值。如用户未指定它的值，系统指定的隐含值为True(-1)，即“可用”。 【例6.1】设计一个程序，拟在窗体上装入一个图片，在图片上画3个标签。窗体还有三个命令按钮，各控件的位置如图6.1所示。程序进入运行状态后如图6.2所示。当单击“显示文本1”命令按钮后，在图片上显示出一些文字，同时此命令按钮变成浅灰色，表示“失效”。若单击“显示文本2”命令按钮，则图片上换成另一段文字，此时“显示文本2”按钮失去作用，而“显示文本1”按钮恢复原状，可以使用。,图6.1,图6.2,属性设置如表6.1（见书112页）所示。 根据题目要求，在程序运行后，若单击“显示文本1”命令按钮，应显示出一些文字，并使该命令按钮失效。据此写出cmdShow1_Click事件过程（cmdShow1是命令按钮1的名字）。,Private Sub cmdShow1_Click() cmdShow1.Enabled = False cmdShow2.Enabled = True lbl1.Caption = 欢迎你 lbl2.Caption = 使用 lbl3.Caption = End Sub 在执行cmdShow1_Click()事件过程后，“显示文本1”命令按钮已变成灰色（如图6.3所示）。 编写出cmdShow2_Click事件过程如下：,图6.3,Private Sub cmdShow2_Click() cmdShow1.Enabled = True cmdShow2.Enabled = False lbl1.Caption = lbl2.Caption = lbl3.Caption = Visual Basic End Sub 在单击“显示文本2”命令按钮后，屏幕显示如图6.4所示。,图6.4,上述的Enabled属性是使命令按钮“不可用”，在屏幕上改为浅灰色，但仍然看得见。有时希望在屏幕上使它变成“不可见”。Visual Basic提供的Visible(可见)属性就是用来控制命令按钮在屏幕上是否能被看得见。当Visible属性值为True（-1）时，命令按钮可以看得见；若为False(0)，则命令按钮被“隐藏”起来，在屏幕上不显示。应该说明，该命令按钮依然存在，其他各属性仍然起作用，只是在屏幕上不显示而已。,6.1.2 用Visible属性使命令按钮“不可见”,Visible属性的值既可以在设计阶段直接设置，也可以在运行时通过程序来改变。如果用户不指定该属性的值，Visual Basic自动将它的初始值定为True，即“可见”。 有时需要清理屏幕时，只希望屏幕上显示用户所需要的信息而不希望显示某些控件时，可以用Visible属性。 在例6.2中，读者将会看到Visible属性的使用。 其实Enabled和Visible属性不仅可用于命令按钮，也可用于窗体。,默认的命令按钮,设置按钮的Default属性为True, 直接使用Enter键即可选中 设置按钮的Cancel属性为True, 用Esc键选中,用Default属性使命令按钮为默认的“活动按钮”，用Cancel属性使命令按钮为“取消”按钮。 许多用过Windows程序的读者会发现，有的对话框中有两个命令按钮，一个上面的文字为Ok（或“确定”），另一个为Cancel（或“取消”）。如果想选择Ok（或“确定”），既可以用鼠标单击该命令按钮，也可以在键盘上按Enter键，表示选中它。这个可以用Enter键代替的命令按钮就称为默认的“活动按钮”。,6.1.3 Default属性和Cancel属性,在Visual Basic中可以用Default属性将一个命令按钮设置为默认的“活动按钮”。当一个命令按钮的Default属性值被设为True时，该按钮就被确定为默认的“活动按钮”，当为False时，不是默认的“活动按钮”，不能用Enter键代替单击该按钮来选择它。在一个窗体中，只能有一个命令按钮的Default属性值为True。,此外，人们还常常希望用按键盘上的Esc键来代替单击“取消”按钮，这符合人们的操作习惯。Visual Basic提供的Cancel属性可以用来指定一个命令按钮为“取消”按钮， 在运行时可以用Esc键代替单击该命令按钮。当Cancel属性值为True时，该按钮被指定为“取消”按钮，当为False时，则不是“取消”按钮，在运行中不能用Esc键代替单击该命令按钮。在一个窗体中，只能有一个命令按钮的Cancel属性值被设置为True。,【例6.2】设计一个程序，窗体中有2个命令按钮和3个标签，如图6.5所示。程序运行后若单击“确定（Ok）”按钮，则2个命令按钮和最上面一个标签成为不可见，同时在另外两个标签上显示出当前日期和时间，单击“取消（Esc）”命令按钮结束程序运行。 属性设置见表6.2（见书116页）。,图6.5,根据题目要求，在单击“确定（Ok）”命令按钮时，应显示出当前日期和时间。编写出以下程序代码： Private Sub cmdOk_Click() cmdOk.Visible = False lblTitle.Visible = False lblDate.Caption = 日期: + Date$ lblTime.Caption = 时间: + Time$ End Sub 执行此事件过程后，用户看到的窗口如图6.6所示。,图6.6,命令按钮的一般形式是长方形、有文字说明。为使用户界面更加生动，可以使用带图案的命令按钮。具体做法如下： （1） 添加一个按钮； （2） 设置该按钮的Style 属性为1； （3） 选择按钮的Picture 属性，单击右侧有“”的按钮，在“加载图片”对话框中选择一个图片文件，则将该图片放到命令按钮上。,有时，希望在应用程序的用户界面上，提供一些项目让用户从两种方案中选其一（如“是否要输出结果”，“是否使用大写字母”，“是否选择这个文件”，等等）。Visual Basic提供一种称为“复选框”（Check box）的控件，又称“检查框”。它有两种状态可以选择： （1） 选中（或称“打开”，复选框中出现一个“”标志）； （2） 不选（或称“关闭”，“”标志消失）。,6.2 复选框,【例6.3】设计一个程序，用户界面设计如图6.7所示，由一个标签、一个文本框、四个复选框组成。程序开始运行后，用户在文本框中输入一段文字，然后按需要单击各复选框，用以改变文本的字体、字形、颜色以及大小。 属性设置见表6.3（见书119页）。,图6.7,先对第1个复选框（Name属性为chkFont）的单击事件编写单击事件过程： Private Sub chkFont_Click() If chkFont.Value = 1 Then txtPassage.FontName = 宋体 Else txtPassage.FontName= 幼圆 End If End Sub,与此类似，编写出第2个复选框（斜体）的如下事件过程： Private Sub chkItalic_Click() If chkItalic.Value = 1 Then txtPassage.FontItalic = -1 Else txtPassage.FontItalic = 0 End If End Sub,接着编写第3个复选框的单击事件过程。 Private Sub chkSize_Click() If chkSize.Value = 1 Then txtPassage.FontSize = 16 Else txtPassage.FontSize = 8 End If End Sub,最后编写第4个复选框的单击事件过程： Private Sub chkCol_Click() If chkCol.Value = 1 Then txtPassage.ForeColor = QBColor(13) Else txtPassage.ForeColor = QBColor(0) End If End Sub,在运行程序时，用户可以任意设定这四个复选框的状态，例如对4个框都选中，这时就使文本框的文字为宋体，字形为斜体，字的大小为16点，颜色为紫色。可以选择其中几个，图6.8表示的是选中了宋体、大小为16点、颜色为紫色的运行结果。,图6.8,复选框的其他属性有下述两种。 （1） Alignment属性：用来设置复选框在文字标题的左侧（0），还是右侧（1）。 （2） Style属性：用来设置复选框的外观。这是Visual Basic 6.0中新增加的属性。Style=0，是标准复选框的外观，即在一个方框旁边显示提示信息。Style=1，其控件的外观类似于命令按钮。当单击该按钮时，按钮处于被按下、且尚未弹起的状态，再次单击，按钮外观恢复原状。例如，在窗体上添加一个复选框Check1，Caption属性值为“复选框按钮”，Style属性值为1，再为复选框的单击事件编写如下的事件过程：,Private Sub Check1_Click() If Check1.Value = 1 Then MsgBox 复选框1被按下 Else MsgBox 复选框1被释放 End If End Sub 当单击”复选框按钮”时，表示该选项被选中，复选框的Value属性为1，出现一个提示框，如图6.9所示。 再次单击“复选框按钮”，按钮弹起来，恢复原来的形状。,图6.9,有时，应用程序却要求在一组（几个）方案中只能选择其中之一，这就要用“单选按钮”控件。单选按钮也在工具箱中。如果有一组（多个）单选按钮，Visual Basic规定一次只能选择其中之一。当选中某一单选按钮时，该框出现一个黑点（表示选中），同时其他单选按钮中的黑点消失，表示关闭（不选），这是单选按钮与复选框的主要区别，也是单选按钮名称的由来。,6.3 单选按钮,【例6.4】设计一个程序，用户界面由四个单选按钮、一个标签控件和一个命令按钮组成，程序开始运行后，用户单击某个单选按钮，就可将它对应的内容（星期、日期、月份或年份）显示在标签中，用户界面设计如图6.10所示。 属性设置见表6.4（见书122页）。 标签Label1设置成有单线的边框 (BorderStyle属性的值为1)，4个单选按钮的标题分别为“星期”、“日期”、“月份”、“年份”。如果用户单击“星期”单选按钮，则会触发以下的事件过程：,图6.10,Private Sub optweek_Click() w$ = WeekDay(Now) Label1.Caption = 今天是星期 + w$ End Sub 与此类似，如果单击“日期”单选按钮，则执行下面过程，在标签中显示“今天是xx号”的信息。Day是日期函数，Day(Now)的值是表示日期的数字字符串（如18、3等）。,Private Sub optDay_Click() d$ = Day(Now) Label1.Caption = 今天是 + d$ + 号 End Sub 单击“月份”单选按钮，则执行下面的过程，其中Month是月份函数。Month(Now)的值是表示月份的数字字符串。 Private Sub optMonth_Click() m$ = Month(Now) Label1.Caption = 这月是 + m$ + 月份 End Sub,单击“年份”单选按钮，则执行下面的过程，其中Year是年份函数。 Private Sub OptYear_Click() y$ = Year(Now) Label1.Caption = 今年是 + y$ + 年 End Sub 如想使程序停止运行，可单击“结束”命令按钮，执行下面的过程： Private Sub cmdEnd_Click() End End Sub,一个单选按钮被选中时，其Value属性值被设置成True（-1），有一黑点出现在单选按钮中，表示它处于打开状态，再单击一次则黑点消失，Value的属性值变为False（0），为关闭状态。 程序运行结果如图6.11所示，此时选中“年份”，标签中显示出年份信息。,图6.11,此外，单选钮也可以有丰富的图形外观。,Style属性：用来指示控件的显示风格和行为。设计时缺省取值为0-Standard，即标准的，如果设置为1-Graphical，则支持图形外观，以下属性设置将生效。 Picture属性：设置控件中要显示的图片，该属性可以在“属性窗口”中直接设置，也可以在程序中用LoadPicture函数加载。如果Caption属性有值，则按钮中同时显示图片和文字。 DownPicture属性：设置控件被单击并处于压下状态时显示的图片。 DisabledPicture属性：设置控件在无效时显示的图片，也就是控件的Enabled属性取值为False时控件的外观图片。,从上例中可以看到，在若干个单选按钮中只可以选择一个，但是有时有多组选项，希望在每组选项中各选一项，应该如何实现？ 可以设法将单选按钮分成几组，以每组作为一个单元，这就需要用到框架控件（Frame）。,6.4 框架,【例6.5】设计一个程序，用户界面上部有一个标签，下部有2个命令按钮，中间有3个框架和9个单选按钮。在每个框架中放3个单选按钮，即将9个单选按钮分为3组，一组用来改变字体，一组用来改变字体大小，一组用来改变字的颜色。用户界面设计如图6.12所示。程序运行后，单击“显示”按钮，文本框中会显示一行文字，其字体、大小和颜色由程序事先设定。用户可以在3个框架中分别选择字体、大小和颜色，然后再单击“显示”按钮，此时文本框中的文字的字体、大小和颜色会发生变化。 属性设置见表6.5（见书125页）。,图6.12,按照题目要求，程序应设置字体、字号大小和颜色的初始值。设字体为“宋体”，字号大小为“14点”，颜色为“蓝色”。这三个属性的初始值既可以在设计时通过属性表设置，也可以在Form_Load（）事件过程中设置。今在Form_Load（）事件过程中设置，其代码如下： Private Sub Form_Load() 设置初始值 OptFont1.Value = True （设置字体为宋体） Optsize1.Value = True （设置字体为14磅） OptColor1.Value = True （设置颜色为蓝色） 显示文本,Label1.Caption = 欢迎你使用Visual Basic End Sub 运行这个程序，与例6.4不同的是，使用不同的动作触发事件过程。例6.4中，每次单击单选按钮，触发相应按钮的事件过程，改变属性值。在本例中，要求在单击“显示”命令按钮时，根据各单选按钮的状态，改变属性值。也就是说，单击单选按钮时，不立即改变标签中的文字的属性，改变属性的操作是由单击“显示”命令按钮触发的cmdShow_Click事件过程实现的。过程代码如下：,Private Sub cmdShow_Click() 确定字体 If OptFont1.Value Then Label1.FontName = 宋体 If OptFont2.Value Then Label1.FontName = 隶书 If OptFont3.Value Then Label1.FontName = 幼圆 确定字号大小 If Optsize1.Value Then Label1.FontSize = 14 If OptSize2.Value Then Label1.FontSize = 18 If OptSize3.Value Then Label1.FontSize = 22 确定颜色 If OptColor1.Value Then Label1.ForeColor = QBColor(9) If OptColor2.Value Then Label1.ForeColor = QBColor(13),If OptColor3.Value Then Label1.ForeColor = QBColor(10) 显示文本 Label1.Caption = 欢迎你使用Visual Basic End Sub “退出”按钮的过程如下： Private Sub cmdExit_Click() End End Sub 程序运行结果如图6.13所示。,图6.13,控件数组是把多个控件作为一个整体来处理。控件数组中的每个元素都是相同类型的控件，比如Label1（0）、Label1（1）、Label1（2）等，都是标签控件。控件数组中的对象具有相同的对象名，例如，Label1，不同的对象通过下标予以区别。控件数组中的对象共享相同的事件过程。下面通过例题说明控件数组的建立和使用方法。,6.5 控件数组,【例6.6】设计如图6.14所示的窗体, 其中的单选按钮是控件数组。要求当单击某个单选按钮时，改变文本框中文字的字体。属性设置见表6.6（见书129页）。 建立控件数组有下述两种方法。 （1） 第一种方法是，在设计时为相同类型的多个控件设置相同的Name属性。具体方法如下所述。 在窗体上画出单选按钮1时，系统给出默认的Name属性的值为Option1。 接着画单选按钮2，系统给出默认的名字Option2。,图6.14, 在属性表中将Option2的Name属性值改为Option1。然后用鼠标单击窗体（表示属性值设置结束），此时屏幕上会出现一个消息框，显示两行文字：“已经有一个控件为Option1 。创建一个控件数组吗? ”。单击“是（Y）”按钮，表示要建立一个名为Option1 的单选按钮控件数组。此时，可以看到单选按钮2的属性表中的Name属性是Option1，属性表上部的对象框中的对象名已由Option2变为Option1(1)了。如果单击属性表的对象框右端的下拉箭头，从其下拉表中可以看到原来的Option2已变成Option1(1)了，即Option1控件数组中已有两个元素，即Option1(0)和Option1(1)，如图6.15所示。,图6.15, 按以上方法继续画Option1(2)。这时控件数组共有3个元素，即Option1(0)Option1(2)。当然也可以不用Option1作为数组名,而改用用户自己设定的名字。 （2） 第二种方法是，在设计时先在窗体上添加一个单选按钮控件，然后用鼠标右键单击该控件，在弹出的快捷菜单中选择“复制”命令，再用右键单击窗体，选择弹出菜单中的“粘贴”命令，当出现是否创建控件数组的提示时，选择“是”，则建立控件数组。,程序运行时，先使标签的FontSize的属性值为12，Caption属性为“Microsoft Visual Basic”，并设第一种字体被选中，即Option1(0). Value = True。这里的Option1(0).Value是按数组的方式引用控件。程序如下： Private Sub Form_Load() lblTitle.FontSize = 12 lblTitle.Caption = Microsoft Visual Basic Option1(0).Value = True End Sub,设计程序时，要特别注意控件数组是一个整体，具有相同的名称Option1。在这个例题中，Option1控件数组的各个数组元素响应同一个Click事件。只要单击任何一个单选按钮（即Option1控件数组中的任一个元素），就会触发Option1_Click 事件。Option1_Click事件过程如下： Private Sub Option1_Click(Index As Integer) If Index = 0 Then lblTitle.FontName = Arial If Index = 1 Then lblTitle.FontName = System If Index = 2 Then lblTitle.FontName = Modern End Sub,6-1 命令按钮的Name 属性和Caption属性有何不同？ 6-2 为什么要用框架将若干单选按钮组合到一起？ 6-3 单选按钮和复选框在使用上有什么区别？ 6-4 控件数组与普通数组在使用上有什么区别？控件数组与控件在使用上有什么区别？,习题,实验: 6-6 设窗体中包含一组单选按钮、一组复选框。单选按钮包括普通、粗体、斜体和粗斜体4种字形。复选框提供对删除线和下划线的修饰效果的选项。在文本框中输入文字后，单击某个按钮，文本框中的文字将按所选择的选项进行设置。窗体如图6.18所示。分别用控件数组和普通控件的方式编写程序，实现题目的要求。,6-7 按照图6.19设计窗体。当单击“显示”命令按钮时，根据文本框中输入的内容、单选按钮和复选框状态在标签中显示相应的信息。要求按回车键时，执行“显示”按钮的事件过程，按Esc键时，执行“退出”按钮的事件过程。,