窗口菜单设计汇总
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
快捷键的设置包括功能键、控 制键和字母键的组合如： Ctrl+F1,Ctrl + N
快捷键在菜单编辑器的快捷键 列表中选择
窗口菜单设计
常用属性和事件
菜单控件是一个对象 , 与其他对象一样 , 它具有描述外观与行 为 的 属 性 。 在 设 计 或 运 行 时 可 以 设 置 Caption 属 性 、 Enabled 属性、 Visible 属性、 Checkd 属性以及其他属性。 这些属性在 "菜单编辑器" 中就能设置。
窗口菜单设计
窗口菜单设计
１．菜单编辑器的使用 ２．创建分级菜单 ３．增加热键和快捷键 ４．菜单的属性说明 ５．快捷菜单的设计 ６. 弹出式菜单
窗口菜单设计
菜单编辑器的使用
选工具栏
“菜单编辑器”，弹出 菜单编辑器窗口
(1) 标题框： 菜单栏上显示的菜单标题
(2)名称框： 菜单控件的名字即Name 属 性
菜单控件只包含一个事件 , 即 Click 事 件 , 当用鼠标或键盘选中该菜单控件 时 , 将触发 该事件。在菜单事件过程 中编写的代码与在控件任何其他事件过 程中编写的代码完全相同
创建菜单
窗口菜单设计
弹出式菜单
弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。不同的 子窗口 ; 或同一窗口的不同区域可以定义不同的弹出菜单 , 因此 弹出式菜单也被称为上下文菜单。在 -Windows 中 , 可 以通过 单击鼠标右键来激活上下文菜单。
项的上级菜单 : flags 指定弹出式菜单的位置和行为 , 可用下面表格中的整数
或常数 , 其中可单独使用 ,也可从位置常数和行为常数 各取一个相加 ; x 和 y 指定弹出式菜单显示的坐标位置 , 如缺省则为鼠标当 前位置 : boldcommand 指定文字需要加粗显示的菜单名称 , 注意是指 菜
End If End Sub
制作工具栏
ActiveX 控件
制作工具栏需要使用两个 ActiveX 控件 , 一个是 ImageList 控 件 , 它用于管理所有要用到 的按钮图片 , 运行时不可见。该控 件不独立使用 , 只是在后台向其他控件提供图像的资料中 心 , 类似于一个容器或集合 : 另一个是 ToolBar 控件 , 它用于创建 工具栏 , 其上放置按钮图 片 ( 由 ImageList 控件提供 ), 并响 应用户对按钮的点击。
创建菜单
窗口菜单设计
创建弹出式菜单
PopupMenu方法的语法为 :
[formname.]PopupMenu menuname[,flags[,x[,y[,boldcommand]]]]
formname 为窗体名 , 如缺省则为当前窗体 : menuname 指定要弹出的菜单控件名称 , 一般是包含多个菜单
制作工具栏
加载 ActiveX 控件
按照以下步骤加入 ActiveX 控件 :
1. 单击【工程】→【部件】菜单 , 打开 " 部件 " 对话框 , 如图 148 所示 :
2. 该对话框中将列出所有已经注册的可加入的对象、设计者和 ActiveX 控件 , 其中ToolBar 和 ImageList 控件包含在部件列 表中的 "MicrosdWindows Common Controls" 项中 , 即 mSCOIned-ocx 文件 :
(3)下一个 按钮 ： 在列表框中增加一个空的菜 单项
(4)左箭头按钮：向上升级
(5)右箭头按钮：向下降级
(6)向上、向下箭头： 向上(向下）移动位置
创建菜单
窗口菜单设计
创建分级菜单
使用箭头按钮可以很方便的 改变菜单项的位置和级别
创建菜单
窗口菜单设计
创建分隔条
在两个菜单项之间可以插入一 个水平的分隔条。这个分隔条 也是一个控件
实现方法是：在菜单编辑器中， 按照普通菜单项来添加，同时 要指定一个名字，但是标题必 须是分隔符“-”号
窗口菜单设计
增加热键
按下Alt + 一个指定的字符键 来快速打开一个菜单。在菜单 标题中添加 “&” 和指定的字 母即可为菜单控件增加热键
窗口菜单设计
增加快捷键
按下一个快捷键时立刻运行一 个菜单命令。即使该菜单命令 所在的菜单还没有打开，也能 访问。
单项的名称 , 而不是菜单项的标题文字。如缺省
窗口菜单设计
Flags参数使用的常量
创建菜单
窗口菜单设计
程序
Option Explicit
Private Sub Boldface_Click() If Boldface.Checked Then Boldface.Checked = 0 Else Boldface.Checked = 1 End If
创建菜单
窗口菜单设计
创建弹出式菜单Leabharlann Baidu
按照以下几个步骤可以创建弹出式菜单 : １．与创建普通菜单一样 , 在 “ 菜单编辑器 ” 中增加一个菜单 标题 , 以及该菜单标题的所有下级菜单项 2. 如果该菜单标题不希望显示在菜单栏里 , 可在设计时使该标题 的菜单控件为不可见( 使 "菜单编辑器" 里的 "可见" 复选框没有 被选上 ) 。 3. 为了显示指定的弹出式菜单 , 可使用 POPUPMenu 方法。 弹出式菜单要显示的菜单内容、显示的位置及其他显示效果都在 PopupMdu 方法中指定
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu Munfont, vbPopupMenuCenterAlign + vbPopupMenuLeftButton,
Form1.ScaleWidth / 2, Form1.ScaleHeight / 2, Boldface 'PopupMenu Munfont, 4 + 0, Form1.ScaleWidth / 2, Form1.ScaleHeight / 2,
boldface End If
End Sub
Private Sub Italic_Click() If Italic.Checked Then Italic.Checked = False Else Italic.Checked = True
快捷键在菜单编辑器的快捷键 列表中选择
窗口菜单设计
常用属性和事件
菜单控件是一个对象 , 与其他对象一样 , 它具有描述外观与行 为 的 属 性 。 在 设 计 或 运 行 时 可 以 设 置 Caption 属 性 、 Enabled 属性、 Visible 属性、 Checkd 属性以及其他属性。 这些属性在 "菜单编辑器" 中就能设置。
窗口菜单设计
窗口菜单设计
１．菜单编辑器的使用 ２．创建分级菜单 ３．增加热键和快捷键 ４．菜单的属性说明 ５．快捷菜单的设计 ６. 弹出式菜单
窗口菜单设计
菜单编辑器的使用
选工具栏
“菜单编辑器”，弹出 菜单编辑器窗口
(1) 标题框： 菜单栏上显示的菜单标题
(2)名称框： 菜单控件的名字即Name 属 性
菜单控件只包含一个事件 , 即 Click 事 件 , 当用鼠标或键盘选中该菜单控件 时 , 将触发 该事件。在菜单事件过程 中编写的代码与在控件任何其他事件过 程中编写的代码完全相同
创建菜单
窗口菜单设计
弹出式菜单
弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单。不同的 子窗口 ; 或同一窗口的不同区域可以定义不同的弹出菜单 , 因此 弹出式菜单也被称为上下文菜单。在 -Windows 中 , 可 以通过 单击鼠标右键来激活上下文菜单。
项的上级菜单 : flags 指定弹出式菜单的位置和行为 , 可用下面表格中的整数
或常数 , 其中可单独使用 ,也可从位置常数和行为常数 各取一个相加 ; x 和 y 指定弹出式菜单显示的坐标位置 , 如缺省则为鼠标当 前位置 : boldcommand 指定文字需要加粗显示的菜单名称 , 注意是指 菜
End If End Sub
制作工具栏
ActiveX 控件
制作工具栏需要使用两个 ActiveX 控件 , 一个是 ImageList 控 件 , 它用于管理所有要用到 的按钮图片 , 运行时不可见。该控 件不独立使用 , 只是在后台向其他控件提供图像的资料中 心 , 类似于一个容器或集合 : 另一个是 ToolBar 控件 , 它用于创建 工具栏 , 其上放置按钮图 片 ( 由 ImageList 控件提供 ), 并响 应用户对按钮的点击。
创建菜单
窗口菜单设计
创建弹出式菜单
PopupMenu方法的语法为 :
[formname.]PopupMenu menuname[,flags[,x[,y[,boldcommand]]]]
formname 为窗体名 , 如缺省则为当前窗体 : menuname 指定要弹出的菜单控件名称 , 一般是包含多个菜单
制作工具栏
加载 ActiveX 控件
按照以下步骤加入 ActiveX 控件 :
1. 单击【工程】→【部件】菜单 , 打开 " 部件 " 对话框 , 如图 148 所示 :
2. 该对话框中将列出所有已经注册的可加入的对象、设计者和 ActiveX 控件 , 其中ToolBar 和 ImageList 控件包含在部件列 表中的 "MicrosdWindows Common Controls" 项中 , 即 mSCOIned-ocx 文件 :
(3)下一个 按钮 ： 在列表框中增加一个空的菜 单项
(4)左箭头按钮：向上升级
(5)右箭头按钮：向下降级
(6)向上、向下箭头： 向上(向下）移动位置
创建菜单
窗口菜单设计
创建分级菜单
使用箭头按钮可以很方便的 改变菜单项的位置和级别
创建菜单
窗口菜单设计
创建分隔条
在两个菜单项之间可以插入一 个水平的分隔条。这个分隔条 也是一个控件
实现方法是：在菜单编辑器中， 按照普通菜单项来添加，同时 要指定一个名字，但是标题必 须是分隔符“-”号
窗口菜单设计
增加热键
按下Alt + 一个指定的字符键 来快速打开一个菜单。在菜单 标题中添加 “&” 和指定的字 母即可为菜单控件增加热键
窗口菜单设计
增加快捷键
按下一个快捷键时立刻运行一 个菜单命令。即使该菜单命令 所在的菜单还没有打开，也能 访问。
单项的名称 , 而不是菜单项的标题文字。如缺省
窗口菜单设计
Flags参数使用的常量
创建菜单
窗口菜单设计
程序
Option Explicit
Private Sub Boldface_Click() If Boldface.Checked Then Boldface.Checked = 0 Else Boldface.Checked = 1 End If
创建菜单
窗口菜单设计
创建弹出式菜单Leabharlann Baidu
按照以下几个步骤可以创建弹出式菜单 : １．与创建普通菜单一样 , 在 “ 菜单编辑器 ” 中增加一个菜单 标题 , 以及该菜单标题的所有下级菜单项 2. 如果该菜单标题不希望显示在菜单栏里 , 可在设计时使该标题 的菜单控件为不可见( 使 "菜单编辑器" 里的 "可见" 复选框没有 被选上 ) 。 3. 为了显示指定的弹出式菜单 , 可使用 POPUPMenu 方法。 弹出式菜单要显示的菜单内容、显示的位置及其他显示效果都在 PopupMdu 方法中指定
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu Munfont, vbPopupMenuCenterAlign + vbPopupMenuLeftButton,
Form1.ScaleWidth / 2, Form1.ScaleHeight / 2, Boldface 'PopupMenu Munfont, 4 + 0, Form1.ScaleWidth / 2, Form1.ScaleHeight / 2,
boldface End If
End Sub
Private Sub Italic_Click() If Italic.Checked Then Italic.Checked = False Else Italic.Checked = True