08菜单键盘鼠标.pptVIP

本节内容 第八章 程序设计基础 第六节 窗体与基本控件 五、菜单设计器 五、菜单设计器 1.菜单的作用和分类 作用 提供人机对话的界面，让使用者选择应用系统的各种功能；同时还可以管理应用系统，控制各种功能模块的运行。 分类： 下拉式菜单 弹出式菜单 弹出式菜单是显示在窗体之上、独立于菜单栏的浮动式菜单。弹出式菜单可以在窗体的某个地方显示出来，对程序事件作出响应。 3.设计下拉式菜单步骤 单击 “工具/菜单编辑器”。 在标题栏中，输入第一个菜单标题的文本。 在名称栏中，键入将用在代码中引用该菜单控件的名字。 单击向左或向右箭头按钮，改变该控件的缩进级（即菜单层次），形成菜单的主、子菜单项 根据需要设置控件的其他属性。 选取编辑区的“下一个”按钮，就可以再建一个菜单控件。 如果所有的菜单控件都已创建，选取“确定”。 例1：医院信息系统界面的菜单设计，并要求单击某菜单项，能执行相应的功能。 4 .设计弹出式菜单 建立和启用弹出式菜单步骤： 首先用菜单编辑器建立菜单。此操作建立下拉菜单的操作基本相同，但必须把菜单名（即主菜单项）的“可见”属性设置为False（子菜单项不要设置为False）。 然后用PopupMenu方法弹出显示。 格式: 对象.PopupMemu 菜单名[, Flags[,X [, Y[,BoldCommand]]]] 说明： “对象”是窗体名，“菜单名”是在菜单编辑器中定义的主菜单项名，x、y是弹出式菜单在窗体上的显示位置。 Flag参数: Flags =0 X、Y为弹出式菜单左上角的坐标 Flags =4 X、Y为弹出式菜单顶边中间的坐标 Flags =8 X、Y为弹出式菜单右上角的坐标 Boldcommand参数: 指定在显示的弹出式菜单中想以粗体字体出现的菜单控件的名称。在弹出式菜单中只能有一个菜单控件被加粗。 按照下列菜单项属性建立弹出菜单: 标题 名称 内缩符号 可见性 字体格式化 PopFormat 无 False 斜体 PopItalic 1 True 粗体 PopBold 1 True 下划线 PopUnder 1 True 显示弹出式菜单： 编写窗体的MouseDown事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu PopFormat End If End Sub 本节内容 第七节 键盘和鼠标操作 一、键盘事件 使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作； KeyPress事件 KeyDown、KeyUp 事件 1. KeyPress事件 当用户按下并释放一个会产生ASCII码的键时被触发 定义KeyPress事件过程： 例1：利用一个文本框（Text1 ）输入0到9的阿拉伯数字。如果输入其他字符，则响铃（Beep），并以*号代替该字符。 设计：在新建立的窗体上建立了一个文本框（Text1 ），然后编写如下事件过程： Private Sub Text2_KeyPress (keyascii As Integer) Form1.Print Chr(keyascii); End Sub 2. KeyDown、KeyUp 事件 当控制焦点在某个对象上,同时用户按下键盘上的任一键,便引发该对象的KeyDown事件,释放按键便触发KeyUp 事件 KeyDown和KeyUP 事件过程的形式： 参数说明： KeyCode KeyCode是一个键代码。它告诉事件过程用户所操作的物理键。键盘上的每个键都有一个唯一的编码。 Shift Shift代表转换键的值，它是在KeyDown和KeyUP事件发生时响应SHIFT、CTRL和ALT键的状态的一个整数。 (P368 表8-19) 例9-1 通过按方向键，来控制图片的移动方向 Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer) Cls Select Case KeyCode Case 37 Picture1.Left = Picture1.Left - 100 Case 38 Picture1.Top = Picture1.Top - 100 Case 39