《第6章 命令按钮、复选框、单选按钮和框架》由会员分享，可在线阅读，更多相关《第6章 命令按钮、复选框、单选按钮和框架（68页珍藏版）》请在金锄头文库上搜索。
1、第6章 命令按钮、复选框、单选按钮和框架,6.1 命令按钮 6.2 复选框 6.3 单选按钮 6.4 框架 6.5 控件数组 习题,命令按钮,大多数应用程序中都有命令按钮CommandButton控件，用户可以单击按钮执行某项操作。,命令按钮控件CommandButton,使用CommandButton控件创建，可以有不同的外观：,Caption属性：该属性设定按钮显示的文字。 Style属性：控制按钮的显示类型，共有两种取值：标准类型和图形类型。 Picture属性：指定按钮中显示的图片。 BackColor属性：指定按钮的背景颜色。 Tooltiptex属性：指定按钮提示信息,命令按钮的快
2、捷访问键,访问键为按钮的选中提供了一种快捷方式，即同时按下ALT键和访问键等同于鼠标单击该按钮。热键可以提高键盘操作的速度。方法： 使用按钮的Caption属性赋予按钮一个访问键。在标题中，在想要指定为访问键的字符前加一个“&”符号，该字符就会带有一个下划线。比如：&Next，&Last,命令按钮的响应,使用CommandButton控件创建，只要用户单击按 钮，就会调用Click事件过程程序执行有以下方法选中命令按钮： 鼠标单击按钮 用Tab键把焦点移到按钮上，按空格或回车键 使用按钮的快捷键（Alt+有下划线的字母） Caption属性的快捷字符前插入符号“&” 在程序代码中设置按钮的Va
3、lue属性为True 在代码中直接调用按钮的Click事件,命令按钮示例1,【例】点击一个按钮，发出铃声界面元素组成： 一个命令按钮控件：Command1 编写Click事件过程(双击按钮即可进入代码窗口) Private Sub Command1_Click()Beep End Sub,命令按钮示例2,【例】在窗体上添加一个按钮，实现窗口的最大化和还原。,命令按钮示例2,设计一个命令按钮，命名为cmdSize （窗体的MaxButton 和MinButton属性均设置为False） ： 在窗口第一次显示时，按钮标题为“最大化(&L)” 。 点击按钮后将窗口最大化，并且标题变成“还原(&B)”
4、。 再点击设置窗口还原，标题又恢复为“最大化(&L)” 。 Private Sub cmdSize_Click()If cmdSize.Caption = “最大化(&L)“ ThenMe.WindowState = 2cmdSize.Caption = “还原(&B)“ElseMe.WindowState = 0cmdSize.Caption = “最大化(&L)“End If End Sub,Visual Basic提供的Enabled（可用）属性用来控制对象是否可用。当Enabled的属性值为True（-1）时，表示对象可用，为False(0)时，使对象“不可用”（即暂时失效）。,6.1
5、.1 使用Enabled属性使命令按钮可用或不可用,可以在设计阶段设置Enabled属性的值，也可以在程序运行阶段改变Enabled属性的值。如用户未指定它的值，系统指定的隐含值为True(-1)，即“可用”。 【例6.1】设计一个程序，拟在窗体上装入一个图片，在图片上画3个标签。窗体还有三个命令按钮，各控件的位置如图6.1所示。程序进入运行状态后如图6.2所示。当单击“显示文本1”命令按钮后，在图片上显示出一些文字，同时此命令按钮变成浅灰色，表示“失效”。若单击“显示文本2”命令按钮，则图片上换成另一段文字，此时“显示文本2”按钮失去作用，而“显示文本1”按钮恢复原状，可以使用。,图6.1,
6、图6.2,属性设置如表6.1（见书112页）所示。 根据题目要求，在程序运行后，若单击“显示文本1”命令按钮，应显示出一些文字，并使该命令按钮失效。据此写出cmdShow1_Click事件过程（cmdShow1是命令按钮1的名字）。,Private Sub cmdShow1_Click()cmdShow1.Enabled = FalsecmdShow2.Enabled = Truelbl1.Caption = 欢迎你lbl2.Caption = 使用lbl3.Caption = End Sub 在执行cmdShow1_Click()事件过程后，“显示文本1”命令按钮已变成灰色（如图6.3所示）
7、。 编写出cmdShow2_Click事件过程如下：,图6.3,Private Sub cmdShow2_Click()cmdShow1.Enabled = TruecmdShow2.Enabled = Falselbl1.Caption = lbl2.Caption = lbl3.Caption = Visual Basic End Sub 在单击“显示文本2”命令按钮后，屏幕显示如图6.4所示。,图6.4,上述的Enabled属性是使命令按钮“不可用”，在屏幕上改为浅灰色，但仍然看得见。有时希望在屏幕上使它变成“不可见”。Visual Basic提供的Visible(可见)属性就是用来控制
8、命令按钮在屏幕上是否能被看得见。当Visible属性值为True（-1）时，命令按钮可以看得见；若为False(0)，则命令按钮被“隐藏”起来，在屏幕上不显示。应该说明，该命令按钮依然存在，其他各属性仍然起作用，只是在屏幕上不显示而已。,6.1.2 用Visible属性使命令按钮“不可见”,Visible属性的值既可以在设计阶段直接设置，也可以在运行时通过程序来改变。如果用户不指定该属性的值，Visual Basic自动将它的初始值定为True，即“可见”。 有时需要清理屏幕时，只希望屏幕上显示用户所需要的信息而不希望显示某些控件时，可以用Visible属性。 在例6.2中，读者将会看到Vis
9、ible属性的使用。 其实Enabled和Visible属性不仅可用于命令按钮，也可用于窗体。,默认的命令按钮,设置按钮的Default属性为True, 直接使用Enter键即可选中设置按钮的Cancel属性为True, 用Esc键选中,用Default属性使命令按钮为默认的“活动按钮”，用Cancel属性使命令按钮为“取消”按钮。 许多用过Windows程序的读者会发现，有的对话框中有两个命令按钮，一个上面的文字为Ok（或“确定”），另一个为Cancel（或“取消”）。如果想选择Ok（或“确定”），既可以用鼠标单击该命令按钮，也可以在键盘上按Enter键，表示选中它。这个可以用Enter键代
10、替的命令按钮就称为默认的“活动按钮”。,6.1.3 Default属性和Cancel属性,在Visual Basic中可以用Default属性将一个命令按钮设置为默认的“活动按钮”。当一个命令按钮的Default属性值被设为True时，该按钮就被确定为默认的“活动按钮”，当为False时，不是默认的“活动按钮”，不能用Enter键代替单击该按钮来选择它。在一个窗体中，只能有一个命令按钮的Default属性值为True。,此外，人们还常常希望用按键盘上的Esc键来代替单击“取消”按钮，这符合人们的操作习惯。Visual Basic提供的Cancel属性可以用来指定一个命令按钮为“取消”按钮， 在
11、运行时可以用Esc键代替单击该命令按钮。当Cancel属性值为True时，该按钮被指定为“取消”按钮，当为False时，则不是“取消”按钮，在运行中不能用Esc键代替单击该命令按钮。在一个窗体中，只能有一个命令按钮的Cancel属性值被设置为True。,【例6.2】设计一个程序，窗体中有2个命令按钮和3个标签，如图6.5所示。程序运行后若单击“确定（Ok）”按钮，则2个命令按钮和最上面一个标签成为不可见，同时在另外两个标签上显示出当前日期和时间，单击“取消（Esc）”命令按钮结束程序运行。 属性设置见表6.2（见书116页）。,图6.5,根据题目要求，在单击“确定（Ok）”命令按钮时，应显示出
12、当前日期和时间。编写出以下程序代码： Private Sub cmdOk_Click()cmdOk.Visible = FalselblTitle.Visible = FalselblDate.Caption = 日期: + Date$lblTime.Caption = 时间: + Time$ End Sub 执行此事件过程后，用户看到的窗口如图6.6所示。,图6.6,命令按钮的一般形式是长方形、有文字说明。为使用户界面更加生动，可以使用带图案的命令按钮。具体做法如下： （1） 添加一个按钮； （2） 设置该按钮的Style 属性为1； （3） 选择按钮的Picture 属性，单击右侧有“”的
13、按钮，在“加载图片”对话框中选择一个图片文件，则将该图片放到命令按钮上。,有时，希望在应用程序的用户界面上，提供一些项目让用户从两种方案中选其一（如“是否要输出结果”，“是否使用大写字母”，“是否选择这个文件”，等等）。Visual Basic提供一种称为“复选框”（Check box）的控件，又称“检查框”。它有两种状态可以选择：（1） 选中（或称“打开”，复选框中出现一个“”标志）；（2） 不选（或称“关闭”，“”标志消失）。,6.2 复选框,【例6.3】设计一个程序，用户界面设计如图6.7所示，由一个标签、一个文本框、四个复选框组成。程序开始运行后，用户在文本框中输入一段文字，然后按需要
14、单击各复选框，用以改变文本的字体、字形、颜色以及大小。 属性设置见表6.3（见书119页）。,图6.7,先对第1个复选框（Name属性为chkFont）的单击事件编写单击事件过程： Private Sub chkFont_Click()If chkFont.Value = 1 ThentxtPassage.FontName = 宋体ElsetxtPassage.FontName= 幼圆End If End Sub,与此类似，编写出第2个复选框（斜体）的如下事件过程： Private Sub chkItalic_Click()If chkItalic.Value = 1 ThentxtPassa
15、ge.FontItalic = -1ElsetxtPassage.FontItalic = 0End If End Sub,接着编写第3个复选框的单击事件过程。 Private Sub chkSize_Click()If chkSize.Value = 1 ThentxtPassage.FontSize = 16ElsetxtPassage.FontSize = 8End If End Sub,最后编写第4个复选框的单击事件过程： Private Sub chkCol_Click()If chkCol.Value = 1 ThentxtPassage.ForeColor = QBColor(1
16、3)ElsetxtPassage.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，再为复选框的单击事件编写如下的事件过程：,
