沈阳师范大学：《数据库应用基础》第10章 菜单程序设计

第10章菜单程序设计

退出 第10章 菜单程序设计

Vsual pasic 第2页 10.1概述 102下拉式菜单的设计 10.3菜单项的控制 104弹出式菜单

退出 第2页 10.1 概述 10.2 下拉式菜单的设计 10.3 菜单项的控制 10.4 弹出式菜单

10概述 Vsual pasic 第3页 ◆下拉式菜单 ◆弹出式菜单 令设计菜单的步骤 令菜单编辑器

退出 第3页 10.1 概述 ❖ 下拉式菜单 ❖ 弹出式菜单 ❖ 设计菜单的步骤 ❖ 菜单编辑器

下拉式菜单 Vsual pasic 第4页 下拉式菜单位于窗口的顶部,它有一个包含多个菜单项的主菜单,称 为菜单栏。菜单栏中的菜单项称为菜单标题 x工程1-8到dBi设计 文件()编辑C)视图Q工程)格式@)调试)运行)查询①)图表①)工具①)外接程序a 新健工程0ct+的2。,m 为司朗t 打开工程),Cuto 添加工程) 移除工程k 保存工程 工程另存为) 保存Form1()Cr1+s Form1另存为 保存选择① 保存更改的脚本00 母打印) 打印设置D 生成工程1.exeC 生成工程G 退出)

退出 下拉式菜单 第4页 下拉式菜单位于窗口的顶部，它有一个包含多个菜单项的主菜单，称 为菜单栏。菜单栏中的菜单项称为菜单标题

弹出武菜单 Vsual pasic 第5页 单击鼠标右键弹出的菜单称为弹出式菜单,或称为“快捷菜单 “上下文相关菜单”。 Form 1 区 国查看代码 百菜单编辑器 日锁定控件〔 鸥粘贴￠ 图属性窗口 更新用户控件①

退出 弹出式菜单 第5页 单击鼠标右键弹出的菜单称为弹出式菜单，或称为“快捷菜单”、 “上下文相关菜单”

设计菜单的步骤 Vsual pasic 第6页 设计菜单的一般步骤为 1.界面设计,包括顶级菜单中的各菜单项,各级子菜单中 的菜单项,以及它们各自的事件过程。 2.打开菜单编辑器,建立各级菜单,并设置相应的属性。 3.编写程序代码。为相应的菜单项编写 Click事件代码

退出 设计菜单的步骤 第6页 设计菜单的一般步骤为： 1．界面设计，包括顶级菜单中的各菜单项，各级子菜单中 的菜单项，以及它们各自的事件过程。 2．打开菜单编辑器，建立各级菜单，并设置相应的属性。 3．编写程序代码。为相应的菜单项编写Click事件代码

菜单编辑器 Vsual pasic 第7页 1.打开菜单编辑器的方法 2.菜单编辑器的组成 菜单编辑器窗□由3部分组成:数据区、编辑区和菜单显示区。 标题) 确定 数据区 名称 取消 索引〖) 快捷键():「one) 帮助上下文ID: 协调位置0):-ae 编辑区 复选()有效 显示窗口列表 下一个插入〔 菜单显示区

退出 菜单编辑器 第7页 1．打开菜单编辑器的方法 2．菜单编辑器的组成 菜单编辑器窗口由3部分组成：数据区、编辑区和菜单显示区。 数据区 编辑区 菜单显示区

想102下拉式菜单的设计 Vsual pasic 第8页 例10.1用下拉式菜单设计一个具有加、减、乘、除、清除和退出功 能的程序。 C. Forml 标题c):限出 计算1计算2其他 索引) 快捷键(): 帮助上下文I0):| 协调位置):p-a F可见①厂显示窗口列表 「」+」」↓下个◎「插入①」「删除① C

退出 第8页 10.2 下拉式菜单的设计 【例10.1】用下拉式菜单设计一个具有加、减、乘、除、清除和退出功 能的程序

翻103菜单项的控制 Vsual pasic 第9页 1.有效性控制 实现菜单项的有效性控制的两种方法 (1)在设计阶段,选中菜单编辑器窗口中的“有效(E)”选项。 (2)在编写代码阶段,通过设置 Enabled属性来实现。 格式:菜单项名称. Enabled=True| False 例如:Mu! Enabled= False 2.菜单项标记 实现菜单项标记的两种方法 (1)在设计阶段,选中菜单编辑器窗□中的“复选(C)"选项。 (2)在编写代码阶段,通过设置 Checked属性来实现。 格式:菜单项名称. Checked=True|Fase

退出 第9页 10.3 菜单项的控制 1.有效性控制 实现菜单项的有效性控制的两种方法： ⑴ 在设计阶段，选中菜单编辑器窗口中的“有效（E）”选项。 ⑵ 在编写代码阶段，通过设置Enabled属性来实现。 格式：菜单项名称．Enabled=True | False 例如：Mul.Enabled = False 2. 菜单项标记 实现菜单项标记的两种方法： ⑴ 在设计阶段，选中菜单编辑器窗口中的“复选（C）”选项。 ⑵ 在编写代码阶段，通过设置Checked属性来实现。 格式：菜单项名称．Checked =True | False

Vsual pasic 第10页 例如 Private Sub Mul Click Mul Checked=Not Mul Checked End sub 若要判断菜单项是否处于活动状态,可用下面的|语句格式 If Mul checked Then 在这里编写Mu菜单项处于活动状态时,要执行的代码。 End If

退出 第10页 例如： Private Sub Mul_Click() Mul.Checked=Not Mul.Checked End Sub 若要判断菜单项是否处于活动状态，可用下面的IF语句格式： If Mul.Checked Then 在这里编写Mul菜单项处于活动状态时，要执行的代码。 End If