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

请求菜单帮助(只限VB)

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

《近匠》第03期:移动开发工具访谈,AVOS Cloud——后端的金刚钻 次世代视觉:Avegant Glyph智能眼镜技术解析 技术栈的选择:从Groupon转向Node.js、淘宝去IOE谈起 首席数据官:一个属于你的时代已经来临 盘点2013年Facebook七大最受欢迎的hack 见证中国开源的力量:“开源力量”2013年度庆典活动亮点汇总 专访APU13讲师、西电朱虎明:概念难以理解成异构编程最大阻力 盘点2013:21款最优秀的开源数据库 苹果三星再次谈判,欲和解所有侵权案 应对iOS in the Car,Google将携手奥迪推Android车载系统 10个技巧让你更轻松地使用AWS 《近匠》第04期:移动开发技术访谈,多看科技CTO王毅——阅读未来 2013年Linux领域重要事件回顾 2013年12月操作系统份额:Windows XP跌破30%大关 Linux小幅上涨 Snapchat存安全漏洞 460万用户信息被窃 年底广告高峰:AdMob团队支招“马上赚钱” 从远程调用框架认识Zookeeper 盘点Hadoop生态圈:13个让大象飞起来的开源工具 【开源推荐】Ejoy2D:“风魂”游戏引擎作者云风的又一力作 Web应用在IE11里的实际使用性能 回顾2013年十个值得关注的WordPress设计主题 为什么Google眼镜注定会失败? 2013移动开发工具盘点:最火原型设计工具 2013年12月份浏览器份额:IE 11暴涨3倍 【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 KindDiary日记软件 我想买一块视频采集卡,可否给点意见!!!!! 如何获得对话框中莫个控件地句柄 奇文共欣赏,帐号封存,6个月后再见! WIN200 SERVER中做WIN98无盘工作站的方法? 大虾,请问??? 怎样让一个确定表和一个非确定表建立联系? TC下gettext()的用法问题! 怎样使程序最小化时放到右下角去? 在编辑状态下,将DBGrid记录行内容拖到TreeView节点中去,急? 请教各位怎样使用netbeui协议实现Chat功能 小弟是初学ASP,在想自学的愿头下,不知道从何下手,装了PWS软件解释不了ASP代码。赐教! 短信二次开发包 for 诺基亚,感兴趣者请进。。。。 通过MCSD的考试是多看教材呢,还是多做习题库?我还听说多看MSDN也很有帮助. 给几封VC学习的好文章!自己写的最好! 在数据库中追加字段,网络版和单机版有何不同 override与overload的区别? 网络构架 如何在窗体中使用GIF画? main(String[] args)args传的是什么参,请举例说明 用jb5做oracle的CMP程序调试需要首先在WEBLOGIC CONSOLE设置连接池吗? 网站构架 哪位知道哪儿有类似OICQ的分组控件(也就是OutLook风格的) 如何用Delphi编程来获取outlook的邮件列表 如何在一个方法中返回一个数组,怎样用asp访问这数组呢?? ado—odbc uguess(uguess) 找我,我不知道是你错,还是我错,这样说不清,上QQ说8163852 请教宇凡,请教宇凡---关于提取html文件原代码 宽字符转换 关于TeamSource的详细使用 KindDiary日记软件发布了 关于论坛分数的问题,不知道大家有没有这种情况 RTTI执行时期型别辨识、动态生成的用处在哪些方面,它们的好处到底在哪里?举个例子来说吧!! 困扰达20多天的两个问题…… VB怎样调用简单的(没有输入输出参数据也没有包)Oracle存贮过程?急急!! 给几篇VC的经典文章,最好是自己写的! zxyufan(宇凡)请告诉我你的mail,我的是ipman@sohu.com (ipman) delphi中获得当前系统日期是什么函数? vb中有沒有像VC中的多行注解格式/*......*/ 大家帮我一个朋友看看:这种公司还能呆吗? 随机函数是? 软件发布:KindDiary日记软件发布 delphi6.0连接SQL SERVER2000时的问题 杭州博讯软件有限公司招聘PHP+MYSQL 程序员 CSDN怎么加不成分了?我都试了3、4遍了,迷茫中........ 关于*.ini 关于任务栏隐藏的新问题 令狐冲你在么,有点事向你请教 怎样改exe图标。 用winsock1.1编写TCP方式通讯。执行recv函数出现提示框“Unhandled exception in XX.exe(MSVCRTD.DLL): 0xC0000005:Access Violation.” 请教高手!在用NetMessageBufferSend()函数时为什么编写时出现提示信息但编译时却说undeclared identifier 3月份支出中,餐饮支出1/4,娱乐支出1/5,交通支出1/6.这三项共占支出几分之几. 求大学英语课代表竞选演讲稿 英文的 500字 foot是什么意思 3月,餐饮支出占全月总支出的1/4,文化娱乐支出占1/5,交通支出占1/6.这三项支出共占总支出几分之几.3分之2减去10分之9加上3分之2 加上10分之9等于多少. 5.7 feet 究竟是多高?我要单位是厘米或米,谢谢 一定质量的二氧化碳,当它的体积V=5m^3时,它的密度P=1.98KG/立方米.(1)求P与V之间的函数关系式 在小红家3月份的支出,餐饮支出占全月总支出的4分之1,文化娱乐支出占5分之1,交通支出占6分之1.在小红家3月份的支出,餐饮支出占全月总支出的4分之1,文化娱乐支出占5分之1,交通支出占6分之1, 5'7 feet多高?按外国人平均身高,这算合格吗? 一定质量的二氧化碳,当它的体积V=5m时,它的密度Q=1.98kg/m.(1)求Q与V的函数关系式; (2)当V=9m时,二氧化碳的密度Q是多少? 4英尺8英寸等于多少米?这个是身高来的!我就是搞不懂这什么英的.这是身高来的~麻烦那位准确地说出来.回答:多少米..比喻是1.1.3没~之类的 一定质量的二氧化碳的体积等于6时它的密度等于1.65时,求密度和体积的函数关系式 一定质量的二氧化碳,当他的体积V=5m³时他的密度ρ=1.98kg/m³(1)求当v=9m³时,二氧化碳的密度p (2)求出p与v的函数表达式 有块砖规格“5cm×10cm×20cm”将它放在水平面上,求砖对地面的最大和最小压强(ρ砖=2.25×1000千克/立方米 已知a=k^2+(k+1)^2+.+(2k)^2,b=(k-1)^2+k^2+(k+1)^2+.+(2k-1)^2 则a-b的值 我的爱好英语作文要有翻译,70字左右120 已知直线 y=kx+1-k (k∈R)与圆 x²+y²=5 相交于A、B两点,则|AB|的最小值是 2k一5十4/9等于一2k十5十4/9那么k等于多少 若不等式1/3(2x-k)≥x-2k的解集为x≤-5/3,求k值 x²+xb+ax+ab=x²-kx+ab k值为? 数学题在线解答:小亮看一本70业的连环画,已经看了47业,还剩47业,还剩全书的几分之几?数学题在线解答:小亮看一本70业的连环画,已经看了47业,还剩全书的几分之几?抱歉上面打错了 关于X的不等式(K^2-2K+5/2)^x x²+kx+9,求k的值.1、若 x²+kx+9 是关于 x 的完全平方公式,则 k = ___________. 数学题在线解答:5班有39人,其中8人是班级干部,班级干部的人数占全班人数的几分之几? The boy is very tall.And his _____(tall)is nearly five feet(五尺)应该填什么?为什么? 一:砖长20cm,宽10cm,厚5cm,质量是2kg.求:1.砖的重力?2.一块砖水平放于地面时产生的压强?3.这种砖能承受的压强是4<10的五次方则砌砖的最大高度为?二:容器底面积是6平方厘米,求a点液体的压强 英语作文我的爱好翻译出来.最好是写打篮球 If a boy is six feet tall,how tall is he in meters?1 foot=0.3048 meters.Answer: 若关于x的多项式x²+kx=9,是一个完全平方式,则k=? (k^2-6k+8)x^2+(2k^2-6k-4)x+k^2=4根为整数,求所有k值会的写下过程,或者有个思路,不要只有答案啊,越全越好根指的是X,这个方程的根是整数,现在知道k=3,6,10/3,K=-2,1都不行,因为根为整数是X1,X2都为整数 vf 求当k=20时,求s的值.s=(1^2/(1*3))*(4^2/(3*5))*(6^2/(5*7))*...*(2k)^2/(2k-1)(2k+1))求过程答案安四舍五入精确到小数点后第三位 如果多项式4x²-kx+9是一个完全平方式,那么k的值为? 2k³-6k²+6k-3=0 求k值 当k为何值时,根号5-2k 无意义 竞选英语课代表发言稿(中文版) x^2+6k+2k-3可以写成两数和的平方形式,求k的值 一项工程甲单独做12天完成,乙单独做15天完成.甲乙两队合做6天,完成这项工程的几分之几还有 甲乙两队合做,完成这项工程的3\4 需要多少天 156cm等于多少英尺(feet) k^4+2k^2-6k-3=0 she is five feet tall 这句话的同义句 1.若x²+kx+4是一个完全平方式,则k=2.若x²+kxy+9y²是一个完全平方式,则k= [k*(2-4k)/(1+2k)]+2k+1 five feet tall 翻译 三角形的面积和底长成正比例吗(⊙o⊙)? 修一条路,甲队单独修12天完成,乙队每天修30米,如果两队合修,6天完成全长的2/3.这条路全 所谓的k线是指哪几条线呢?在技术分析的图上那五条线哪条是均线,哪条是日线?现在想炒股要会哪些东西? 三角形的面积一定.三角形的底和高,成不成正比例?为什么? 修一条路,甲队单独修12天完成,乙每天修30米,如果两队合修,6天完成全程的三分之二,这条路全长是多少米 怎样看股票k线图 1英磅等于多少千克 看表格问题:三角形的面积和相应的底长成正比例吗?你是依据什么做出判断的? 修一条路,甲队修12天,乙队每天修30米,如果两队同修,6天完成全长的2/3问这条路长几米?用算术小学的 英语课代表演讲稿1.怎么样做好同学们的榜样2.对自身的要求3.自己的工作思路4.用汉语 三角形的底一定,它的面积与高成不成正比例关系? 修一条路,甲队单独12天完成,乙队每天修30米,如果两队合修,六天完成三分之二.这条路全长多少米.十万火急 多项式x²-kx+9是完全平方式,则K= 要一篇初一英语课代表竞选发言稿!英文的!急要!明天就要竞选了! 一定质量的二氧化碳,当它的体积V=5M的三次方时,它的密度P=2KG每立方米 (1)求P与V的函数关系式当V=9m的三次方时,求二氧化碳的密度P-谢 若多项式x²+kx+1/9是完全平方式,则常数k的值为____________ 七年级竞选英语课代表英文版演讲稿? k取什么值时,方程x^2+(2k+1)x-2k-1=0有两个不相等的实数根
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn