API动态菜单带分格条及响应事件源码

程_集旧窗口过程 ＝ GetWindowLong (取窗口句柄 (), -4)
.如果真 (取反 (数据库连接1.连接Access (取运行目录 () ＋ “\data.mdb”, “”)))
信息框 (“连接数据库失败”, 0, )
返回 ()
.如果真结束
API_窗口的句柄 (取窗口句柄 (), API_创建空白菜单 ())
子程序_菜单生成 ()

' 判断是否具有三级菜单并添加
局部_SQL语句 ＝ “select * from Menu where M_Mgr=” ＋ 到文本 (局_ID1) ＋ “ order by M_ID”
.如果真 (记录集3.打开 (局部_SQL语句, #SQL语句))
.计次循环首 (记录集3.记录数量, )
记录集3.读整数 (“M_ID”, 局_ID2)
记录集3.读文本 (“M_Name”, 局_名称2)
局部_三级菜单句柄 ＝ API_创建空白弹出式菜单 ()
API_添加菜单项目 (局部_二级菜单句柄, 16, 局部_三级菜单句柄, 局_名称1)
API_添加菜单项目 (局部_三级菜单句柄, 0, 局_ID2, 局_名称2)
' API_添加菜单项目 (局部_二级菜单句柄, 2048, 0, “”) ' MF_SEPARATOR=2048
记录集3.到下一条 ()
.计次循环尾 ()
.如果真结束
API_添加菜单项目 (局部_二级菜单句柄, 0, 局_ID1, 局_名称1)