VB-第8章 用户界面设计.pptVIP

8.1 通用对话框 8.2 菜单设计 8.3 工具栏 8.4 状态栏 8.5 鼠标与键盘 8.1 通用对话框(CommonDialog) 1.“打开”文件对话框 简单的文本编辑程序,当按“打开”按钮，在“打开 ”对话框按“取消”按钮，显示有关信息。 2. “另存为”对话框 没有提供真正的存储文件操作，仍需要编程完成储存操作。 属性 DefaultExt：缺省扩展名 3. “颜色”对话框 属性 Color：返回或设置选定的颜色。 4. “字体”对话框 8.2 菜单的设计 一、菜单编辑器的使用 常用属性： 1. 标题(Caption) 热键：前面加 2. 名称(Name)文本框 分隔符也应有名称。 3. 快捷键(Shortcut) 菜单名没有快捷键 4. 复选(Checked)检查框 TRUE 有? 5. 有效(Enabled)检查框 6. 可见(Visible)检查框 二、 菜单项增减 在程序运行时，菜单随时增减，如“文件”菜单能保留最近打开的文件数。这同控件数组一样，使用菜单数组。 步骤： 1.在菜单设计时，加入一个菜单项，其Index为0（菜单数组）, Visual为False。 2.在程序运行时，通过Load方法向菜单数组增加新的菜单项。 三、 弹出菜单(快捷菜单) 显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。设计与普通菜单，仅该菜单名不可显示；要显示时使用PopupMenu方法弹出菜单。 形式： [对象.]PopupMenu 菜单名, 标志, x, y 标志，表示弹出的位置和触发的键 位置 性能 0：X 位置确定弹出菜单的左边界 0只能用鼠标左键触发弹出菜单； 4：弹出菜单以X为中心 2：能用鼠标左、右键键触发弹出菜单； 8： X 位置确定弹出菜单的右边界 位置与性能是加的关系。 8.5 鼠标与键盘 键盘事件 ????使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作。 （1） KeyPress事件 在窗体上画一个控件，比如文本框，并双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可定义KeyPress事件过程。一般格式如下： Private Sub Text1 _ KeyPress（KeyAscii As Integer） ????…… ????End Sub ????KeyPress事件带有一个参数，KeyAscii As Integer，用于单个控件。KeyPress事件用来识别按键的ASCII码。参数KeyAscii是一个预定义的变量，执行KeyPress事件过程时，KeyAscii是所按键的ASCII码。 【例】文本框1只接收大写字符，文本框2只能接收“0”～“9”的数字字符。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(a) And KeyAscii = Asc(z) Then KeyAscii = KeyAscii + Asc(A) - Asc(a) End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End If End Sub 2．KeyDown和KeyUp事件 【例】编写一个程序，当按下Alt+F5时终止程序的运行。 先把窗体的KeyPreview设置为True，再编写如下的程序： Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 按下Alt键时，Shift的值为4 If (KeyCode = vbKeyF5) And (Shift = 4) Then End End If End Sub 鼠标事件 鼠标事件的一般格式如下： Private Sub 对象_鼠标事件（Button As Integer, Shift As Integer, X As Single, Y AsSingle） 说明如下：Button：表示哪个鼠标键被按下或释放。用0，1，2三位表示鼠标的左、右、中键，每位用0, 1表示被按下或释放，三位的二进制数转换成十进制数就Button的值。 Shift：表