开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 浏览器 > 查看源码
MenuApi.bas
资源名称：IE_VB.rar　[点击查看]
上传用户：davilee3
上传日期：2015-04-22
资源大小：986k
文件大小：13k
源码类别：

浏览器

开发平台：

Visual Basic

MenuApi.bas：源码内容
  1. Attribute VB_Name = "mMenuApi"
  2. '---------------------------------------------------------------------------------------
  3. ' Module    : mMenuApi
  4. ' DateTime  : 2005-4-19 19:02
  5. ' Author    : Lingll
  6. ' Purpose   :
  7. '---------------------------------------------------------------------------------------
  9. Option Explicit
  11. '== 菜单 =======================================
  12. '-= 取得ID =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  13. 'GetMenu          取得窗口中一个菜单的句柄。返回值：Long，依附于指定窗口的一个菜单的句柄（如果有菜单）；否则返回零。
  14. 'GetSubMenu       取得一个弹出式菜单的句柄，它位于菜单中指定的位置。返回值：Long，位于指定位置的弹出式菜单的句柄（如果有的话）；否则返回零
  16. Public Declare Function GetMenuInfo Lib "user32.dll" (ByVal hMenu As Long, ByRef LPMENUINFO As MENUINFO) As Long
  17. Public Declare Function SetMenuInfo Lib "user32.dll" (ByVal hMenu As Long, ByRef LPCMENUINFO As MENUINFO) As Long
  20. Public Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
  21. Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  22. 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
  23. Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  24. Public Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
  25. Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
  26. Public Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
  27. Public Declare Function CreatePopupMenu Lib "user32" () As Long
  28. Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
  29. Public Declare Function CreateMenu Lib "user32" () As Long
  30. Public Declare Function SetMenu Lib "user32" (ByVal hWnd As Long, ByVal hMenu As Long) As Long
  31. Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
  32. Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
  33. Public Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
  34. Public Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
  35. Public Declare Function CheckMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long
  37. Public Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
  38. Public 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
  40. Public Declare Function IsMenu Lib "user32" (ByVal hMenu As Long) As Long
  41. Public Declare Function MenuItemFromPoint Lib "user32" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal ptX As Long, ByVal ptY As Long) As Long
  44. Public Declare Function GetMenuItemRect Lib "user32.dll" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal uItem As Long, ByRef lprcItem As RECT) As Long
  48. '-= 属性 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  49. 'GetMenuItemInfo    用一个MENUITEMINFO结构取得（接收）与一个菜单条目有关的特定信息。返回值：Long，TRUE（非零）表示成功，否则返回零。
  50. 'SetMenuItemInfo    为一个菜单条目设置指定的信息，具体信息保存于MENUITEMINFO结构中。返回值：Long，TRUE（非零）表示成功，否则返回零。
  51. 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
  52. Public Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
  54. '-- ODS_ ---------------------------------------
  55. Public Const ODS_SELECTED = &H1 '菜单被选择
  56. Public Const ODS_GRAYED = &H2   '灰色字
  57. Public Const ODS_DISABLED = &H4 '禁用
  58. Public Const ODS_CHECKED = &H8  '选中
  59. Public Const ODS_FOCUS = &H10   '聚焦
  61. '-= ODT_ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  62. Public Const ODT_MENU = 1
  63. Public Const ODT_LISTBOX = 2
  64. Public Const ODT_COMBOBOX = 3
  65. Public Const ODT_BUTTON = 4
  67. '-- MF_ ----------------------------------------
  68. Public Const MF_BYCOMMAND = &H0&         '菜单条目由菜单的命令ID指定
  69. Public Const MF_BYPOSITION = &H400&      '菜单条目由条目在菜单中的位置决定。零代表菜单中的第一个条目
  71. Public Const MF_CHECKED = &H8&           '检查指定的菜单条目。不能与VB的Checked属性兼容
  72. Public Const MF_DISABLED = &H2&          '禁止指定的菜单条目。不与VB的Enabled属性兼容
  73. Public Const MF_ENABLED = &H0&           '允许指定的菜单条目。不与VB的Enabled属性兼容
  74. Public Const MF_GRAYED = &H1&            '禁止指定的菜单条目，并用浅灰色描述它。不与VB的Enabled属性兼容
  75. Public Const MF_HILITE = &H80&
  76. Public Const MF_SEPARATOR = &H800&       '在指定的条目处显示一条分隔线
  77. Public Const MF_STRING = &H0&            '在指定的条目处放置一个字串。不与VB的Caption属性兼容
  78. Public Const MF_UNCHECKED = &H0&         '检查指定的条目。不能与VB的Checked属性兼容
  79. Public Const MF_UNHILITE = &H0&
  81. Public Const MF_BITMAP = &H4&            '菜单条目是一幅位图。一旦设入菜单，这幅位图就绝对不能删除。所以不应该使用由VB的Image属性返回的值
  82. Public Const MF_OWNERDRAW = &H100&       '创建一个物主绘图菜单（由您设计的程序负责描绘每个菜单条目）
  83. Public Const MF_USECHECKBITMAPS = &H200&
  85. Public Const MF_MENUBARBREAK = &H20&     '在弹出式菜单中，将指定的条目放置于一个新列，并用一条垂直线分隔不同的列
  86. Public Const MF_MENUBREAK = &H40&        '在弹出式菜单中，将指定的条目放置于一个新列。在顶级菜单中，将条目放置到一个新行
  88. Public Const MF_POPUP = &H10&            '将一个弹出式菜单置于指定的条目。可用于创建子菜单及弹出式菜单
  89. Public Const MF_HELP = &H4000&
  91. Public Const MF_DEFAULT = &H1000
  92. Public Const MF_RIGHTJUSTIFY = &H4000
  94. '-- MIIM_ -------------------------------------
  95. Public Const MIIM_STATE = &H1&     '设置或取得 fState                       | Sets or gets the fState field
  96. Public Const MIIM_ID = &H2         '设置或取得 wID                          | Sets or gets the wID field
  97. Public Const MIIM_SUBMENU = &H4    '设置或取得 hSubMenu                     | Sets or gets the hSubMenu field
  98. Public Const MIIM_CHECKMARKS = &H8 '设置或取得 hbmpChecked 与 hbmpUnchecked | Sets or gets the hbmpChecked and hbmpUnchecked fields
  99. Public Const MIIM_TYPE = &H10      '设置或取得 fType 与 dwTypeData          | Sets or gets the fType and dwTypeData fields
  100. Public Const MIIM_DATA = &H20      '设置或取得 dwItemData                   | Sets or gets the dwItemData field
  101. Public Const MIIM_STRING = &H40
  102. Public Const MIIM_BITMAP = &H80
  103. Public Const MIIM_FTYPE = &H100
  105. '-- MFT_ ---------------------------------------
  106. Public Const MFT_STRING = MF_STRING
  107. Public Const MFT_BITMAP = MF_BITMAP
  108. Public Const MFT_MENUBARBREAK = MF_MENUBARBREAK
  109. Public Const MFT_MENUBREAK = MF_MENUBREAK
  110. Public Const MFT_OWNERDRAW = MF_OWNERDRAW
  111. Public Const MFT_RADIOCHECK = &H200
  112. Public Const MFT_SEPARATOR = MF_SEPARATOR
  113. Public Const MFT_RIGHTORDER = &H2000
  114. Public Const MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY
  116. '-- MFS_ ---------------------------------------
  117. Public Const MFS_GRAYED = MF_GRAYED
  118. Public Const MFS_DISABLED = MF_DISABLED
  119. Public Const MFS_CHECKED = MF_CHECKED
  120. Public Const MFS_HILITE = MF_HILITE
  121. Public Const MFS_ENABLED = MF_ENABLED
  122. Public Const MFS_UNCHECKED = MF_UNCHECKED
  123. Public Const MFS_UNHILITE = MF_UNHILITE
  124. Public Const MFS_DEFAULT = MF_DEFAULT
  125. 'Public Const MFS_MASK = &H108B
  126. 'Public Const MFS_HOTTRACKDRAWN = &H10000000
  127. 'Public Const MFS_CACHEDBMP = &H20000000
  128. 'Public Const MFS_BOTTOMGAPDROP = &H40000000
  129. 'Public Const MFS_TOPGAPDROP = &H80000000
  130. 'Public Const MFS_GAPDROP = &HC0000000
  132. Public Const MNS_NOTIFYBYPOS As Long = &H8000000
  133. Public Const MIM_STYLE As Long = &H10
  134. Public Const MIM_MENUDATA As Long = &H8
  137. Public Type MENUITEMINFO
  138.     cbSize As Long        '结构大小，通常为44字节
  139.     fMask As Long         '设置或取得某些参数，以 MIIM_ 开始的常量。
  140.     fType As Long         '类型，以 MFT_ 开始的常量。如：MFT_OWNERDRAW
  141.     fState As Long        '属性，以 MFS_ 开始的常量。如：MFS_CHECKED
  142.     wID As Long           '菜单的ID，高16位没有使用                         | Menu entry identifier. The high 16 bits are not used.
  143.     hSubMenu As Long      '是否有子菜单，若有为wID，否则为0                 | Handle to a pop-up menu if one is associated with the menu entry
  144.     hbmpChecked As Long   '选中图标的hBitMap
  145.     hbmpUnchecked As Long '非选中图标的hBitMap
  146.     dwItemData As Long    '这个项目关于用户定义的值                         | User-defined value associated with this entry.
  147.     dwTypeData As Long    '根据fType的值而定                                | Depends on the menu type
  148.     cch As Long           '如果fType为MFT_STRING，则为字符串的长度，否则为0 | Length of the menu string when MFT_STRING is specified. Zero for other menu types.
  149. End Type
  153. Public Type MENUINFO
  154.   cbSize As Long
  155.   fMask As Long
  156.   dwStyle As Long
  157.   cyMax  As Long
  158.   hbrBack As Long
  159.   dwContextHelpID As Long
  160.   dwMenuData As Long
  161. End Type
  164. Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As NONCLIENTMETRICS, ByVal fuWinIni As Long) As Long
  165. Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
  166. Private Const LF_FACESIZE As Long = 32
  167. Private Const SPI_GETNONCLIENTMETRICS As Long = 41
  169. Private Type LOGFONT
  170.     lfHeight As Long
  171.     lfWidth As Long
  172.     lfEscapement As Long
  173.     lfOrientation As Long
  174.     lfWeight As Long
  175.     lfItalic As Byte
  176.     lfUnderline As Byte
  177.     lfStrikeOut As Byte
  178.     lfCharSet As Byte
  179.     lfOutPrecision As Byte
  180.     lfClipPrecision As Byte
  181.     lfQuality As Byte
  182.     lfPitchAndFamily As Byte
  183.     lfFaceName(1 To LF_FACESIZE) As Byte
  185. End Type
  188. Private Type NONCLIENTMETRICS
  189.     cbSize As Long
  190.     iBorderWidth As Long
  191.     iScrollWidth As Long
  192.     iScrollHeight As Long
  193.     iCaptionWidth As Long
  194.     iCaptionHeight As Long
  195.     lfCaptionFont As LOGFONT
  196.     iSMCaptionWidth As Long
  197.     iSMCaptionHeight As Long
  198.     lfSMCaptionFont As LOGFONT
  199.     iMenuWidth As Long
  200.     iMenuHeight As Long
  201.     lfMenuFont As LOGFONT
  202.     lfStatusFont As LOGFONT
  203.     lfMessageFont As LOGFONT
  205. End Type
  208. '---------------------------------------------------------------------------------------
  209. ' Procedure : SetMenuType
  210. ' DateTime  : 2005-4-19 19:10
  211. ' Author    : Lingll
  212. ' Purpose   : 设置menu类型
  213. '---------------------------------------------------------------------------------------
  214. Public Sub SetMenuType(hMenu&, iItem&, fByPosition As Long, typeMask&, typeVal&)
  215. Dim mInfo As MENUITEMINFO
  217. With mInfo
  218.     .cbSize = Len(mInfo)
  219.     .fMask = MIIM_FTYPE
  220. End With
  222. Call GetMenuItemInfo(hMenu, iItem, fByPosition, mInfo)
  223. mInfo.fMask = MIIM_FTYPE
  224. mInfo.fType = ((mInfo.fType Or typeMask) Xor typeMask) Or typeVal
  226. Call SetMenuItemInfo(hMenu, iItem, fByPosition, mInfo)
  228. End Sub
  232. '---------------------------------------------------------------------------------------
  233. ' Procedure : GetMenuItemHeight
  234. ' DateTime  : 2005-4-19 21:55
  235. ' Author    : Lingll
  236. ' Purpose   :
  237. '---------------------------------------------------------------------------------------
  238. Public Function GetMenuItemHeight() As Long
  239.     
  240.     Dim nm As NONCLIENTMETRICS
  241.     
  242.     nm.cbSize = Len(nm)
  243.     Call SystemParametersInfo(SPI_GETNONCLIENTMETRICS, nm.cbSize, nm, 0)
  244.     
  245.     If nm.iMenuHeight > 19 Then
  246.         GetMenuItemHeight = nm.iMenuHeight
  247.     Else
  248.         GetMenuItemHeight = 19
  249.     End If
  251. End Function
  255. '---------------------------------------------------------------------------------------
  256. ' Procedure : GetMenuParam
  257. ' DateTime  : 2005-8-3 12:07
  258. ' Author    : Lingll
  259. ' Purpose   :
  260. '---------------------------------------------------------------------------------------
  261. Public Function GetMenuParam(hMenu&) As Long
  262. Dim tMnuInfo As MENUINFO
  263. With tMnuInfo
  264.     .cbSize = Len(tMnuInfo)
  265.     .fMask = MIM_MENUDATA
  266.     Call GetMenuInfo(hMenu, tMnuInfo)
  267.     GetMenuParam = .dwMenuData
  268. End With
  269. End Function
  271. '---------------------------------------------------------------------------------------
  272. ' Procedure : SetMenuParam
  273. ' DateTime  : 2005-8-3 12:07
  274. ' Author    : Lingll
  275. ' Purpose   :
  276. '---------------------------------------------------------------------------------------
  277. Public Function SetMenuParam(hMenu&, vData&) As Boolean
  278. Dim tMnuInfo As MENUINFO
  279. With tMnuInfo
  280.     .cbSize = Len(tMnuInfo)
  281.     .fMask = MIM_MENUDATA
  282.     .dwMenuData = vData
  283. End With
  284. SetMenuParam = _
  285.     (SetMenuInfo(hMenu, tMnuInfo) <> 0)
  286. End Function