第五章 窗体和基本控件 - 7.ppt

* 1.菜单的作用和特点 作用 提供人机对话的界面，让使用者选择应用系统的各种功能；同时还可以管理应用系统，控制各种功能模块的运行。 特点： 有一个包含若干个选择项主菜单， 主菜单的每一项又可下拉出下一级菜单， 操作完毕即消失，恢复原来的屏幕状态。 单击窗体设计器中的窗体，将工具箱中的MenuStrip控件拖放到窗体上，该控件自动置于窗体顶部，并命名为MenuStrip1。 插入标准菜单项 右击MenuStrip1控件的非输入区，从弹出菜单（上下文菜单）选择“插入标准项”，则在菜单上会自动插入一些标准的菜单项（如：File、Edit、Tool、Help）。 * 利用MenuStrip控件为应用程序添加菜单 菜单特性 菜单项中的图形可以增加对该菜单项功能的直观理解。通过各菜单项的Image属性可以为菜单项添加图形。 访问键是利用Alt键和菜单项中带下划线的字母键来导航菜单。当在菜单中使用访问键后，用户可以在屏幕显示的菜单上使用方向键和鼠标来浏览这些菜单。在菜单设计时，访问键是通过菜单项的Text属性在该字母前输入“”字符来设置的。 快捷键是在无需显示菜单的条件下，通过使用控制键Ctrl和字母键来执行菜单项。在菜单设计时，快捷键是通过菜单项ShortcutKeys属性设置的。 复选标记是菜单项旁边的复选标记符号，用于表明菜单项是激活的。在菜单设计时，复选标记是通过菜单项的Checked属性设置的 。 * * 例1：医院信息系统界面的菜单设计，并要求单击某菜单项，能执行相应的功能。 分类 标题 名称 快捷键 主菜单1 病案信息处理 Pfp 子菜单1 病案输入(I) Fi [Ctrl]+I 子菜单2 病案打印(P) Fp [Ctrl]+P 主菜单2 诊断治疗(Z) DiCu 子菜单1 诊病(D) Dp [Ctrl]+D 子菜单2 治疗(C) Cu [Ctrl]+C 主菜单3 系统维护 Sym 子菜单1 退出(Q) Quit [Ctrl]+Q 子菜单2 说明(H) Help [F1] 为菜单编写代码 Private Sub MenuHelp_Click( ) MsgBox(Click the Menuitem! ) End Sub * * 2.上下文菜单 上下文菜单是显示在窗体之上、独立于菜单栏的浮动式菜单。上下文菜单可以在窗体的某个地方显示出来，对程序事件作出响应。 上下文菜单结构示意 * 设计上下文菜单 利用ContextMenuStrip控件添加上下文菜单项，将控件名称改为“MyPromptMenu” 将相关控件的ContextMenuStrip属性改为“MyPromptMenu”即可。 工具栏设计 将工具箱中的ToolStrip控件拖放到窗体上，该控件自动置于菜单下部，并命名为ToolStrip1。 右击ToolStrip1控件的非输入区，从上下文菜单选择“插入标准项”，则在菜单上会自动插入一些标准的工具按钮。 或者按照设计要求，单击ToolStrip1控件输入区的下拉按钮，从下拉菜单中选择Button命令项，添加工具按钮，并通过按钮属性窗格中的Image、Name、Text、Visible等属性设置按钮的常用特性。 工具栏的代码设计方法和菜单项相似。 * * 上机实习 实验33、34、36 例5.16 门诊病案信息录入 * TextBox3 TextBox1 TextBox2 Dim x As Integer, varstring As String Private Sub Button1_Click( ) TextBox3.Enabled = True TextBox3.Text = TextBox1.Text TextBox2.Text If RadioButton1.Checked = True Then TextBox3.Text = TextBox3.Text RadioButton1.Text Else TextBox3.Text = TextBox3.Text RadioButton2.Text End If End Sub * Private Sub TextBox1_LostFocus( ) x = Len(TextBox1.Text) If x 6 Then Beep() TextBox1.Text = TextBox1.Focus() TextBox3.Clear() TextBox3.Text = 病历号为6位数字 Else TextBox3.Clear() Button1.Enable