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

请求菜单帮助(只限VB)

编辑:说三道四文库 发布时间:2017-08-24 11:11
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

实时数据追踪?Salutron发布LifeTrak API Infoworld Bossie Awards:最好的开源App锦集 除了乔布斯的鼠标 值得装入时间胶囊的十大科技产品 2013中国互联网安全大会:云环境带来的安全隐患和机遇 2013中国互联网安全大会:软件安全新挑战 专访Line大中华区总裁:即使卖萌,也能深入人心 iOS开发者必备:四款后端服务工具 市场研究公司:iPhone5C/5S成本分别是173、199美元 对软件开发有利的5个敏捷编程方法 移动端性能大比拼:CSS Sprites vs. Data URI 三大峰会七大论坛,2013移动开发者大会将于11月在京举行 黑莓47亿美元收购的背后 微软或成最大受益者 搜索大战升级:360搜狗相互起诉对方不正当竞争 诺基亚将于10月22日发布6款新产品 平板Lumia 2520等 从17美元到50美元 Facebook股价上涨背后的两大关键 12个理由:为什么我会认为Android比iOS 7好! AMD推 "Mantle" API 欲释放GPU全部潜能 Salesforce架构:日事务过13亿,2.4万TPS的数据库峰值 久违的iOS,新鲜的SDK,豌豆荚发布云相册 喜大普奔:谷歌15岁了,生日快乐! 传福特CEO Alan Mulally目前最有希望执掌微软 微软计划将WP8和Win8应用商店合并?太好了! 响应开发者要求:Kinect for Windows SDK 1.8发布 OpenStack基金会BD总监:希望有更多的中国公司加入 CTO如何避免决策失控(三):从CEO角度看CTO的应对能力 IT界需求最旺的16项技能 PMC发布8系列RAID卡 找准国内互联网企业需求 早Google一步,eBay数据中心率先搭载了火星上使用的技术 目标专利2000,技术研发人员占55%,斐讯的厚积薄发 SwiftStack CEO:分布式存储的未来 触控陈昊芝:“好声音”标王对移动游戏未来的预测 初学jsp的女生jsp+javabean问题求助!! apche+php下怎么禁止用户直接输入地址浏览图片 请大家指点小弟一个很菜的问题!(小弟感激) 关于C程序移植问题! 请问如何获取端口号 求救,IE6.0上用Accept属性设置文件上传控件的上传文件类型无效? 请告知从哪里可以下载到《vc从入门到精通》电子版 高分请教C/S编程的问题 梁锦松辞职道歉后接受挽留,港府公开董建华责梁信件【转载】 怎样用企业管理器创建一个新的数据库! 关于单引号的非常菜的问题(在线等)谢谢! 请帮我看看这个PL/SQL过程,哪里错了,谢谢(老出错误信息) 怎样使用mscomm.cox控件,怎样读写串口数据,请用例子说明? 求助《《关于图标的问题》》 PB连接不上SYBASE!急!在线! 在任何时间任何地点,都不要找任何理由不学英语 初学者问题50分:关于操作符* 关于import的问题 关于asa的问题 一个小问题,请求帮助!!!!!!!! 求救!请教关于__cdecl的问题 近日开发一足球博彩性质网站,请各位推荐几个漂亮的前台页面参考参考,非常感谢! 有关WebService的问题,请高手指教!!!Up有分 我装上apache_2.0.43后,输入http://localhost:端口/不能运行(有人说是端口冲突,我改成别的端口还是不行),还有什么地方容易出错,请高手明 关于File的一个问题:如何基于已经存在的文件生成File对象? 郁闷呀!这两段程序有什么不一样的?送分 win98上两台机同时“装Internet连接工享”,却出现不允许,自动关掉了共享. 救命啊!!!!!!!!!!!!!!!!!!!!!!!!!!!11111 哪里能下在受信任的根证书? 高分相赠;控件问题,想实现既可以选择又可以输入的控件;如何做谢谢; 获取当前系统日期的函数是什么? 怎样写权限设置,通过用户权限控制菜单??? 救命!!!!!!!!!!!!!!!11 谁做过OA的安装盘?有没有办法用第三方工具配置OA系统? 一个简单的错误,请各位大哥帮助! 进入WIN98蓝屏,请高手赐教,谢谢 紧急求助,如何编写文本使得程序能读取网络上另一台机上的表 关于session的问题 如何用VC对麦克风编程哪? 为什么我的win2000的web服务器老是莫名其妙的停掉呢? 各位老大!能不能用DEPHI写一个程序创建NOTES表单???? 怎样把程序做成曲线图的样子? COMBOBOX查找问题? 很菜的,关于窗体的问题 怎么给jbuiler添加oracle驱动程序!!!!! 谁有手写签名和痕迹保存留的例子???能给我一个吗???一定重谢!! 哪有for win的gd库下载?谢谢 我得代码有错误吗!!在线紧急等待 如何用Java访问微软的DDE Server? 在windows xp中怎么建立虚拟服务器呀? 解决问题,马上结贴 如图,在直角坐标系中,以点A(3,0)为圆心,以5为半径的圆与x轴相交于点B、C,与y轴相交于点D、E.1.若抛物线 y=1/4x²+bx+c经过C、D两点,求此抛物线的解析式并判断点B是否在此抛物线上.?2.过点E 马腾是谁? 夏天如何防治蜱虫的入侵? 有两包糖,甲包30颗,从乙包中拿出五分之一,放入甲包,则乙比甲多3,乙包原来有糖多少? 如图所示正方体ABCD-A'B'C'D'中M是AB的中点则sin 夏季到来了,怎么防治蜱虫入侵? 有两包糖,甲包中有30颗,如果从乙包中拿出1/5放入甲包,两包糖颗数就一样多,乙包原来有多少颗糖?列方程哈0 0 在正方体ABCD-A1B1C1D1中,M是AB的中点,则对角线DB1与CM所成角的余弦值为答案是(根号15)/15 罗浮山百草油用在夏季防治蜱虫入侵怎样? 是马腾的骑兵好还是曹操的骑兵好? 跳蚤一般居住在那里,是不是群体生活 怎样培养读书的习惯,读怎样的书呢? 小明和小华糖块数量的比是4:1,如果小明给小华13块,则两人糖块数量的比是7:5.两人一共有多少块糖?用算式,最好解释一下为什么要这么做. 冬天的跳蚤为什么不咬人我家去年就有了跳蚤,然后去买了跳蚤粉,我被咬的全身都是,就一个字“惨”不过到了冬天就没觉得有跳蚤了,也没被咬过,你看这两天气温回升了,春天了,今天早上起来 我叫何裕,要题目独一无二的. 英语翻译1,因为在乎,所以害怕失去,却又舍不得放手.2,你是我这辈子最最爱,最最不想失去的.3,这感觉已经不对,我最后才了解.一页页不忍翻阅的情节,4,我的爱,除了你,再也不要什么承诺了.承诺 怎么把名字写成诗 紫藤萝瀑布课文中的“花朵儿一串挨着一串,一朵接着一朵”是什么修辞? 英语翻译From 1 June to 31 August 2010,you'll earn Double Asia Miles on every flight you take in First or Business Class on Cathay Pacific or Dragonair between Korea and Australia or Europe.Experience exceptional comfort and service throughout you 一项工程,甲队独做30天完成,乙队独做20天完成.如果两队合作,多少天完成这项工程的四分之三 美丽的花朵好像对着人们微笑 是什么修辞方法 南侠翻译成英文怎么拼 圆周率小数点后一百位都是多少? 如何让自己养成读书读好书的习惯 一段搞笑的英语,麻烦某位大下侠帮翻译下~!很急啊 .翻译的详细些.在此谢谢了~!you are calling on the owner of a chain of launderette to try to interest him/her in installing some of your computers in the 'family'area of thei 为什么其他动物可以自己生孩子 而人类得别人帮忙 拷打羊皮定案 译文 上午王师傅工作3小时,李师傅工作2小时,他们共加工零件108个,下午王师傅工作3小时,李师傅工作5小时,他们共加工162个.他们的工作效率不变,求王师傅和李师傅平均每小时加工多少个零件?求教 动物之间公母交配,会产子,人之间男女是不是叫交配呢?有人说人是性生活才生孩子,也有人说是依靠感情培养的,还有人有人说是性交环孕,!到底是靠哪种方式呢? 夜光水晶琥珀怎么制作? 王师傅加工一批零件,上午工作了3.5小时,完成总数的一半,下午每小时加工30个,工作2.5小时就完成了任务,这一天平均每小时加工多少个? 一生中交配最多的动物是什么 文言文 拷打羊皮定案 人有负盐负薪者,同释重担,息树阴下.少时,将行,二人争一羊皮,各言藉背之物.久未果,遂讼于官.时雍州刺史李慧,谓其郡下,曰:“此羊皮可拷知主乎?”群下咸无答者.惠遣 paper napkin复数.急 为什么人类的交配和分娩甚至抚养都需要学习和帮助,而动物界的动物却自然而然的? 英语翻译翻译句子:时雍州刺史李惠,谓其群下,曰:“拷此羊皮可知主乎?” 微分环节为什么能够起到加快系统调节速度的作用 正方体ABCD-A1B1C1D1中,点M是AB的中点,求DB1与CM所成角的余弦值 千年琥珀,万年密蜡.的密蜡是什么? 一个长方体的正面和上面的面积和为90平方厘米,它的长宽高是三个连续的自然数,这个长方体的表面积是多少 正方体ABCD-A1B1C1D1中,AB的中点为M,DD1的中点为N,求异面直线CM与BN的余弦值 小鸡怎样吃虫子 一个图形有两个正方体组成,边长分别为10cm和6cm,求阴影部分的面积 模拟动物人生 生宝宝的黄条满了 下一步该怎么办 小鸡为什么喜欢吃虫子 大正方体边长为a,小正方体边长为2,求阴影部分的面积 模拟动物人生2怎么生宝宝 琥珀荧光问题.是不是用能照钱真伪的紫光灯就可以照琥珀的荧光? 有两包糖,如果从甲包中拿出5分之1放入乙包,则乙包比甲包多3颗,如果从乙包中拿出3分之1放入甲包,则乙包则乙包比甲包少7颗,甲乙两包原有糖多少颗? (),秋水共长天一色速度! 一项工程,甲队单独做30天完成,乙对单独做20天完成,甲乙两队合作多少天完成这项工的四分之二急 公鸡( )在水中游泳 ,是可能还是不可能还是一定 微分过程怎么证明函数可微啊.多元函数。。 I think Chian is a very beautiful country 这一句话的否定句如何变 小张在水中逆流有游泳,于A处所带水壶丢失,8分钟后发觉水壶丢失,此时壶正顺流而下,立即追赶,在A处下游320米处追回, 求微分 最好带分析哈 如何在夏季防治蜱虫入侵 船在水中逆流和顺流速度得数学题 e^(1-3x)*d(1-3x)=-3e^(1-3x)*dx 夏季防治蜱虫入侵有些什么好的方法? 埃及宣布14日起解除紧急状态和宵禁印度首都新德里一成衣厂发生大火 至少印度发生火车撞人事故至少8人死公安部破获特大制售假药案 查获假药1阿根廷:监狱财政吃紧 多人“捡漏”越澳大利亚中国学者举行优秀论文报告会巴基斯坦全国高度警戒防巴塔袭击海军实兵演习执行导演:远海训练只会加中国以主宾国身份亮相伊斯坦布尔国际书甘肃甘南部分医用设备闲置曝光 卫生厅老挝失事客机黑匣子全部打捞出水美军无人机剿灭巴基斯坦塔利班头目 塔德国与巴西共同向联合国提交有关反监控美军无人机剿灭巴基斯坦塔利班头目 塔巴塔头目之死重挫和平进程印度南部安得拉邦发生两列火车相撞事故内蒙古乌兰察布:停建豪华办公楼 接受浙江组团赴沪招贤 舟山重磅“潜水挖才普陀山南海观音文化节开幕 传统佛教活“微力量”成中国农村草根进入电子商务浙江普陀山千手公益以佛之名传递慈善“三好婆婆”碧水湾社区:废旧物品兑积分再换生活用想念故乡的树儿劝母清理自建灶台钻石珠宝直销惠抢购倒计时追看《真探》,麦康纳只演一季自信比什么都重要爱吃面食的俺进社区街道宣传创卫世界三大歌舞秀之一女职工健身操(舞)大赛举行年龄最大的79岁 有3人不满5岁是时候会打算结婚矿大自主招生新变化 三好学生推荐取消“青蛙学叫”游戏鼓楼地税公安联合执法 数家经营场所被送伞女同学美景就在身边14034期赛果推荐3·15维权服务进社区继续推进14034期赛果推荐
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘