[原创]功能模块----弹出快捷菜单类（源码）

阿杰

源码下载： JfALSvzp.rar (1.78 KB, 下载次数: 17207)

2008-6-5 16:59 上传

点击文件名下载附件
[原创]功能模块----弹出快捷菜单类（源码）

<br/>

阿杰

<font face="Verdana">功能模块----弹出快捷菜单类（图）</font>

[原创]功能模块----弹出快捷菜单类（源码）

<br/>

马大哈

<p>用API自绘菜单实现的.</p>
<p>&nbsp;</p>
<p>除了用菜单编辑器生成隐藏菜单的方案外,这又是一种选择.</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

jixu2008

请教一下,这个菜单的类模块是好,可以很方便的引用,可是我如何调用这个菜单呢?

jixu2008

就是调用菜单里的项目,可能没说清楚,比如刷新....

马大哈

<p>调用?啥意思?</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

jixu2008

就是让菜单1,菜单2等实现功能.

everyone

<p>按着 作者的意思，我只是说说怎么实现功能</p>
<p>&nbsp;</p>
<p><font face="Verdana">Option Explicit<br/>Private Sub Form_Load()<br/>&nbsp;&nbsp; List1.AddItem "请点击鼠标右键 弹出菜单"<br/>End Sub<br/>Private Sub List1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)<br/>Dim oMenu As cPopupMenu<br/>Dim lMenuChosen As Long<br/>&nbsp;&nbsp; If Button = vbRightButton Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set oMenu = New cPopupMenu<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lMenuChosen = oMenu.Popup("菜单 1", "菜单 2", "菜单 3", _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "-", "菜单 4")</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select Case lMenuChosen<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 2<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "你好"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '....<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Select<br/>&nbsp;&nbsp; End If<br/>End Sub</font></p>
<p>&nbsp;</p>
<p><font face="Verdana" color="#0000ff"><a href="http://hi.baidu.com/270975956">来往工作室</a>（<font face="Verdana">http://hi.baidu.com/270975956</font>）</font></p>
<p>&nbsp;</p>