第04讲命令钮标签文本框.ppt

第四章 命令按钮、标签和文本框 课堂内容 命令按钮 标签控件 文本域控件 一、命令按钮（Command Button） 命令按钮的用途 命令按钮CommandButton控件有时简称为“按钮”，用来进行人机交互操作，通过鼠标点击来执行某项操作。 命令按钮控件CommandButton 使用CommandButton控件创建，可以有不同的外观： 命令按钮的快捷访问键 访问键为按钮的选中提供了一种快捷方式，即同时按下ALT键和访问键等同于鼠标单击该按钮。热键可以提高键盘操作的速度。 使用按钮的Caption属性赋予按钮一个访问键。在标题中，在想要指定为访问键的字符前加一个“”符号，该字符就会带有一个下划线。比如：Next，Last 命令按钮的事件 最常用的就是命令按钮的Click()事件 事件例子见48页，例题4-1，通过按钮控制窗体最大化和正常尺寸显示。 注意按钮不支持双击事件(dblClick) 命令按钮的响应 使用CommandButton控件创建，只要用户单击按 钮，就会调用Click事件过程 程序执行有以下方法选中命令按钮： 鼠标单击按钮 用Tab键把焦点移到按钮上，按空格或回车键 使用按钮的快捷键（Alt+有下划线的字母） Caption属性的快捷字符前插入符号“” 在程序代码中设置按钮的Value属性为True 在代码中直接调用按钮的Click事件 默认的命令按钮 设置按钮的Default属性为True, 直接使用Enter键即可选中（总是为默认选中的按钮，当窗口中有其他控件时才生效，增加一个文本框试试看） 设置按钮的Cancel属性为True, 用Esc键选中 命令按钮示例1 【例】有四个按钮，三个表示3种颜色，1个“退出”，点击其中一个颜色键，使窗体背景色发生相应变化，然后给每个键设置快速访问键，看效果；另外设一下缺省命令按钮和缺省取消按钮。 界面元素组成： 命令按钮控件：Command1 编写Click事件过程(双击按钮即可进入代码窗口) Private Sub Command1_Click() me.backcolor = vbRed End Sub 命令按钮示例2 【例】在窗体上添加一个按钮，实现窗口的最大化和还原。 习题思路：1. 通过按钮点击事件判断按钮标题名 2. 设置窗体显示状态，并且重新设置按钮标题名为相反操作 命令按钮示例2 设计一个命令按钮，命名为cmdSize （窗体的MaxButton 和MinButton属性均设置为False） ： 在窗口第一次显示时，按钮标题为“最大化(L)” 。 点击按钮后将窗口最大化，并且标题变成“还原(B)”。 Private Sub cmdSize_Click() If cmdSize.Caption = 最大化(L) Then Me.WindowState = vbMaximized cmdSize.Caption = 还原(B) Else Me.WindowState = vbNormal cmdSize.Caption = 最大化(L) End If End Sub 二、标签控件（Label） 标签的用途 作用：1. 标签Label控件用来标示文本域内容,2.用来输出文本。当用于标示文本域内容时，经常和文本域一起使用；当用于第二种用途时，用户可以先设置其初始内容，然后根据需要，可以通过代码显示新内容。 用于输出文本的标签属性 Caption属性长度最长可以设置为1024个字节 Alignment属性：控制Label控件中的文本位置。有：左对齐(0)，居中(1)，右对齐 需要多行输出时，可用Vbcrlf常量，或合并chr(11) chr(13)字符的办法。 用于标识文本域时的属性 文本域可以快捷访问么？？ UseMnemonic 属性：使标签可以为文本域设置快捷访问键 在标签的标题名中加上 “”符 保证输入框的TabIndex属性 要比对应标签的TabIndex大1 例子：教师信息登记 比如图中可输入教师信息，其中标签有两种用途： 标签可以放在它们前面作为输入提示 快捷访问键：鼠标可以直接将光标放在某个文本框上，但使用键盘有时更快捷些。比如键盘Alt+P可以直接将光标移到电话输入框中。 标签控件的其他属性 可以用来显示文本, 或用作其它控件的标识 Autosize，为True，可自动水平适应长度 WordWrap，为True，可自动换行显示，前提是Autosize为True　 BackStyle, BorderStyle 背景透明, 边框样式 AutoSize和WordWrap 当初始宽度无法满