Exit Sub End If
PointFlag = True Text1.Text = StrNum1 Case 12 To 15 FirstNum = True PointFlag = False '还原标记值 If SignFlag Then Call Run Else
SignFlag = True StrNum2 = StrNum1 StrNum1 = \ End If
Runsign = Index - 11 Case 11
If Not SignFlag Then Text1.Text = StrNum1 equal = Val(StrNum1) FirstNum = True PointFlag = False Else Call Run
25
SignFlag = False End If Case Else Call ClearData End Select End Sub
Private Sub Form_Load() Call ClearData End Sub 补充说明
按钮还有两个重要的属性Default（默认属性）和Cancel（取消属性），两个属性都以布尔赋值，把Default设为True，则在按下回车键时，不论焦点处于何处，都会触发该按钮的Click事件，而当Cancel属性被设为True，在按下ESC键时，该按钮的Click属性发生。下面举个例子：
建立一个新窗体和两个按钮，Name属性分别为cmdOK和cmdCancel，把前者的Default设为True，后者的Cancel设为True，Caption属性分别为OK和Cancel。如图4－8。填写代码后运行：
26
Private Sub cmdCancel_Click()
MsgBox \按钮被按下\提示\ End Sub
Private Sub cmdOK_Click()
MsgBox \按钮被按下\提示\ End Sub
结果如图4－9、4－10：
快捷键大家一定都知道，在VB如何实现呢。其实很简单，在刚才的例子里在建立一个按钮Command1，把它的Caption属性设为Click &ME，如图4－11，在M的下面有一条下划线，运行程序，当你按下Alt+M的时候就触发了Command1_Click事件：
Private Sub Command1_Click()
MsgBox \按钮被按下\提示\ End Sub
据我所知，有许多用户有使用快捷键的习惯，注意细节上的问题能够使将来你的程序得到更多人的欣赏，不是吗？
1.6 5
第五章 菜单
我们经常在Windows操作里遇到各种各样的菜单，菜单的操作把各种命令结构化、分分类化，也节省了
命令所占的空间，从作用上来讲，菜单类似于按钮，但它只有一个事件――Click。
27
VB作为Windows下的可视编程工具，菜单的设计当然很容易实现，VB3.0按下Ctrl+M，VB4.0以上的版本请按下Ctrl+E，便可呼叫出菜设计的窗口，无论VB的版本，这个窗口的样式是大同小异的，请见图5－1。
前面说过，菜单相当于简单的按钮，它有几个属性，其中的大部分我们都曾经见过，包括Name、Caption、Index、Checked、Enabled、Visible、快捷键和热键等等。其中Name是必须的。下面请跟我一起设计第一个菜单。
首先在Caption添入“文件”，Name为“mnuFile”，按下Next按钮，这样就建立了第一级菜单，注意菜单设计窗口的左中有四个箭头，按下向右的箭头，出现了一排小点，如图5－2，在VB里这叫缩排，这样就可以开始建立第二级菜单。
28
小知识：实际上我们在生活就中经常用到缩排，写文章时开头要空两格就是一种缩排，在编写程序时更需要缩排，这样使程序结构化，便于观察，当然菜单设计里的缩排有更多的用处。
接着填写下一菜单项，Caption为“新文件”，Name为“mnuFileNew”，按下Next键。 小知识：VB一共如许建立6级子菜单，如图5－3，尽量不要建立这样的菜单，要知道藏在越深处的菜单项越难以被人发现，一个友好的程序界面应该让用户马上找到需要的命令。
29
VB基础入门教程
