【VFB】窗口菜单和右键弹出菜单（VFB教程4-1）

勇芳软件

此处为VisualFreeBasic编程教程(从零开始学或VB进阶)的子章节部分，全部目录点链接。

点击菜单【工具】》【菜单编辑器】，即可为窗口创造菜单

简单明了，无需我多说

如果不想要菜单了，可以在窗口上，没控件的地方，右点，这样删除。

菜单事件

点此复制事件代码

粘贴到窗口的 WM_command 事件里，即可。

弹出菜单

这需要我们用代码编写，先声明全局变量

1. Dim Shared yMenu1 As HMENU '菜单[/font][/p]Dim Shared yMenu2 As HMENU '菜单

复制代码

创建菜单

1.   yMenu1 = CreatePopupMenu()  创建菜单[/font][/p]  yMenu2 = CreatePopupMenu()
   
2.   -----------------------------------------------------------
   
3.   AddMenu yMenu1, 10001,  "复制选择内容","COPY" '带图标
   
4.            句柄    ID       显示内容      图标
   
5.   AppendMenu yMenu1, MF_SEPARATOR, 0, ""      '分割线
   
6.   AppendMenu yMenu1, MF_STRING, 10002,"选择当前内存区"   '不需要图标
   
7.   AddMenu yMenu1, 10004,  "选择当前内存区",""    '不需要图标
   
8.   AddMenu yMenu1, 10005,  "选择当前模块",""
   
9.   AddMenu yMenu1,  10022, "保存选择到文件",""
   
10.   创建子菜单-------------
    
11.   AppendMenu yMenu1, MF_POPUP,Cast(Integer , yMenu2), "子菜单"   
    
12.   添加子菜单条目         
    
13.   AppendMenu yMenu2, MF_STRING, 10009,"我是子菜单"

复制代码

弹出菜单

在需要的地方，如控件右键等，你需要的地方

1.   Dim  P As  Point[/font][/p]  GetCursorPos @p    '获取鼠标位置，在鼠标当前位置弹出
   
2.   TrackPopupMenu yMenu1, 0, p.x, p.y, 0, hWndForm, Null '在某位置弹出菜单

复制代码

事件

这要看 hWndForm 是谁的窗口句柄，就在它的窗口 WM_command 事件里

1. select case wID[/font][/p]    case 10001  '就是上面添加菜单条目的ID

复制代码

其它相关函数

1. FF_Menu_GetState  检索指定的菜单项的状态。[/font][/p]FF_Menu_SetState  设置指定的菜单项的状态。

复制代码

xiawan

正需要，支持楼主大人了！