菜单的问题，在线求救！急！各位帮忙！

Question

菜单有tag属性吗？没用过，学习

Answer 1

得到菜单的标签和得到菜单的tag不是同一个概念吧。
tag是方便你编程用的，你可以存储一些临时的数据放在里面，而不用定义变量。如下就是对tag的很好的利用在某个窗体中单击Button
private sub Button_click()
     Form1.Tag="1"
     Form1.show
end sub'//在Form1窗体中
private sub Form_load()
select case lcase(me.tag)
    case "1"
        '//只显示属性页的第一页
    case "2"
        '//只显示属性页的第二页
    case else
        '//显示所有属性页
end select
end sub

Answer 2

通过菜单句柄
可以用
Private Declare Function GetMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" Alias "GetMenu" (ByVal hwnd As Long) As LongPublic Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As LongPublic Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As LongPublic 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参考
http://www.jiujiang.gov.cn/hjp/vbvf/vb/MENUITEMINFO.htm

Answer 3

  顶楼的，按照你的要求，为什么需要菜单的句柄？菜单的句柄是在要写API的时候才用得上。  你直接这样写不可以吗？  if menu1.tag=1 then
     menu1.text=werwer
  elseif menu1.tag=10 then
  ……
  end if

Answer 4

我就是想通过菜单的句柄来操作菜单，事实上我现在只能得到菜单的句柄，因为我是在DLL中操作菜单的，我把菜单的句柄传递给Dll中的函数，希望对菜单的某些项进行一些操作，那样就涉及到一个识别菜单的问题，我想通过某一个标志来识别哪些菜单项是我要对它进行操作的。而这个标志我想要能在前台程序中自己设置。求救！！！！！！！！！！！！！

Answer 5

www.21code.com上面有很多的例子，自己看看吧。

Answer 6

tag是VB才有的
Windows系统怎么知道

Answer 7

菜单还有没有其他标志可以供设置并在程序中使用的？
我要求在API中能使用，不是VB自带的。
谢谢大家，快帮忙！谢谢！

Answer 8

Up是什么鸟意思？没事情光Up 干什么！无聊！