《第9章界面设计.ppt

第九章 图形用户界面设计 应用程序通过菜单为用户提供一组命令 菜单一般分为两种：即下拉式菜单和弹出式菜单 9.1.1 下拉式菜单 一.下拉式菜单的结构 下拉式菜单基本结构包括：顶层菜单、菜单项和子菜单 菜单编辑器的使用技巧 菜单的主要属性 1. 标题(Caption)：在窗口上显示，例如：输入File，显示为： File，热键：Alt+F 2. 名称(Name)： 菜单项的名称，分界符也应有名称。 3. 快捷键(Shortcut)：下拉列表框 4 下一个(Next)： 设置下一个菜单项。 5. ←和→按钮：“→” 下一级菜单项；“←”上一级菜单项。 6. 插入(Insert)按钮：插入菜单项 7. 删除(Delete)按钮：删除菜单项 8. ↓和↑按钮： 改变菜单项位置。 9. 复选(Checked)检查框：菜单项为选定项。 10. 有效(Enabled)检查框：True：菜单项可选；False：不可选。 11. 显示窗口列表(Window List)检查框： 菜单编辑器的使用技巧 例 编一程序，进行两个操作数的算术运算练习 设计步骤如下： (1)创建应用程序的用户界面和设置对象属性 菜单栏向用户提供功能选择，包括运算数的位数，运算符类型和退出程序 菜单设计 各个菜单项名称 (2)编写程序代码 Option Explicit 显式声明变量 Dim sel1 As Integer, sel2 As String Dim r1 As Long Private Sub Form_Load() sel1 = 0 位数标记 sel2 = 运算标记 Randomize End Sub Private Sub Mnu11_Click() sel1 = 1 设置位数标记 End Sub Private Sub Mnu12_Click() sel1 = 10 End Sub Private Sub Mnu13_Click() sel1 = 100 End Sub Private Sub Mnu21_Click() sel2 = + 设置运算标记 End Sub Private Sub Mnu22_Click() sel2 = - End Sub Private Sub Mnu23_Click() sel2 = * End Sub Private Sub Command1_Click() 命题按钮单击事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先选择运算数的位数和运算类型 Exit Sub End If a = sel1 + Int(9 * sel1 * Rnd) 随机生成指定位数的操作数 b = sel1 + Int(9 * sel1 * Rnd) Label1.Caption = Str(a) + sel2 + Str(b) + = 组成算式 Select Case sel2 求运算结果r1 Case + r1 = a + b Case -