miaozk2006

点滴积累与收藏:关于技术，关于生活

日志

关于我

miaozk2006

文章分类

【引用】在VB6.0中实现弹出式菜单的几种方法

2012-05-11 08:58:13| 分类：编程-VB | 标签： |举报 |字号大中小订阅

下载LOFTER 我的照片书 |

本文转载自☆★笨笨★☆《在VB6.0中实现弹出式菜单的几种方法》

在Windows应用程序中，利用弹出式菜单（Pop-up Menu）是增加软件易用性的一个重要方式。本文将向大家介绍在VB6.0中实现弹出式菜单的几种方法。

利用VB6.0内置的PopupMenu方法

PopupMenu方法（Method）是VB6.0内置的实现弹出式菜单的方法，用于在MDIForm或Form等对象中的鼠标点位置或指定位置显示弹出式菜单。其语法为：
Object.PopupMenu menuname, flags, x, y, boldcommand
说明如下：

Object	可选项，可以是PropertyPage, Usercontrol, UserDocument, Form, MDIForm等对象之一，如果该部分省略，则具有焦点（Focus）的Form对象将作为此Object。
Menuname	必须，将被显示的弹出式菜单的名称，此菜单必须至少包含一个子菜单
Flags	可选项，一个值或常数，设置弹出式菜单显示的位置及行为方式，定义如下：
	*常数（位置）*	值	说明
	VbPopupMenuLeftAlign	0	（缺省值）弹出式菜单左对齐于X
	VbPopupMenuCenterAlign	4	菜单居中于X
	VbPopupMenuRightAlign	8	弹出式菜单右对齐于X
	*常数（行为）*	值	说明
	VbPopupMenuLeftButton	0	（缺省值）只能通过点击鼠标左键来选择弹出式菜单的菜单项
	VbPopupMenuRightButton	2	可以通过点击鼠标的左键或右键来选择弹出式菜单的菜单项
X	可选项，设定显示弹出式菜单的X坐标，如省略，鼠标点坐标将被作为X使用
Y	可选项，设定显示弹出式菜单的Y坐标，如省略，鼠标点坐标将被作为Y使用
Boldcommand	可选项，定义弹出式菜单中某一个菜单项的名称，该菜单项文字将被加粗显示，如省略该项，则无菜单项文字被加粗。

通过设置对象（Object）的Scalemode属性来规定X，Y坐标的度量单位，X，Y坐标设定弹出式菜单在对象（Object）中显示的相对位置，如果省略X，Y，则弹出式菜单将显示在当前鼠标点位置。
当用PopupMenu方法激活弹出菜单后，要等到用户选择了弹出菜单中的某个菜单项之后（这种情况下，还要先运行被选择菜单项的相应代码）或在表单其它位置单击鼠标左键消除弹出菜单后，后面的代码才能继续执行。并且，一次只能激活一个弹出式菜单，当已经有一个弹处菜单被激活或已经有一个下拉菜单被打开时，对PopupMenu方法的调用将被忽略。
下面的例子演示当用户在表单上点击鼠标右键时，在鼠标点处显示弹出式菜单。欲试验此例子，建立一个表单，在表单中建立一个菜单控件，将其命名为mnuFile（mnuFile菜单至少包含一个子菜单）。在表单的声明（Declaration）区域加入如下代码：
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuFile
End If
End Sub
PopupMenu方法是VB6.0内置的方法，使用起来方便简单，但该方法有一个不足，即当点击鼠标弹出菜单后，如果不选择菜单项而在其他位置点击鼠标，则菜单并不会在新的鼠标点处显示。这虽然不至于影响应用程序的功能，但却降低了易用性。

利用Windows API函数

除了利用VB6.0内置的PopupMenu方法来实现弹出式菜单外，还可以利用Windows 的应用程序接口（API）函数中的菜单函数来实现弹出式菜单。
利用API的菜单函数实现弹出式菜单与VB6.0内置的PopupMenu方法相比，要复杂一些，但却弥补了PopupMenu方法的不足点，即当弹出菜单后不选择菜单项而在其它位置点击鼠标时，弹出式菜单会立即出现在那个位置。并且利用API函数，编程者可以更加灵活、自由度更大地实现弹出式菜单。
本文用到的API函数为：GetMenu, GetSubMenu, GetMenuItemInfo, InsertMenuItem, CreatePopupMenu, DestroyMenu, TrackPopupMenu。下面先简单介绍一下这几个函数。

GetMenu	GetMenu函数返回指定窗口的菜单的句柄
	*语法：*GetMenu ( HWnd )
	*参数的意义*
	HWnd	窗口句柄，该窗口所包含的菜单的句柄将被函数返回
GetSubMenu	GetSubMenu函数返回下拉菜单或被指定菜单项激活的子菜单的句柄
	*语法：*GetSubMenu ( hMenu, nPos )
	*参数的意义*
	Hmenu	菜单句柄
	NPos	定义激活下拉菜单或子菜单的菜单项在所给菜单中的相对位置（起始为0）
GetMenuItemInfo	GetMenuItemInfo函数返回菜单项的信息
	*语法：*GetMenuItemInfo ( hMenu, uItem, fByPosition, lpmii )
	*参数的意义*
	Hmenu	包含相应菜单项的菜单的句柄
	Uitem	欲获得其信息的菜单项的标识号或位置，该参数的具体意义由fByPositon参数的值来决定
	FbyPosition	用来定义uItem参数的意义，如果此参数的值为False，则uItem参数为菜单项的标识号，否则，为菜单项的位置
	Lpmii	指向MENUITEMINFO结构变量的指针，该变量指定了需要返回菜单项的哪些信息，并接收这些信息。MENUITEMINFO结构各元素说明如下：
		CbSize			结构占用的字节数
		Fmask			设置欲获得结构中哪些元素的值
		Ftype			菜单项类型
		Fstate			菜单项状态
		WID			标识菜单项的16位值
		HsubMenu			与菜单项关联的下拉菜单或子菜单的句柄
		HbmpChecked			菜单项被选中时，显示在菜单项旁边的位图的句柄，该值为Null时使用缺省位图
		HbmpUnchecked			菜单项未被选中时，显示在菜单项旁边的位图的句柄，该值为Null则不使用位图
		DwTypeData			菜单项文字，长度在元素cch中给出
		Cch			菜单项文字长度
InsertMenuItem	InsertMenuItem函数在一菜单的指定位置插入一个新菜单项
	*语法：*InsertMenuItem ( hMenu, uItem, fByPosition, lpmii )
	*参数的意义*
	Hmenu	新菜单项将被插入的菜单的句柄
	Uitem	新菜单项将被插入在其之前的菜单项的标识号或位置，该参数的具体意义由fByPositon参数的值来决定
	FbyPosition	用来定义uItem参数的意义，如果此参数的值为False，则uItem参数为菜单项的标识号，否则，为菜单项的位置
	Lpmii	指向MENUITEMINFO结构变量的指针，该变量包含了新菜单项的信息
CreatePopupMenu	CreatePopupMenu函数生成一个下拉菜单、子菜单或弹出式操单，菜单在初始时是空的，可以使用InsertMenuItem函数来插入菜单项
	*语法：*CreatePopupMenu ( )
DestroyMenu	DestroyMenu函数清除指定的菜单并释放该菜单所占用的内存空间
	*语法：*DestroyMenu ( hMenu )
	*参数的意义*
	HMenu	将被清除的菜单的句秉
TrackPopupMenu	TrackPopupMenu函数在指定位置显示一个弹出式菜单，并跟踪菜单中菜单项的选择，弹出菜单可以出现在屏幕的任何位置
	*语法：TrackPopupMenu (hMenu, uFlags, x, y, nReserved, hWnd, PrcRect)
	*参数的意义*
	HMenu	被显示的弹出式菜单的句柄，此句柄可通过调用CreatePopupMenu函数生成一个新弹出式菜单获得，或调用GetSubMenu函数获得一个现有某子菜单的句柄
	UFlags	一组标识符来指定函数的选项，意义如下
	常数		值	说明
	TPM_CENTERALIGN		4	设置该值，弹出式菜单水平居中于X
	TPM_LEFTALIGN		0	设置该值，弹出式菜单左对齐于X
	TPM_RIGHTALIGN		8	设置该值，弹出式菜单右对齐于X
	TPM_LEFTBUTTON		0	设置该值，用户只能通过鼠标左键选择菜单项
	TPM_RIGHTBUTTON		2	设置该值，用户既可以通过鼠标左键也可以通过鼠标右键选择菜单项
	X	定义弹出菜单的水平位置（屏幕坐标系）
	Y	定义弹出菜单的垂直位置（屏幕坐标系）
	Nreserved	保留，必须为0
	HWnd	拥有弹出式菜单的窗口的句柄，该窗口接收所有从该菜单传来的消息，该窗口在函数返回之前不从菜单接收WM_COMMAND消息如在uflags参数中定义了TPM_NONOTIFY，函数不向HWnd定义的窗口发送消息，但仍需向HWnd传递一个窗口句柄，它可以是所在应用程序中的任何窗口句柄
	PrcRect	忽略

三．利用工程（Project）中其他表单的菜单作为当前表单的弹出菜单

如果表单（Form）的菜单中不包含弹出菜单需要的菜单项，那么可以新建一个表单，在新表单中建立一个与所需弹出菜单完全一样的菜单及相应代码。然后在MouseDown事件中利用GetMenu和GetSubMenu函数来获得新表单中的菜单句柄，再利用TrackPopupMenu函数激活弹出式菜单。
下面的例子演示当在表单中单击鼠标右键时，在鼠标点位置显示弹出式菜单，此弹出式菜单是通过调用另外一个表单中的菜单得到的。要试验这个例子，需要创建两个表单，一个命名为Form1，另一个命名为MnuForm。在MnuForm中加入一个菜单控件，将其命名为MnuFile（MnuFile中至少要包含一个子菜单）。添加一个模块（Module），在模块的声明（Declaration）区域添加如下代码：

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public 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, lprc As RECT) As Long

在Form1的声明（Declaration）区域添加如下代码：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim IX As Integer, IY As Integer
    Dim hMenu As Long, hSubMenu As Long, R As Integer
    Dim menRect As RECT
    If Button = vbRightButton Then
        ScaleMode = TWIPS
        IX = (X + Left) \ Screen.TwipsPerPixelX
        IY = (Y + Top) \ Screen.TwipsPerPixelY
        hMenu = GetMenu(MnuForm.hwnd)     '获得MnuForm中的菜单句柄保存于hMenu
        hSubMenu = GetSubMenu(hMenu, 0)   '获得hMenu中的第一个子菜单的句柄保存于hSubMenu
        R = TrackPopupMenu(hSubMenu, 2, IX, IY, 0, MnuForm.hwnd, menRect) '激活弹出菜单
    End If
End Sub

利用表单中的菜单项实现弹出式菜单

如果表单的菜单中包含了弹出菜单所需的菜单项，那么可以通过CreatePopupMenu函数生成一个空的pop-up menu，然后利用GetMenuItemInfo函数从表单的菜单中获得相应菜单项的内容，再用InsertMenuItem函数将菜单项加入到pop-up menu中，最后使用TrackPopupMenu函数激活弹出式菜单。
下面的例子演示当在表单中单击鼠标右键时，在鼠标点位置显示弹出式菜单，此弹出式菜单是通过调用表单中的若干菜单项得到的。要试验这个例子，需要创建一个表单。在表单中加入一个菜单控件，将其命名为MnuFile，在MnuFile中至少要包含一个子菜单，将其命名为MnuOpen，MnuOpen的Caption值为“&Open”。添加一个模块（Module），在模块的Declaration区域添加如下代码：

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Public Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public 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, lprc As RECT) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long

在表单的声明（Declaration）区域添加如下代码：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim IX As Integer, IY As Integer
    Dim hMenu As Long, hSubMenu As Long, PMenu As Long
    Dim theR As Long
    Dim menRect As RECT
    Dim MnuItmInfo As MENUITEMINFO, TempMnuItmInfo As MENUITEMINFO
    Dim Dummy As Variant
    If Button And vbRightButton Then
        ScaleMode = vbTwips
        IX = (X + Left) \ Screen.TwipsPerPixelX
        IY = (Y + Top) \ Screen.TwipsPerPixelY
        PMenu = CreatePopupMenu()    '生成一个空弹出菜单
        hMenu = GetMenu(Form1.hwnd) '获得Form1的菜单句柄保存于hMenu
        hSubMenu = GetSubMenu(hMenu, 0) '获得hMenu的第一个子菜单的句柄保存于hSubMenu
        With TempMnuItmInfo
            .cbSize = Len(TempMnuItmInfo)
            .dwTypeData = Space$(10)
            .fMask = 126 '获得所有元素的值
            .cch = 10
        End With
        MnuItmInfo = TempMnuItmInfo
        Dummy = GetMenuItemInfo(hSubMenu, 0, True, MnuItmInfo) '获得hSubMenu第一个菜单
        Dummy = InsertMenuItem(PMenu, 0, True, MnuItmInfo) '项的信息，将其插入到PMenu
        .
        .
        .
        MnuItmInfo = TempMnuItmInfo
        Dummy = GetMenuItemInfo(hSubMenu, n, True, MnuItmInfo) '获得hSubMenu第n-1个菜
        Dummy = InsertMenuItem(PMenu, n, True, MnuItmInfo) '单项的信息，将其插入到PMenu
        theR = TrackPopupMenu(PMenu, 2, IX, IY, 0, Form1.hwnd, menRect) '激活弹出菜单
        Dummy = DestroyMenu(PMenu)
    End If
End Sub

历史上的今天

this.p={  m:2,
              b:2,
              loftPermalink:'',
              id:'fks_087066086082087066081082082071072085089065080081086070092',
              blogTitle:'【引用】在VB6.0中实现弹出式菜单的几种方法',
              blogAbstract:'\r\n<DIV\>\r\n<P\>在Windows应用程序中，利用弹出式菜单（Pop-up Menu）是增加软件易用性的一个重要方式。本文将向大家介绍在VB6.0中实现弹出式菜单的几种方法。</P\>\r\n<H2\>利用VB6.0内置的PopupMenu方法</H2\>\r\n<P\>PopupMenu方法（Method）是VB6.0内置的实现弹出式菜单的方法，用于在MDIForm或Form等对象中的鼠标点位置或指定位置显示弹出式菜单。其语法为：<BR\><EM\>Object</EM\><STRONG\>.PopupMenu</STRONG\> <EM\>menuname, flags, x, y, boldcommand</EM\><BR\>说明如下：</P\>\r\n<DIV align=\"center\" \>\r\n<TABLE border=\"1\" cellSpacing=\"0\" cellPadding=\"0\" \>\r\n</TABLE\></DIV\></DIV\>',
              blogTag:'',
              blogUrl:'blog/static/3824705820124118564161',
              isPublished:1,
              istop:false,
              type:2,
              modifyTime:1361433170771,
              publishTime:1336697893940,
              permalink:'blog/static/3824705820124118564161',
              commentCount:0,
              mainCommentCount:0,
              recommendCount:0,
              bsrk:-100,
              publisherId:0,
              recomBlogHome:false,
              currentRecomBlog:false,
              attachmentsFileIds:[],
              vote:{},
              groupInfo:{},
              friendstatus:'none',
              followstatus:'unFollow',
              pubSucc:'',
              visitorProvince:'',
              visitorCity:'',
              visitorNewUser:false,
              postAddInfo:{},
              mset:'000',
              mcon:'',
              srk:-100,
              remindgoodnightblog:false,
              isBlackVisitor:false,
              isShowYodaoAd:false,
              hostIntro:'',
              hmcon:'0',
              selfRecomBlogCount:'0',
              lofter_single:'<iframe width="140" height="560" style="overflow:hidden;" src="http://www.lofter.com/mailEntry.do?blogad=1&blog" frameBorder="0"></iframe>'
            }

{list a as x}
    {if !!x}
    <div class="iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
      {if x.visitorName==visitor.userName}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.visitorNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.visitorName)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        {if x.moveFrom=='wap'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/wapblog.html?frompersonalbloghome"><span title="来自网易手机博客" class="iblock wapIcon"> </span></a>
        {elseif x.moveFrom=='iphone'}
          <a class="noul pnt" target="_blank"><span title="来自iPhone客户端" class="iblock iphoneIcon"> </span></a>
        {elseif x.moveFrom=='android'}
          <a class="noul pnt" target="_blank"><span title="来自Android客户端" class="iblock androidIcon"> </span></a>
        {elseif x.moveFrom=='mobile'}
          <a class="noul pnt" target="_blank" href="http://blog.163.com/services/emsblog.html?frompersonalbloghome"><span title="来自网易短信写博" class="iblock wapIcon"> </span></a>
        {/if}
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.visitorName}/">
          ${fn(x.visitorNickname,8)|escape}
        </a>
      </div>
    </div>
    {/if}
    {/list}

<#--最新日志，群博日志--> <#--推荐日志-->

<p class="fc06">推荐过这篇日志的人：</p>
    <div>
      {list a as x}
      {if !!x}
      <div class="iblock nbw-fce nbw-f40">
        <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
        <img alt="${x.recommenderNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.recommenderName)}"/>
        </a>
        <div class="cwd thide">
          <a class="fc03 m2a" target="_blank" hidefocus="true" href="http://blog.163.com/${x.recommenderName}/">
            ${fn(x.recommenderNickname,6)|escape}
          </a>
        </div>
      </div>
      {/if}
      {/list}
    </div>
    {if !!b&&b.length>0}
    <p  class="fc06">他们还推荐了：</p>
    <ul>
    {list b as y}
      {if !!y}
        <li class="rrb"><span class="iblock">·</span><a class="fc03 m2a" target="_blank" href="http://blog.163.com/${y.recommendBlogPermalink}/?from=blog/static/3824705820124118564161">${y.recommendBlogTitle|escape}</a></li>
      {/if}
    {/list}
    </ul>
    {/if}

<#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇，下一篇--> <#-- 热度 -->

{list a as x}
    {if !!x}
    <div class="hotItem iblock nbw-fce nbw-f40">
      <a class="fc03 noul" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
      {if x.publisherUsername==visitor.userName}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}&r=${visitor.imageUpdateTime}"/>
      {else}
      <img alt="${x.publisherNickname|escape}" onerror="this.src=location.f40" class="cwd bdwa bdc0" src="${fn1(x.publisherUsername)}"/>
      {/if}
      </a>
      <div class="cwd vname thide">
        <a class="fc03 m2a"  target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/">
          ${fn(x.publisherNickname,8)|escape}
        </a>
      </div>
      <a class="f-myLikeIcons hottype {if x.type==1} js-liketype{elseif x.type==2} js-reblogtype{elseif x.type==3} js-sharetype{else}{/if}" target="_blank" hidefocus="true" href="http://blog.163.com/${x.publisherUsername}/"> </a>
    </div>
    {/if}
    {/list}

<#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->

页脚

我的照片书 - 手机博客 - 下载LOFTER APP - 订阅此博客

miaozk2006

导航

日志

【引用】在VB6.0中实现弹出式菜单的几种方法

利用VB6.0内置的PopupMenu方法

利用Windows API函数

三．利用工程（Project）中其他表单的菜单作为当前表单的弹出菜单

利用表单中的菜单项实现弹出式菜单

历史上的今天

最近读者

热度

评论

页脚