| 网管联盟 | 网管论坛 | 网管u家 | 网管博客 | 网管软件 | 网管求职 | 小游戏 | 网管搜索 | 网管原创 | 网管聚合 | 网管读摘 | 网管焦点 | 世界素材 | 会员投稿 | 会员中心 |
|
| Windows Linux Cisco 网络技术 数据库 黑客攻防 DotNet Java PHP 认证 新闻资讯 服务器 存储资讯 网络设备 网管学堂 技术专题 焦点 网吧频道 |
网管bitscn_com
网管u家u.bitscn@com
网管u家u.bitsCN.com
网管bitscn_com
中国网管联盟bitsCN.com
网管bitscn_com
网管u家u.bitscn@com
网管u家u.bitsCN.com
网管下载dl.bitscn.com
--取得窗口句柄 中国网管论坛bbs.bitsCN.com
popHandle:=tMsCreatePopupList(WindowHandle) 中国网管联盟bitsCN.com
--设置菜单内容 网管论坛bbs_bitsCN_com
Res:=tMsAddItem(popHandle, 1,0,"新建") 网管联盟bitsCN@com
Res:=tMsAddItem(popHandle, 1,1,"文件夹") 网管网www.bitscn.com
Res:=tMsAddItem(popHandle, 1,2,"文本文件") 网管下载dl.bitscn.com
Res:=tMsAddItem(popHandle, 2,0,"-")
Res:=tMsAddItem(popHandle, 3,0,"刷新")
中国网管联盟bitsCN.com
Res:=tMsAddItem(popHandle, 4,0,"-")
网管网www.bitscn.com
Res:=tMsAddItem(popHandle, 5,0,"退出") 网管bitscn_com
网管论坛bbs_bitsCN_com
网管u家u.bitscn@com
图1响应属性设置对话框 中国网管论坛bbs.bitsCN.com
网管下载dl.bitscn.com
--设置菜单显示位置
网管联盟bitsCN_com
if CursorX<728 then
网管网www_bitscn_com
Res1:=tMsDisplayControl(popHandle, CursorX, CursorY, 100,100, 1)
网管联盟bitsCN@com
else 网管网www.bitscn.com
Res1:=tMsDisplayControl(popHandle, CursorX-70, CursorY, 100,100, 1) 网管下载dl.bitscn.com
end if
--判断是否选择了“退出” 网管联盟bitsCN@com
if (Res1=5) then Quit()
网管网www_bitscn_com
提示：第一个条件语句是用来设置菜单显示位置，通常菜单的大小是随菜单中的文字自动改变的，所以在选择条件时要根据出现的菜单的大小来更改。.
网管u家u.bitscn@com
网管联盟bitsCN_com
图2程序流程图
网管u家u.bitscn@com
|
0
|
评论加载中…
