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

请求菜单帮助(只限VB)

编辑:说三道四文库 发布时间:2017-05-25 09:23
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

《近匠》琥珀天气,精细化打磨征服Google Play 【CTO讲堂】人工智能到底能为我们带来什么? Linksys再度回归中国市场,主推智能路由 Windows 10:全平台战舰与移动化破冰——微软(中国)操作系统工程院院长谢育涛专访 专访友盟CEO叶谦:深挖海量终端用户数据的价值 七牛资深前端工程师马逸清:前端测试探索实践 实战iOS 9:开发者必须掌握的三种搜索API 腾讯Bugly干货分享:浅谈Swift在实际项目中的应用 【前端人生】ThoughtWorks黄峰达:利用横向扩展方式,快速学习前端新框架 这是前端最好的时代——论前端的“三化”建设 游戏引擎网络开发者的64做与不做(一):客户端方面 六问七牛CDN:打造融合CDN管理服务平台 《近匠》Wilddog野狗,跨平台的实时通信云服务 【CTO讲堂】招人不易留人更难——创业团队要闯哪些关? iOS UIView动画实践(四):过渡与伪3D动画 日程全公布|年度人工智能技术精英聚会 7月26-27相约北京 TypeScript 1.5发布,支持大量ES6新特性 快快快!27个提升效率的iOS开源库推荐 《近匠》Maxense,“云+传感”推动产业变革 【探秘ES6】系列专栏(九):使用Babel和Broccoli 2015年Postgres全球开发者大会参会总结 英特尔硬享公社启动“创意原型拍卖” 对接创意与商机 详解Swift 2.0(一):苹果做的25项改变 2015甲骨文数据库大会:回顾、感恩、展望,欲续写辉煌 Nokia进军VR领域:让人欢喜让人忧 2015中国人工智能大会在京成功召开 成为糟糕游戏设计师的五种打开方式 Stripe使用指南:Swift开发中的信用卡支付 将安全延伸至云端以及更远的地方 专访FreeWheel北京研发中心:一流技术型人才应具有国际化视野 iOS UIView动画实践(五):Keyframe Animation 这里谁用POP3收邮件的?? 寻软件高手!现有一IP地址和网页、搜索栏关键词拦截程序需要编写,付酬!!! 重启机器就进不了WIN98,这是怎么回事? 在C#里是用接口来解决多继承的问题的吗,给个例子好不好! 开个新帖专门讨论WEB打印问题吧 :) CBaseFilter类为题(急) 调查:你是Delphi程序员吗...... 到底ASP的内建组件?我在我机器上能用几个?我在我的机器上输入这么两条语句全都不能执行,请问为什么,我真惊了!谁能帮帮我? 超难度sql 语句 一个很菜的问题。 grub 不认ntfs?(在线等答,可行的话我给50分) 金童玉女的追求与堕落 请问如何让网格自动调整宽度? 放分之一(一个小小的题目,谁第一个写出来就得分) 装了XP后,如何找回Linux? 急需源代码…… 谁在??? 帮帮我啦。。~~~~~~~~~~ 急急急!! 请问MSDN里面所说的Video Capture函数和视频采集卡厂商所提供的SDK有什么不同了?在线等候。。 怎样使网页(IE)上选择的文字能够拖动到BCB程序中?(400分赐教,决不食言) 调查:你是共享软件作者吗........ 急需帮忙!!! 编程,怎能支持少数名组语言 到底在linux那里是用什么命令解压zip文档的?各位高手告诉我!! 已计算的子表单 DBGrid怎样实现0值不显示? 8月25日 0:23 论坛在线名单(462人)!好多人呀!不知道有在公司加班的吗? 在pb中 除了odbc和专有数据库连接 还有其他方式的连接方式吗 调查:你是共享软件作者吗........ 为什么总是提醒我“服务器繁忙,请稍候再试。”CSDN在搞什么鬼?今天遇到好多次了!:( 工作区中的一个简单的问题 picture控件是不是没有双击消息? msdn示例程序,你们是否都看得懂呢? 你用了Delphi7吗,感觉如何? 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 SCO UNIX认证好考吗?特别指UnixWare 7的系统管理员。知道情况的跟俺讲讲。 兼职做一个库存进销软件,大概能得多少钱 同学十一结婚,想做个flash之类的东东作礼物,哪位能指导一下,时间不多啦,帮帮忙 怎样刷新页面的某一部分,而不是全部刷新? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 个人编写软件,需要用到版本控制吗? 关于资源文件中的对话框。 APACHE出错 我的问题可能会让大家反感!!(在线等待) 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 如何接收 用 CreateObject 函数创建对象的事件 请问用2000Server做磁盘镜像是不是一定要求硬件有RAID功能? 编程的困惑 BCB_FANS(四大名捕之追杀令) 请进!送分! 请问用vb,vc,delpy,c++ buildle编写的知名软件各有哪些?(不包括for .NET) 国家四级与中程,孰难!! 黾 怎么读?黾 这个字念什么?怎么读? 把48分解成两个因数相乘的形式 某DNA片段缩转录的mRNA中尿嘧啶占28%,腺嘌呤占18%,则这个dna片段中胸腺嘧啶和鸟嘌呤分别占?为什么“T在双链中的百分比为(28%+18%)/2=23%”要除以2? 黾字怎么读?我查到水黾(我们叫水香油),不是你这种拼法 人生如一场梦 你的言语,我爱听,却不懂得,我的沉默,你愿见,出自哪篇文章 木糖醇类的食物在体内是不是分解成葡萄糖? 37.(4分)利用化学反应中气体产生的压力,可使多个化学反应依次发生,称为“化学多米诺”.下图装置气密性良好.根据图示回答下列问题(试管中发生的反应恰好完全):(1)C中观察到的 安徽的高一语文暑假作业上的作文 葡萄糖是酸性食物吗?若肯定,那么锻炼后体内已经产生了乳酸还喝葡萄糖科学吗? 空气净化设备中会发生什么化学反应 常用作还原剂的气体h2 nh3 no no2 co cl2 n2 其中哪些是只要氧化还原反应中化合价升高的都是吗 是不是什么食物都有葡萄糖我是糖尿病患者 要使乳浊液由易分层变得不易分层,应加入( )A.溶剂B.水C.乳化剂D.溶质 葡萄糖转变为糖原在动物体内的----和----内进行? 银氨溶液怎么验证蔗糖水解产物? 奶瓶是玻璃的好还是塑料的好 当动物体内直接能源物质过剩时,一般情况下,首先转化为a麦芽糖b葡萄糖c脂肪d糖原 为什么在验证蔗糖水解产物时,要先酸化? 请问谁知道数学题做很多遍还是不会怎么办? 迷茫了, 数学矩阵求行列式规则?1_0_00_-1_00_0_1的determinant为负一,为什么不能用第二行乘以-1,得到0_1_0,然后得出determinant等于1?我看 很多例子都能行乘以某个正数或者复数代入另一行. 谁知道斑鸠的下蛋和孵化是在什么时候 迷茫了, 把144分解成两个因数相乘的形式,使这两个因数分别是什么? 6和它的所有因数组成的比例是( ) "坦"字的 “旦”上面多一横读什么字?如题! 动物体内葡萄糖过剩时,一般情况下,他先转化成什么 用48的4个因数组成比例 “土”字边,右边一个“旦”,但这个旦上面还有一横.怎么读?拼音.谢谢 动物体内葡萄糖过剩时,一般情况下,他先转化成什么? 用6的所有因数组成两个比例 “木”字边,右边一个“旦”,但“旦”上面还有一横,拼音怎么读?谢谢 烧杯中的水烧开后停止加热,水立即停止沸腾,如果把瓶塞塞紧,将烧瓶倒置,用冷水浇瓶底,烧杯内将会怎么? 这种数学问题怎么在百度中搜索 常见的固体还原剂,反应条件加热RT,反应条件是加热而不是高温的,最好不是还原针对一种物质的.越多越好. 人生好比一场梦 脂肪酸为什么不能转化为糖?脂肪酸氧化生成的乙酰coA进入TCA循环,是不是说乙酰coA都分解成2分子CO2了,才不能形成形成其他代谢的中间产物(即TCA循环的中间产物)?既然乙酰coA能形成TCA循环 为什么动物脂肪酸很难转化为糖而 植物脂肪酸容易转化为糖 人生就像是一场梦,是吗拜托了各位 谢谢 细菌与哺乳动物脂肪酸合成酶结构对脂肪酸合成的影响是什么? 纤维素能否水解? 杰克逊的那首who is 我看了好多遍都不明白, 哺乳动物为什么不能由脂肪酸合成葡萄糖这一部分涉及乙醛酸循环,但生化书上都只是说因为动物体内没有异柠檬酸裂解酶和苹果酸合酶,所以不能.该循环中,异柠檬酸裂解成琥珀酸和乙醛酸, 什么是乳浊液 值域到底是什么?做题要用.希望大家帮我下.3Q 常见的还原剂有哪些?他们的用途是什么? 乳浊液是什么? 什么叫金融衍生工具?有没有相关的例子?上课不理解,请资深人士解答疑惑. 工业上的常用还原剂? 乳浊液的究竟是什么?不要教科书上的内容,希望结合理解的回答,最好多举例. 英语 打五角星的那句话怎么解释T_T不理解 在4,12,25,30,36,60这六个数中,因数个数是奇数的共有()个.. 乳浊液有什么特征 实验室用15%的氢氧化钠溶液洗涤某次实验后仪器中残留的稀盐酸,共消耗氢氧化钠溶液40克,洗涤后溶液成中性,求残留的稀盐酸中汗氯化氢的质量. “黾”的拼音? 常见的氧化剂与还原剂有哪些 某实验室用15%的氢氧化钠溶液洗涤一定量分馏汽油中的残余硫酸,共消耗氢氧化钠溶液40克,洗涤后溶液呈中性,这些分馏汽油中含硫酸多少克 黾的拼音 已知一段信使RNA中含有30个碱基,其中A和G有12个,那么转录这段信使RNA的模版DNA分子中C和T至少有多少个? 蔗糖 乳糖 麦芽糖组成的单糖分别是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘