《计算机二级vb知识点2》由会员分享，可在线阅读，更多相关《计算机二级vb知识点2（51页珍藏版）》请在金锄头文库上搜索。
1、第五章基本控件的使用5.1 标签控件在 Windows 应用程序的各种对话框中，都显示有一些文本提示信息，在 VB 中可以使用标签控件来实现在窗体中显示这些文本提示信息。表 5.1 中列出了标签控件的一些主要属性。既可以在程序设计阶段通过【属性】窗口设置标签的属性，也可以在程序运行阶段在代码中设置窗体的属性。如将标签(名称为 Labell)显示的文本设置为欢迎的语句如下：Labell.Caption=欢迎实例 5.1 标签的使用在该程序中，窗体上显示一行提示用户执行操作的文本，当用户单击或双击窗体时，窗体上还会显示出用户所执行的操作。在窗体上放置两个标签控件，它们的属性设置如表 5.2 所示。
2、打开【代码】窗口，将下列代码添加到 Form_Click 事件过程中：Private Sub Form_Click()Labl.Borderstyle=0Labl.Caption=“您单击了窗体 !”End Sub当单击窗体时，则触发 Form_Click 事件，该事件中的第一行语句是设置标签无边框(BorderStyle 属性的值为 0),第二行语句是设置标签上显示的文本。与此类似，将下列代码添加到 Form_DblClick 事件过程中：Private Sub Form_Click()Labl.Borderstyle=1Labl.Caption=“您单击了窗体 !”End Sub运行该程序
3、，单击窗体，则窗体上显示您单击了窗体!,如图 5.2 所示。双击窗体，则窗体上显示您双击了窗体 !,并且文本有一个边框，如图 5.3 所示：5.2 按钮控件在应用程序中，按钮控件常常被用来启动、中断或结束一个进程，用户可以通过简单的单击按钮来执行操作。只要用户单击按钮，就会触发它的 Click 事件过程，通过编写按钮的 Click 事件过程，就可以指定它的功能了。按钮控件的常用属性如表 5.3 所示。5.2.1 按钮的有效性在某些应用程序界面中，按钮会根据用户的操作情况呈现两种不同的状态，一种是有效, 一种是 无效.在无效 状态时，按钮通常以浅灰色显示，不能响应用户的任何操作。Windows
4、系统自带的录音机程序界面，其中的【停止】与【后退】按钮无效(以浅灰色显示).按下【播放】按钮后，【播放】按钮变为无效，而 【停止】按钮变为有效。按下【停止】按钮后，【停止】按钮变为无效，【播放】按钮恢复有效。通过按钮的有效性可以看出当前程序的状态，从而避免一些不需要的或重复的操作。如在录音机处于停止状态时(【停止】按钮无效), 用户就不需要再去单击 【停止】按钮来停止播放了。这里给出一个实例，来模拟录音机的停止与播放按钮。实例 5.2 按钮的有效性在窗体中放置一个标签控件和两个按钮控件，如图 5.5 所示，其中各控件的属性设置如表 5.4 所示。注意：按钮控件添加到窗体上后，在默认情况下，它们
5、的 Enabled 属性为 Ture,在运行程序前，请在【属性】窗口中确认两个按钮的 Enabled 属性均为 Ture,以防止用户在操作中谋改变了这个属性。双击第一个按钮，打开【代码】窗口，将下列代码添加到 ComPlay_Click 事件过程中：Private Sub ComPlay_Click()Labell.Caption=正在播放歌曲Complay.Enabled=FalseComStop.Enabled=TureEnd Sub当用户单击【播放】按钮时，触发 ComPlay_Click 事件，该事件过程中的第一行代码是在标签中显示文本，第二行代码是将【播放】按钮变为无效，第三行代码是
6、将【停止】按钮变为有效。与此类似，将下列代码添加到 Comstop_Click 事件过程中：Private Sub Comstop_Click()Labell.Caption=歌曲播放停止ComPlay.Enabled=FasleComPlay.Enabled=TureEnd Sub运行该程序，单击【播放】按钮，则在标签中显示正在播放歌曲, 并且【播放】按钮变为无效，如图 5.6 所示。单击【停止】按钮，则在标签中显示歌曲播放停止, 【停止】按钮变为无效，同时，【播放】按钮又恢复有效，如图。5.7 所示。5.2.2 多功能按钮通常，每个按钮都有一个固定的标题(Caption)和一个特定的功能，
7、用户也可以设计出多功能按钮。单击这样的按钮，按钮的名称会发生变化，并且会执行与按钮标题相应的操作。实例 5.3 多功能按钮。在该程序中，窗体上只有一个按钮，单击该按钮，按钮的标题会在显示日期 与显示时间间切换，并且在窗体中将显示出与当前按钮标题相应的内容。在窗体上放置一个标签控件和一个按钮控件，其中各对象的属性设置如表 5.5 所示。双击【显示日期】按钮，打开【代码】窗口，将下列代码添加到 Commandl_Click 事件过程中：Private Sub Command1_Click()If Commandl.Caption-“ 显示日期”ThenLabell.Caption=DateComm
8、and1.Caption=“显示时间 ”ElseLabell.Caption =TimeCommand1.Caption=“显示日期 ”End ifEnd Sub在该段代码中，使用了一个 If 语句来判断当前按钮的标题，然后做出相应的操作。运行该程序，单击【显示日期】按钮，则在标签中显示当前的系统日期，并将按钮的标题改变为显示时间 ,如图 5.9 所示; 再次单击按钮。则在标签中显示当前的系统时间，并且按钮的标题恢复为显示日期 ,如图 5.10 所示。这样，通过一个按钮就可以循环显示当前系统的时间与日期了。 5.2.3 使用键盘操作按钮按钮控件的 Click 事件不仅可以由鼠标单击触发，还可以
9、由以下几种方法触发：按 Tab 键把焦点移到相应按钮上。然后按 Space 键或 Enter 键。如果某按钮是窗体的缺省命令按钮，既使将焦点移到其他控件上(非按钮控件), 按下Enter 键也会选中该按钮。在设计时，通过设置按钮的 Default 属性为 True,就可指定它为窗体的缺省命令按钮。在一个窗体中只能有一个按钮为缺省命令按钮。如果某按钮是窗体的缺省取消按钮，即使把焦点移到其他控件上，也能通过按 Esc 键选中该按钮。在设计时，通过设置某按钮的 Cancel 属性为 True,就可指定它为窗体的缺省取消按钮。在一个窗体中只能有一个按钮为缺省取消按钮。按按钮的访问键(Alt+带下划线的
10、字母 )可通过 Caption 属性创建命令按钮的访问键，为此，只需在作为访问键的字母前添加一个连字符(&).例如，要为标题为 Print 的按钮创建访问键，应在字母 P 前添加连字符(&),于是得到&Print.运行时，字母 P 将带下划线，同时按 AIt+P 键就可选定命令按钮。注意：如果不创建访问健，而又要使标题中包含连字符但不创建访问键，应添加两个连字符(&).这样一来，在标题中就只显示一个连字符而不显示下划线。使用 Enter 键来执行某项操作和使用 Esc 键来取消某项操作是人们的操作习惯，因此，在设计程序时，最好设置窗体的缺省命令按钮和缺省取消按钮，来迎合人们的操作习惯。实例 5
11、.4 使用键盘操作按钮在该程序中，用户可以使用 Enter 键，Esc 键和访问键来选中按钮。若按 Esc 键，则退出程序。在窗体中放置一个标签控件、一个文本框控件和两个按钮控件，其中各对象的属性设置如表 5.6 所示。双击【确定】按钮，打开【代码】窗口，将下列代码添加到 ComOK_Click 事件过程中：TexTime.Text =TimeEnd Sub将退出程序的 end 语句添加到 ComEsces_Click 事件过程中:Private Sub ComEsc_Click()EndEnd Sub运行该程序，单击【确定】按钮或按下 Alt+O 组合键都将在文本框中显示当前的时间。将焦点移
12、动到文本框上，按下 Enter 键也可以在文本框中显示当前的时间。单击【取消】按钮、按下 Esc 键或按下 Alt+E 组合键将退出程序。5.2.4 图片按钮在 Windows 程序界面中，标准的按钮形式是立体的长方形，在其上显示文本提示信息，表明按钮的功能。为了使用户界面更加生动，一些按钮上不是用文字，而是用图片来表明按钮的功能，如按钮的功能是保存，则在按钮上显示一个磁盘图片。在 VB 中，如果将按钮控件的 Style 属性的值设置为 1,就可以通过 Picture 属性来设置要在按钮上显示的图片，通过 DownPicture 属性设置按钮被按下时显示的图片，通过DisablePicture
13、 属性设置按钮无效时显示的图片。实例 5.5 图片按钮。在该程序中，按钮上显示有图片，形象地说明了该按钮的功能。并且，按钮上的图片还会根据用户的操作，做出相应的变化。在窗体上放置一个标签控件和两个按钮控件，如图 5.13 所示，其中各对象的属性设置如表 5.7 所示。 提示：在安装 VB 时，如呆选择了安装图形选项，则在 VB 安装目录下的CommonGraphics 目录将有大量的位图文件、元文件以及图标文件等。在需安各种图形或图标时，可以在那里找到双击第一个按钮控件，打开【代码】窗口，将下列代码添加到 ComLight_Click 事件过程中：Private Sub ComLight_Cl
14、ick()If ComLight.Caption=“ 关 灯” ThenComLight.Picture=LoadPicture(“d:Microsoft visual studi oCommonGraphicesTconsMiscLighton.ico“ComFace.picture=Loadpicture(“d:Microsoft visual studi oCommonGraphicesTconsMiscFace04.ico“ComLight.Caption=“开 灯”ElseComLiht.Picture=LoadPicture(“d:Microsoft visual studi oC
15、ommonGraphicesTconsMiscLightoff.ico“)ComFace.picture=Loadpicture(“d:Microsoft visual studi oCommonGraphicesTconsMiscFace02.ico“)ComLight.Caption=“关 灯”End IfEnd Sub【关灯】按钮是一个多功能按钮，与实例 5.3 一样，使用了 If 语句来判断按钮当前的标题。在程序运行时，设置对象的 Picture 属性的格式如下：对象名 Picture = LoadPicture(文件名)注意：在程序运行时，不能直接将文件名赋予控件的 Picture
16、属性，而要使用LoadPicture()函数。将下列代码添加到 ComFace_Click 事件过程中：Private Sub ComFace_Click()If ComLight.Caption=“ 关 灯” ThenLabell.Caption=“我 高 兴!”ElseLabell.Caption=“我 生 气!”End IfEnd Sub运行该程序，单击【关灯】按钮，则该按钮上的图片变成一个发亮的灯泡，提示文本也由关灯变成了开灯, 且另一个按钮上的笑脸图片变成了哭脸图片。单击 【哭脸】按钮，则在标签中显示我生气!,如图 5.14 所示。再次单击【开灯】按钮，则该按钮上的图片恢复为一个关灭的灯泡，提示文本开灯 变成了关灯,且另一个按钮上的哭脸图片恢复为笑脸图片。单击【笑脸】按钮，则在标签中显示我高兴!,如图 5.15 所示。5
