阿杰 发表于 2008-6-5 16:59:42

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

源码下载：<br/>

阿杰 发表于 2008-6-5 17:03:25

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

马大哈 发表于 2009-1-31 15:37:23

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

jixu2008 发表于 2009-3-28 11:39:47

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

jixu2008 发表于 2009-3-28 11:40:29

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

马大哈 发表于 2009-3-31 17:54:48

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

jixu2008 发表于 2009-4-1 18:16:37

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

everyone 发表于 2009-6-22 14:34:05

<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>
页: [1]
查看完整版本: [原创]功能模块----弹出快捷菜单类（源码）