说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请求菜单帮助(只限VB)

编辑:说三道四文库 发布时间:2017-10-20 12:31
HTML文档下载 WORD文档下载 PDF文档下载
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
谁能告诉我怎样在一个没有建立菜单的窗体上通过代码建立(API可以吗?)
没试过,没有多少人“动态建立”菜单吧,一般只是设置VISIBLE和ENABLE而已,你的目的是什么?
'以下是一个弹出菜单类的源代码。
'=================================================
'以下放到一个类模块 .cls 文件中,类名为  cPopupMenu

Option Explicit
'
Private Type POINT
    x As Long
    y As Long
End Type
'
Private Const MF_ENABLED = &H0&
Private Const MF_SEPARATOR = &H800&
Private Const MF_STRING = &H0&
Private Const TPM_RIGHTBUTTON = &H2&
Private Const TPM_LEFTALIGN = &H0&
Private Const TPM_NONOTIFY = &H80&
Private Const TPM_RETURNCMD = &H100&
Private Declare Function CreatePopupMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal sCaption As String) As Long
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, nIgnored As Long) As Long
Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Private mSelMenuString As String
Public Property Get SelMenuString() As String
    SelMenuString = mSelMenuString
End Property
'
Public Function Popup(ParamArray param()) As Long
    Dim iMenu As Long
    Dim hMenu As Long
    Dim nMenus As Long
    Dim p As POINT

' get the current cursor pos in screen coordinates
    GetCursorPos p

' create an empty popup menu
    hMenu = CreatePopupMenu()

' determine # of strings in paramarray
    nMenus = 1 + UBound(param)

' put each string in the menu
    For iMenu = 1 To nMenus
' the AppendMenu function has been superseeded by the InsertMenuItem
' function, but it is a bit easier to use.
        If Trim$(CStr(param(iMenu - 1))) = "-" Then
' if the parameter is a single dash, a separator is drawn
            AppendMenu hMenu, MF_SEPARATOR, iMenu, ""
        Else
            AppendMenu hMenu, MF_STRING + MF_ENABLED, iMenu, CStr(param(iMenu - 1))
        End If
    Next iMenu

' show the menu at the current cursor location;
' the flags make the menu aligned to the right (!); enable the right button to select
' an item; prohibit the menu from sending messages and make it return the index of
' the selected item.
' the TrackPopupMenu function returns when the user selected a menu item or cancelled
' the window handle used here may be any window handle from your application
' the return value is the (1-based) index of the menu item or 0 in case of cancelling
    iMenu = TrackPopupMenu(hMenu, TPM_RIGHTBUTTON + TPM_LEFTALIGN + TPM_NONOTIFY + TPM_RETURNCMD, p.x, p.y, 0, GetForegroundWindow(), 0)
    Dim result As Long
    Dim buffer As String
    Const MF_BYPOSITION = &H400&

    buffer = Space(255)
    
    result = GetMenuString(hMenu, (iMenu - 1), buffer, _
                   Len(buffer), MF_BYPOSITION)
    'Debug.Print buffer
    mSelMenuString = Trim(buffer)
' release and destroy the menu (for sanity)
    DestroyMenu hMenu

' return the selected menu item's index
    Popup = iMenu

End Function

'结束


'============================================================
'以下放到一个窗体文件中
Option Explicit


'以下是实例,在Form上添加一个ListBox控件



Private Sub Form_Load()
    List1.AddItem "Right-Click here for a menu"
End Sub

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim oMenu As cPopupMenu
    Dim lMenuChosen As Long
'
    If Button = vbRightButton Then
        Set oMenu = New cPopupMenu
'
' Pass in the desired menu, use '-' for a separator
'
        lMenuChosen = oMenu.Popup("Menu 1", "Menu 2", "Menu 3", _
                "-", "Menu 4")
'
        Debug.Print lMenuChosen
        Me.Caption = oMenu.SelMenuString
        
    End If

'
End Sub

SA:2014移动运营商、终端和应用十大关键趋势 使用modern.IE来设计更现代化的网页 全国顶级域名根服务器21日下午疑遭黑客攻击 影响巨大 苹果下一代iPhone的十大预测 《近匠》第07期,专访《恶魔塔防》团队,看俄国复杂深奥的游戏文化 代码托管网站GitHub的总裁和CEO进行职位互换 使用Chromebook的五个指南 云中游终极声明:热酷侵权,有种正面回答少打太极 背后故事:英特尔Edison中国研发 内部评审中曾三次被拒 全栈工程师会是未来的发展趋势吗? 大数据整理:囊括分片、存储方法、扩展等多个方面 物联网 ,下一个云计算市场 一位数据挖掘工程师眼中的“大数据与企业的数据化运营” 揭开“iOS in the Car”的神秘面纱 与Apple对峙:法律途径,并非是我想要 Halfbrick新作市场表现低迷:前作辉煌难续 专访豌豆荚:融资,会给技术团队带来哪些影响? 前端开发必备 40款优秀CSS代码编写工具推荐 新环境下的新体验是互联网硬件火热的根本原因 信息安全救星 ——变形代码产品ShapeShifter AWS启动大规模降价,引领行业降价潮流 Windows 8.1 Update 1最新版的截图再遭曝光 2013年软件领域因缺陷导致的五大事件 专访AMD技术高管 详解Kaveri技术性能及新开发特性 网络的东西南北:从SDN到网络虚拟化 Bug让Chrome浏览器成了窃听器 联想23亿美元收购IBM X86服务器硬件及服务 Mozilla联手富士康推出Firefox OS平板 基于Web提供服务 GitHub中国游记最终回——开源与车库的碰撞 学以致用,光棍极客通过大数据搞定女朋友 1月24日:Mac步入了而立之年,生日快乐! EVB 如何修改 Grid的字体? 怎样来查找在线游戏、即时聊天软件所使用的端口号? 搞过数据库的进来瞧瞧 表中有自增类型字段id,用TABLE 控件与之相连,记录增加时,ID怎么 在asp中我想等程序执行完了,直接把窗口关闭,不要出现提示 session怎么不见了?解决了马上送分 有关CORBA产品:VisiBroker的问题 怎样加密字符串? {200分}请问关于在子窗口中选择多值以后传递给父窗口中一个多值域的问题! 一个关于oracle中加锁的问题 请问这是什么错误? SQL 连接小问题 急求C++Builder 6的 ADO 补丁!(warmwk) 高分求救:在QT下,我已经实现了对一个XML的解析,但是对DTD的解析如何实现,谁给我讲讲,或者给我源代码更好。 关于ImportFile()执行后数据窗口update()的问题 有人参加过软件测试工程师的认证吗? 寄存器分段。。。 请问哪里有数据库设计规范方面的资料 关于使用inet控件对ftp操作的问题 一个设计方面的问题,各位高手请进!! 急急!清VB.net高手帮助.如何实现利用扬声器发生程序? 对象参数问题 如何得到文件路径 关于窗体的管理 JAVA代码操作数据库备份MYSQL? 我要将TEST01下所有的表授权有没有更简便的方法??? 数据库面试题,大家看看(给分无商量) 存储过程问题拉!帮忙看看吧! 关于ExportMap输出图片的问题? Image控件的问题? sql server 连接 请问无组建上传的详细代码解释。 怪问题! 对文件操作总报I/O error 32,请教???? 网上邻居的问题。 有一个比较基础的问题想同大家共同探讨。 急需各位高手帮忙 数据库冷备份脚本 在网页里如何检测IP地址? 调用其它程序问题! 谁能给我一个进销存的库结构啊 ▲▲▲ 有个"矩阵加括号"的通用程序,如何把它改得更好!!! "link"是什么意思? VB控件的问题 到这里放松一下吧:) 水晶报表报登录失败有什么原因? windows advanced server 2000 的雙網卡問題? SQL SERVER 在ASP 中的分页技术 socket数据传输中网络断开,如何处理? <<黑客II>>人物分析搞怪版 简单问题请教!!急!! "我明白了"该怎么写?是作文.老师的要求是:在日常生活中,爸爸妈妈\老师\同学在很多方面教育帮助你,使你明白了很多道理,挑选印象最深的一件事写下来,注意是臆见"事"! ANSI B36. 小学语文教师进行课题研究要作些什么? 普通的泰山石价格怎么算的?高60公分 ? 1扣币,等于多少点卷啊. 观其友,知其人的意思说具体点 有时候不说不代表没有感同身受,有时候很多事必须放心里,有时候不认错,不代表内心没有明白自己错了,有时候我只是不知道该如果去表达,有时候真的只是需要更多的时间去证明,有时候不到 三棱柱ABC-A1B1C1 中,侧面AA1B1B垂直 底面 ABC,直线 A1C与底面成60 角,AB=BC=AC=2 ,AA1=A1B ,则该棱柱的体积为 关于小学语文知识树的课题 帮我算一下.为群众看病难的问题,一种要连续两次降价,每盒的价格由原来的60元降至48.6元,则平均每次降价的百分率为 喜欢他的 加619629307 观其外,知其内,观其友,知其人 意思 知足者常乐,如何辩论 和你一样 歌词电视剧《中国红十字基金会公益》主题曲 林宥嘉的歌伯乐mv讲的是什么故事啊? “知足者常乐”与“不知足者常乐”的辩论赛大家给出一些“知足者常乐”与“不知足者常乐”的辩论的论证 fuse英文是什么意思 有一条侧棱与底面两边垂直的棱柱是直棱柱就是不明白 帮帮忙啊 为什么不对啊 空调添加制冷剂的价格是怎么算的? 温水青蛙在爱情里是什么意思不要温水青蛙是什么意思呢 直三棱柱的侧棱垂直于底面吗 知足者常乐与不知足者常乐的辩词.谁能告诉我要怎么写啊.要求很简单,先是双方提出自己的意见,然后再像对方提个问题,然后做个总结就好.知道的麻烦告诉我把, 归去来兮辞序中脱然有怀, 有一条侧棱与底面两边垂直的棱柱是直棱柱.这句话为什么是错的? 不知足者常乐的名人故事 求拿破仑传读后感重在"感",但也要对书中内容有所提及.(大概500字)过几天要作演讲... 为什么鳄鱼不是哺乳动物?鳄鱼的生活史也没有哺乳行为?鳄鱼的性别和孵蛋的温度有什么关系 知足者常乐的故事!要明人真事,不要小孩似的故事! 《拿破仑传》读后感 这个歪歪值多少钱!急 在原价15.6元的基础上增加10%怎么算? 拿破仑传(上)读后感700字只是(上)册 25345678这个歪歪号能值多少钱?有知道的速回. 现有本金100,每天在前一天基础上面盈利10%,15天后有多少钱.需要详细计算方法~计算题现有本金100,每天在前一天基础上面盈利10%,15天后有多少钱.需要详细计算方法~ 与“今天我与外籍教师用英语对话,他讲的我根本听不懂.”意思相近的句子 某个数无意义是什么意思 在某个价格的基础上下降15%-20%怎么算? 如果英语话题讨论都听不懂,有没有什么万能的话? 学无前后,达者为师的意思,以及意义? 议论文,我看知足者常乐要求600字左右的议论文一篇 ANSI在网络中什么意思 我的2个球机都是12位的 都是8位加4位第一个8位的 1 2 8 4位的是 1第二个8位的 3 8 4位的是 1能分辨出地址协议吗?有终端电阻 以知足者常乐与不知足者常乐为题写一篇八百字的作文 这段ANSI是什么意思呀?{ LG的含义是什么啊, 作文“知足者常乐”与“不满足是向上的车轮” 醉生梦死什么意思? 英语翻译字典上又是怎么说的ANSI B1.20.1-NPT这是美国标准翻译成中文是什么意思,还有尺寸的大小是多少 求一篇作文.除小说外体裁不限.字数800~1000.没有错别字.语句连贯,突出中心思想. 有谁能帮我解释出“纸醉金迷”的意义?无 想做一个成功的人,满可以向自己的好朋友敞开心扉,但是,记住,千万不要把灵魂暴露给任何一个人. 我明白了尊重 作文抒情一点,要有议论 500字以上急!!! 求由参数表达式x=sinu^2由0到t 的定积分,y=cosu^2du由1到t的定积分 所确定的函数y对x的导数题中包含积分符号没表示 作文 心海里那多浪花 800字 哦,我明白了怎么写 经过一棱柱的每个顶点的边有(?)条选择:A :3条 B :4条 C :5条 D :6条 会的大哥大姐请帮下忙!小弟在这儿谢过了! 2011压球机价格要今年最新的压球机价格,哪里的更优惠,质量更好点! 英语不好常遭嘲笑 感同身受不?从小就不是读书的料!老爸老妈总恨铁不成钢,苦口婆心的总和我讲大道理,无非就是要我长大后能够不被人嘲笑,多学点知识对自己是有利的,但是我就是一看到书 ANSI X.12方式是什么意思 不知其人观其友是什么意思? 小学生作业字写对被扣分 没教过的字得浙江一夫妻长期异地分居经济AA制 生美国海军世界最大驱逐舰下水【高清组图阿根廷法院支持政府打破媒体垄断迪拜宣布禁放孔明灯巴黎中国电影节开幕首条横跨欧亚海底隧道启用 伦敦坐火车范长龙会见马来西亚国防部长强风暴致荷兰人损失近亿欧元巴西拟立法强制跨国网络巨头建立本土数强风暴袭击荷兰致损近亿欧元“丝绸之路经济带——区域合作的愿景”《中国好声音》电影版海报曝光 吴莫愁南京前三季度交通通信人均支出2886国信办主任:“六个目标”让网络空间清国家林业局:严格限制占用生态脆弱地区江西一教师为讨960元代课费跑15年南京一动物园招聘引热议 饲养员要求研六旬老人数年独自将毛坯路修成石子路 银行综合理财能力排名发布 光大银行连南京空气质量污染持续 昨日成10月最A股创股灾以来最大单日跌幅,向谁示威这是股票的“苦逼时代”,却是股权的“下周10只新股申购私人指南!芮成钢入狱都无人搭救,切勿高估自己人你什么都没有,凭什么要求岁月静好?警惕!下周操作关键看2个点位,这些股我不想和你啪啪啪选女保镖标准超过了选“环球小姐”重大利好!这十八股潜力无穷!即将拉升《金鼎盛士》为什么每次都不想带止损,乱市出龙头!大盘不会跌破3400点,新版QQ,用红包向支付宝致敬?如何高效精简你的生活,增强学习能力?上半身是理想,下半身是现实,谁说理想南京发布今夏首个高温预警 未来24小南海舰队航空兵在南海某海域举行实弹射2015中国卫生计生统计公报:个人卫成功的人:一般不是才华横溢的人, 而绝版照片,再也没有第二张了!越看越震足以令你倾家荡产的三句话!还记得吗?那些骗过你的财富故事
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘