计算机二级vb程序语言设计 11章菜单程序设计

菜单程序设计

为什么要学菜单？菜单重要吗？
windows环境下，所有的应用软件都是通过菜单实现各种操作的。？？你说重要不重要？？
对于复杂的操作，菜单具有明显的优势。
菜单的作用
- 提供人机对话的界面。 让使用者可以通过菜单使用应用程序的各种功能、
- 管理应用系统，控制各种功能模块的运行
高质量的菜单程序，不单可以让系统美观，还可以让操作者使用方便
菜单是什么？
菜单可以分为下拉式菜单，和弹出式菜单。
下拉式菜单长什么样？
是最典型的窗口式菜单。窗口是指屏幕上一个特定的矩形区域，
文字描述：
他可以在屏幕上出现，也可以重新显示在屏幕上，各个窗口允许覆盖，下拉式窗口 从上到下 在屏幕上下拉 一个个 窗口来供用户选择或者输入信息。
就是这玩意
弹出式菜单长什么样？
往下看。
vb中的菜单的理解？
把每个菜单项，看作是一个图形对象，（控件）， 具有和某些控件相同的属性

可视语言中，菜单的设计要简单，vb中菜单通过菜单编辑器来建立，
认识一下菜单编辑器

怎么出现这个菜单编辑器？

1. 工具-----》菜单编辑器
2. crtl + e
3. 工具栏----》菜单编辑器
4. 窗体右键--------弹出菜单选择菜单编辑器
   菜单编辑器的结构是什么？
   菜单编辑器可以分为数据区，编辑区，菜单显示区
   数据区可以 修改菜单项，设置属性
   编辑区 是 那7个按钮，用来对输入的菜单项进行简单的编辑。
   菜单显示区 输入的菜单在此处显示出来，通过内缩符号表明菜单项的层次。条形光标所在的菜单项是“当前菜单项”
   菜单编辑器怎么使用？
   往下康
   怎么使用菜单编辑器建立菜单？
   通过本章第一个例子来说明，这个例子说明了菜单程序设计的基本方法和步骤，不管多复杂的菜单都可以使用相同的方法设计。 在最后面
   为什么有些菜单项和别的不同呢？
   有些菜单项是灰色的，有些菜单项有下划线，
   我们通过有效性操作和菜单项标记来让一些菜单项更加有个性
   什么是有效性控制？
   比如： 有些菜单项可以根据执行条件不同而进行动态变化。
   我们要设置他们的有效属性，来控制他们。
   如果有效属性 = False 菜单项就变成灰色的了
   例如:Add.Enabled = False
   想要恢复就设置
   Add.Enabled = True
   对上一个11-1进行完善

Private Sub Text1_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub
Private Sub Text2_Change()
If Text1.Text = "" Then
Add.Enabled = False
Min.Enabled = False
Mul.Enabled = False
Div.Enabled = False
Else
Add.Enabled = True
Min.Enabled = True
Mul.Enabled = True
Div.Enabled = True
End If
End Sub

什么是菜单项标记？
就是在菜单项面前加一个 勾勾
我们用一个例子来说明它的用法11-2

代码清单
11-1
设计 具有运算以及清除功能的菜单，
界面设计如下

设计菜单
规划好提供给菜单的属性 就可以设计菜单了，



编写程序代码

Private Sub Add_Click()
x = Val(Text1.Text) + Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Clean_Click()
Text1.Text = ""
Text2.Text = ""
Label4.Caption= ""
Text1.SetFocus
End Sub

Private Sub Div_Click()
x = Val(Text1.Text) / Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Min_Click()
x = Val(Text1.Text) - Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Mul_Click()
x = Val(Text1.Text) * Val(Text2.Text)
Label4.Caption = x
End Sub

Private Sub Quit_Click()
End
End Sub

11-2