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

第6章 命令按钮、复选框、单选按钮和框架 6.1 命令按钮 6.2 复选框 6.3 单选按钮 6.4 框架 6.5 控件数组 习题 命令按钮 大多数应用程序中都有命令按钮CommandButton控件，用户可以单击按钮执行某项操作。 命令按钮控件CommandButton 使用CommandButton控件创建，可以有不同的外观： 命令按钮的快捷访问键 访问键为按钮的选中提供了一种快捷方式，即同时按下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 6.1.1 使用Enabled属性使命令按钮可用或不可用 Visual Basic提供的Enabled（可用）属性用来控制对象是否可用。当Enabled的属性值为True（-1）时，表示对象可用，为False(0)时，使对象“不可用”（即暂时失效）。 可以在设计阶段设置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”命令按