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

请求菜单帮助(只限VB)

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

Phaser:开源的HTML5 2D游戏开发框架 HTML5调查:做的好,收入不比iOS差 汽车巨人福特让“数据”说话 基调数据解读2014网购行业的3大变化 测测:用百度Clouda占卜移动互联网 微软的无奈:或允许Android应用运行于Windows平台 如何选择适合自己的编程语言 Google Now新增语音命令:生活简单一点,让爱更近一点 千万美金收购案:GetJar是一家怎样的公司 传苹果与时代华纳等公司合作,推新一代Apple TV 追本溯源 解析“大数据生态环境”发展现状 为Hadoop存储层增加对OpenStack Swift的支持 详解并行逻辑回归 在AWS上使用GPU实现分布式神经网络 大数据时代,看“小数据”如何支持决策 22人15天研发 微信红包系统发起“珍珠港偷袭”的背后 开发产品防脱节,DevOps来帮忙 手游福音:官方中文版Unity用户手册免费发布 支持多平台!2D和3D游戏引擎Godot宣布开源 从Google备份互联网看“数据安全” NBA全明星周末,数据打造下的辉煌盛事 2014情人节没活动?我们来帮你! Windows 8授权销售已超过2亿份 速度不及Win 7 IDC:2013年第四季度Windows Phone出货量大幅增长 深入思考SDN的核心本质:从SDN=OpenFlow回到软件定义网络 谷歌、VMware在Chromebooks上双赢了,微软你怎么看? Tizen真要来了!又有15家IT大佬成帮会成员 研发周报:开源世界应该致谢的五家公司 Square、LinkedIn、Google... 看国外巨头如何“绑架”用户? 一周消息树:5.5寸屏幕的iPhone 6概念机来袭、索契冬奥会开幕式现Bug 一周热点:美国大学生数学建模分析,Hadoop不是万能,探访雅虎数据中心 请招人时自考成人电大与正规大学的差多少呢?急! MDI子窗体显示时有一个明显的由小到大的变化过程,看起来很不舒服,请教该如何解决? 怎样用语句创建NMSMTP控件 局域网下在WIN2000/XP里如何用VB程序自动改变IP? 在Delphi 如何像C++里用extern关键字来引用另外一个单元的全局变量? 对联 谁能帮我出一套关于JSP高级程序员的面试题,并附答案!高分相送,不止这100分 MFC中对文本文件能否以行为单位进行读写 大侠给几篇C程序原代码 到底要怎样才能用好progressbar进度条? 参与者有分! 怎样调用 其它窗体的内的对象的属性?? JSP的应用经验 工具条的问题,求解 我喜欢西瓜小姐 我公司现有固定电话收发电子邮件系统,可收附件,将WORD,HTML文档转换为TXT文本 关于内码问题 远程控制 关于JDBC2.0的问题(50分!!!!) 哪位有高招? 升级BIOS和升级主板? 急!急!急!急!窗口不能关闭. 哥哥姐姐们请帮忙???(急需linux环境下用php+mysql如何实现搜索引擎) 大家赞不赞成开一个Palm技术区?赞成的跟贴,满50个就开。 定义 Dim reader As System.Data.SqlClient.SqlDataReader lvlvlvlylyly请看,你的贴子我加不上了,还查一段程序加在这里了 如何传送monthview1中用户选择的日期到其他窗体里 你该怎么做呢 国内什么样的网站托管好?还是选择国外的? 女网友一定要小心 mschart控件问题 赶快来尝试一下吧! 如何在 View 类中编写press any key to continue功能模块 Vc++下应用Matlab数学函数库出错 如何用VB实现自动登录? 赶快来尝试一下吧! ado的问题! 如何传递带“%”的参数? 有全套的ERP源代码为你提供,助你在开发过程中更上一层楼 字符串str=" aaa ",如何变为"aaa" 怎么没有人理俺泥?? 关于dw的问题 如何读入数据库中的HTML格式的正文呢? 一个在阅读<<深入浅出MFC>>中遇到的问题 !!!!急 新手,说找不到mfc42d.dll文件 怎么没有人理俺泥?? 关于dw的问题 FAST.lib 2000 for windows是个什么东东 请问各位一个非常简单的问题 jdk和jvm 笨蛋 大家有什么建议吗? ASP.net如何刷新另一个页面 有一年delphi工作经验的程序员在全国各地的待遇如何?哪个城市有发展前途(钱途)? 亚硝酸钠中毒我是个钻床工人,因为为了防锈而在钻床的冷却水里加了很多亚硝酸钠,每天身上脸上都会溅很多水,不知道长此以往对身体有没有害处?有和我一样工作的用过亚硝酸钠的朋友身体 化学中分液.灼烧.蒸发.蒸馏分别需要哪些仪器? 尿液里有蛋白怎么回事?去医院检查医生说尿液里有蛋白 要紧吗 具体是什么问题?19岁 女 亚硝酸钠中毒如何抢救? 合成冰片和天然冰片有什么区别?我公司想采购天然冰片.急! 高一生物课题研究报告,任选一个生物课题要按照报告的格式来写 亚硝酸钠中毒的原里是什么 如何辨别冰片好坏 植物细胞—→新细胞—→愈伤组织—→胚状体—→人工种子↑其他生物的基因这过程所涉及到生物工程技术有__________________和____________________(填空题,两个空) 喝水后很快就排尿,而且尿液多,肾功能正常吗?两个人喝同样多的水,一个人很快就排尿,间隔时间不长又排尿,另一个人却长时间不排尿,两个人中哪个肾功能差? 亚硝酸钠的毒性有多大?中毒后怎么办?吃含有亚硝酸钠的食物会中毒吗? PVA(聚乙烯醇),PVDF(聚偏氟乙烯)是导电胶吗? 女人的尿里有蛋白,正常吗? 亚硝酸钠毒性亚硝酸钠有较强毒性,人食用0.2克到0.5克就可能出现中毒症状,如果一次性误食3 克,就可能造成死亡.那食用0.5到3克会怎样呢 越快越好 pva是什么材料 亚硝酸钠的毒性大吗?人如果误食了含有10g亚硝酸钠的奶茶 多久会死?能救过来吗?10g亚硝酸钠用饮料盖装 大约是几盖? PVDF的真溶剂? 问下小便时尿液方向改变正常嘛?本人男性,25岁,近两个星期发现小便时尿液不是正常方向排出,而是向右方向,什么原因啊、?烦恼死了,现在小便一不小心就整到手上或裤子上,头疼, NaCl Na SiC H2O 的熔点从高到底 尿微量蛋白65是啥意思? 哪位朋友知道,聚乙烯醇与水混合后,经高温溶解成胶水,添加什么化学成份,能使其在零下25度不冻结. 如何减少亚硝酸钠的毒性 尿微量蛋白29怎么办 在尿液放氨基酸会有什么反应?正常小便里放什么能检测出有尿蛋白? 为什么Na的熔点低于NaCl?RT,虽然说是常识可以解释,可是从理论上来讲,Na+都是一样的,Cl-的半径要比e-来得大,金属键跟离子键不是相似的吗不是都是键能=kq1q2/r^2吗,那Na的键能应该要比NaCl的键能 尿微量蛋白一个77指什么 帮我介绍一下聚乙烯醇的常见化学反应现象..特别是高温有关的.谢 熔点:NaCl>Na>CO2, 求一个研究课题,其他我可以自己写,例如醋对花卉有什么影响之类的只要研究课题,不求文章! 尿的蛋白质多少算正常+++3.0 CO2,NaCl,Na,Si,金刚石,水,熔点比较 初中教学课题怎样做? 聚乙烯醇与水混合,高温熬成白乳胶,请问如何防冻?非常感激朋友们的提问,希望能详细一点,在零下30-40度不会变成固体状,需要加什么化学物品.您说的88醇解度能不能详细的给我解释下.我不知 分离混合物常用的方法有:①沉降②过滤③吸附④蒸发⑤蒸馏,选择合理的方法分离下列混合物(填序号,可重复)(1)食盐和砂子 (2)有颜色的水 (3)从海水中获取食盐 (4)用海水制蒸馏水 (5 硫酸亚铁是否因暴露在空气中而发生氧化还原反应而变质?请写出方程式 Na2S溶液和Na2O2反应怎么会没有O2生成呢?反应的离子方程式是Na202+H20+S2-=OH-+S↓+Na+(没配平)这是06四川卷的一个题,很奇怪,我不知道为什么没O2,既然反应物都有水了. 海水晒盐属于混合物分离操作的是 ----(填序号) A、蒸馏 B、蒸发 C、过滤 D、沉淀为什么是b 海水中不是还有些不溶性杂质吗比如泥沙 那么c为什么不对 下列物质在空气中变质,即发生氧化还原反应,又发生非氧化还原反应的物质是( )A.氢氧化钠 B.漂白粉 C.氯水 D.生石灰 亚硝酸钠中毒多久死亡 求研究性课题报告,课题:高中生所受的心理压力 为什么NA,NA2O和NA2O2放置在空气中,只有NA2O2是因为氧化还原而变质啊三个都有化合价变化啊... 将6gNa和3.2gS迅速混合,放在石棉网上加热,反应后所得固体成分是( )D. Na2O2和Na2S请问怎么做的?2Na+S=Na2S 合成冰片和天然冰片的价格为何差那么多?天然冰片有何优势? 尿蛋白1 如何治疗患者信息:男 15-24岁 福建 宁德 病情描述(发病时间、主要症状等):主要就是尿中泡沫多而且不散 其它就是最近腰酸想得到怎样的帮助:看看要怎么办?曾经治疗情况和效果 亚硝酸钠中毒有什么反应 有什么适合高中生的研究性课题 高一政治探究性课题“经济生活” 分别为7.8g的Na2S和Na2O2中含有的阴离子数分别为? 最近化学生物方面有什么新颖的,适合高中生研究的课题? HPLC 紫外检测器关后仍有色谱峰?HPLC的紫外检测器关了之后,出先了很多色谱峰,很杂乱,我有开了检测器,结果没有色谱峰,是水平基线,我又关了检测器,结果又有乱峰了!我百思不得其解,请高手指 亚硝酸钠炒菜可不可以 放多少不会中毒 高中生开展研究性课题的目的及意义是什么 尿里有蛋白怎样治疗? 硝水是什么?是不是亚硝酸钠?是不是硝酸盐水?硝酸钠?硝酸钾?是不是亚硝酸钠? 食用亚硝酸钠中毒后,怎么处理? 比较下列几种物质的熔点由高到低的顺序Na,K,Na-K合金,NaCl,金刚石,CO,SiO2,CS2(二硫化碳) 正常原尿含蛋白质吗?不是说正常人原尿中含有微量蛋白质吗?但是书上或大家都说原尿中一定不含蛋白质.但是微量的蛋白质就不算有蛋白质了吗?不要答非所问 如果误食了5克亚硝酸钠,多长时间会出现中毒证状,多长时间后会死亡? 为什么尿里有蛋白,如何治疗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘