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

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

简单明了，无需我多说

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

菜单事件

点此复制事件代码

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

弹出菜单

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

Dim Shared yMenu1 As HMENU '菜单
Dim Shared yMenu2 As HMENU '菜单

创建菜单

  yMenu1 = CreatePopupMenu()  创建菜单
  yMenu2 = CreatePopupMenu()
  -----------------------------------------------------------
  AddMenu yMenu1, 10001,  "复制选择内容","COPY" '带图标
           句柄    ID       显示内容      图标
  AppendMenu yMenu1, MF_SEPARATOR, 0, ""      '分割线
  AppendMenu yMenu1, MF_STRING, 10002,"选择当前内存区"   '不需要图标
  AddMenu yMenu1, 10004,  "选择当前内存区",""    '不需要图标
  AddMenu yMenu1, 10005,  "选择当前模块",""
  AddMenu yMenu1,  10022, "保存选择到文件",""
  创建子菜单-------------
  AppendMenu yMenu1, MF_POPUP,Cast(Integer , yMenu2), "子菜单"   
  添加子菜单条目          
  AppendMenu yMenu2, MF_STRING, 10009,"我是子菜单"

弹出菜单

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

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

事件

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

select case wID
    case 10001  '就是上面添加菜单条目的ID

其它相关函数

FF_Menu_GetState  检索指定的菜单项的状态。
FF_Menu_SetState  设置指定的菜单项的状态。