4.4 命令按钮

命令按钮是Visual Basic编程中使用方法最简单，但却是最常用的控件之一。它主要用来接受用户的单击响应。下面将详细讲述命令按钮最常用的属性、方法和事件。

4.4.1 命令按钮的常用属性

1. Name（名称）属性

Name属性用来在程序中识别此控件，与窗体的Name属性一样。该属性只能在设计阶段设置。给命令按钮起名字时按约定前缀应该是cmd，后面根据命令按钮的作用起名。如一个“确定”按钮的名字可以是cmdOk，又如“取消”按钮的名字可以是cmdCancel。当然，也可以使用按钮的默认名字Command1等，甚至也可以叫做aa，但是为了能让自己和其他人能够很容易地读懂程序，为了给以后的编程生涯一个好的开始，编者再次强烈建议养成按约定起名字的好习惯。表4.4中列出了一些常用控件名称前缀的约定，如果还想知道其他ActiveX控件的前缀命名约定可以查看联机帮助文档，在MSDN搜索栏内输入“命名约定”后搜索既可。

表4.4 常用控件名称前缀

2. Caption属性

Caption属性用来设置按钮上显示的文字。如果想给按钮设置一个热键，也是通过该属性完成。例如，Visual Basic中“文件另存为”对话框的“保存（S）”按钮，在“保存”两个字后面括号里的S就是该按钮的热键，即按下键盘上的ALT键的同时再按S键的效果和用鼠标单击该按钮的作用一样。设置的方法为在按钮的Caption属性内填写“保存（&S）”即可。

3. Enabled属性

Enabled属性用来设置按钮的可用与否。在应用程序的界面中，有时并不希望所有的按钮都是可用的。例如通过一个窗体浏览学生信息时，界面中显示的如果是第一个学生的信息，那么“上一条”按钮就应该是不可用的，而“下一条”按钮是可用的。当单击“下一条”按钮后，界面中的信息成为第二个学生的信息时，“上一条”就会变成可用。改变按钮可用与否的代码格式为：

        按钮.Enabled=True（或False）

其中，按钮是按钮的名称。如果给Enabled属性设置为True，该按钮为可用；如果设置为False，该按钮将不可用。前面所说的不可用的意思是按钮不能被单击，颜色为灰色。

4. Font属性

Font属性用来设置按钮上显示文字的字体、字号、粗体斜体等字体样式。

5. Visible属性

Visible属性用来设置按钮的可见与否。将其设置为True时，按钮是可见的；将其设置为False时按钮是不可见的。可见与否在设计状态下没有任何区别，只有在运行阶段才有效果。

6. Default属性和Cancel属性

如果将一个按钮的Default属性设置为True，那就意味着默认情况下，在窗体上回车就等于用鼠标单击了该按钮。而如果将一个按钮的Cancel属性设置为True，当按下键盘上的ESC键时就等同于单击了此按钮。通常情况下，应当将窗体中的“确定”按钮的Default属性设置为True，将“取消”按钮的Cancel属性设置为True。这会使Windows的老用户感觉到非常顺手。

按钮的属性除了上面提到的以外还有很多。如果读者想使用一个本书中没有提到的属性，请不要忘记通过F1键调用联机帮助查看详细信息。

4.4.2 命令按钮的事件

命令按钮有很多事件，但是最重要、最常用的就是以前所涉及的Click（单击）事件。该事件在用户使用鼠标单击按钮时发生，当然设置了Default和Cancel属性的按钮也可以使用回车和ESC键触发此事件。

【实例4.3】设计一个程序，界面如图4.4所示。当按下“确定”按钮时，会跳出个消息对话框，里面显示的内容是“您单击了确定按钮。”；而按下“取消”按钮时，将卸载窗体。该程序同时还响应回车和ESC键，即回车等同于单击“确定”，按ESC键等同于单击“取消”。

【实现步骤】首先，按照界面设计画好控件后，在属性窗口中设置各对象的属性。具体属性设置见表4.5。实际上，在开发应用程序时为了使界面的设计清晰而有条理，通常在设计前将界面中所需要的对象及其属性画成一个表，然后按照这个表来设计界面。

图4.4 实例4.3界面

表4.5 实例4.3对象的属性设置

两个按钮单击事件中的代码为：

        01   Private Sub cmdCancel_Click()
        02           Unload Me
        03   End Sub
        04
        05   Private Sub cmdOk_Click()
        06         MsgBox   "您单击了确定按钮！"
        07   End Sub

【代码说明】这段代码的运行原理是，当单击“确定”按钮时，触发了该按钮，即代码第05～07行的cmdOk按钮的Click事件，并随之执行了其内的程序代码，因而会弹出消息框；当单击“取消”按钮时，会触发第01～03行“取消”按钮的Click事件，从而执行了其内的卸载窗体的语句，并结束程序。

4.4.3 应用案例—计算圆的面积

【实例4.4】用以前的知识，编写一个可以计算圆的面积的程序。

界面设计如图4.5所示，单击“计算面积”按钮时让输入框跳出来，在里面输入圆的半径并确定后，会弹出一个消息框，里面显示计算出来的圆的面积。

图4.5 实例4.4界面

程序中对象的属性设置见表4.6。

表4.6 实例4.4对象的属性设置

编写程序如下。

        01   Private Sub cmdArea_Click()
        02         Dim r As Single
        03         Dim s As Single
        04         r = Val(InputBox("请输入圆的半径", "输入框"))
        05         s = 3.14 * r * r
        06         MsgBox "圆的面积为：" & s
        07   End Sub

【代码说明】代码第04行按要求首先出现一个输入框，让用户输入一个圆的半径，代码第05行是数学运算中计算圆的面积的公式。代码第06行输出圆的面积。

【运行效果】单击“计算面积”按钮会弹出输入框，在文本框中输入半径，然后单击“确定”按钮。如图4.6所示。

图4.6 实例4.4运行效果

上一章目录下一章