flyingleaf's blog

在Window API中，有一些名词要先清楚，假设有一功能表如下：

档案   编辑 选项  --> hMenu    (功能表)
      +-------+
      |复制   |---------> hSubMenu (子功能表)
      |贴上   |
      |减下 -------------> MenuID   (功能表项目)
      |       |
      +-------+

如果，我们使用vb的功能表编辑器做出上面的Menu，那 hMenu的取得使用GetMenu() API
，而hSubMenu 的取得是 GetSubMenu，而GetSubMenu()的第二个叁数指的是功能表的第
几个子功能表，以上例来说，编辑子功能表是第1个子功能表(以0为基准)，所以编辑子
功能表的取得应用以下的呼叫 ：

hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 1) '取得编辑子功能表的hSubMenu

而功能表项目则由以下的呼叫取得，第二叁数指的是该子功能表的第几个项目(以0
开始)，故复制 功能表项目 = 0  减下 = 2

MenuId = GetMenuItemID(hSubMenu, 0) '取得复制 的hMenuId

接着便是以ModifyMenu来更动MenuId成BitMap的方式

Set Pic1 = LoadPicture("E:cli.bmp")
ModifyMenu hSubMenu, 0, MF_BITMAP Or MF_BYPOSITION, MenuId, pic1.Handle

ModifyMenu 第二个叁数  表示更动hSubMenu所指的子功能表中第几个功能表项目
   第三个叁数  MF_BITMAP 表示用BitMap的方式显示
       MF_STRING 表示用字串方式显示
       MF_BYPOSITION 表示第二个叁数的值代表是依位置来算
   第四个叁数  MenuId
   第五个叁数  显示图的hBitMap

另外，如何做到MenuItem的左方有一小Bitmap，右方仍是字串呢，使用以下的API

SetMenuItemBitmaps(

    hSubMenu as Long ,    // handle of 子功能表
    uItem    as Long ,    // 更动第几个Menu Item
    fuFlags as Long,    // menu item flags
    hbmUnchecked as Long,  // handle of unchecked bitmap
    hbmChecked as Long    // handle of checked bitmap
   )

Set Pic2 = LoadPicture("e:cli2.BitMap")

Call SetMenuItemBitmaps(hSubMenu, 1, MF_BYPOSITION,pic2.Handle, Pic2.Handle)

这里有一个地方要特别注意，到底hbmUnchecked/hbmchecked 所指的BitMap图有多大呢，
如果pic2所放入的BitMap太大，那不会出现我们想要的图，那得自己想办法缩图；而使
用以下的API可以取得Menu Item左边Bitmap图的大小(By Pixels)

i = GetMenuCheckMarkDimensions
wd5 = i Mod 2 ^ 16  '宽
hi5 = i / 2 ^ 16    '高

而我们Load进来的图之宽 Me.ScaleX(pic2.Width, vbHimetric, vbPixels)
    高 Me.ScaleY(pic2.Height, vbHimetric, vbPixels)

於是呢，我写了一个GetBitMapHandle 来取得hbmUnchecked/hbmchecked所需的BitMap
Handle，而且该hBitMap所指的图，大小刚好是系统内定的大小，而不必在乎原始的图
有多大，当然了，一定要使用BitMap图，不可使用icon/gif等之类的图，这是什麽原
因呢，这是因为我使用StdPicture物件来开启图形档，如果图形档是BitMap图，那麽，
stdPicture物件的Handle属性便是hBitmap。
而要看得懂我GetBitMapHandle的程式，首先请先查阅我另一篇文章Memory Dc与hBitmap
 (查看全文)

         这个问题是CSDN网友MattHgh (黎明破晓前)提出来的，这个问题其实有很多种解决的办法，这里我用WH_SHELL钩子解决，WH_SHELL钩子可以获得很多信息，比如窗口创建、窗口销毁、窗口被激活、窗口的标题栏被重绘等等，但是这些信息都是基于窗口的，而MattHgh 希望同时获得相应的程序。那么怎么根据窗口的句柄的句柄获得对应的程序路径呢，这个当然可以通过枚举所有的进程获得，不过这样一来，速度就慢上一些了，我在程序中用到的是另外一种方法，这种方法尽管很平常，但我估计有些朋友可能还不知道，所以下面我用程序简单的说明一下：

'根据窗口句柄获取对应的程序路径，只适用于NT平台
Public Function GetEXEFromHandle(Optional ByVal nHWnd As Long = 0) As String
    Dim nProcID As Long
    Dim nResult As Long
    Dim nTemp As Long
    Dim lModules(1 To 200) As Long
    Dim sFile As String
    Dim hProcess As Long  '
    If nHWnd = 0 Then nHWnd = GetForegroundWindow()
    '获得窗口的ProcessID
    If GetWindowThreadProcessId(nHWnd, nProcID) <> 0 Then
        '打开Process，获得窗口对应的进程句柄
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or _
        PROCESS_VM_READ, 0, nProcID)
        If hProcess <> 0 Then
            ' 获得窗口对应的Module
            nResult = EnumProcessModules(hProcess, lModules(1), _
              200, nTemp)
            If nResult <> 0 Then
                 '获得程序名
                sFile = Space$(260)
                nResult = GetModuleFileNameEx(hProcess, 0, sFile, Len(sFile))
                sFile = LCase$(Left$(sFile, nResult))
                GetEXEFromHandle = sFile
            End If
            '关闭Process
            CloseHandle hProcess
        End If
    End If
End Function

        请注意函数开始时的注释，这种方法只适用于NT平台，所以用win9x的朋友还是老老实实的枚举进程吧，这样的代码在网上很容易找到，这里我就不罗嗦了。
        下面说说WH_SHELL钩子，MSDN上对这个钩子的描述是这样的：

 (查看全文)

下列快捷组合键可在文本编辑器中用于在打开的文档中删除、移动或者格式化文本。

• 主页面
• 文章汇整
• 文件夹
• 网站链接
• 管理介面

输入您的搜索字词 提交搜索表单

Web coolbean.blog.gsschool.cn

«	八月 2007					»
一	二	三	四	五	六	日
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31

• Firebug IE 版--- Internet Explorer Developer Toolbar
• DIV CSS设计时IE6、IE7、FF 与兼容性有关的特性
• "FCKeditor is not defined" on joomla frontend page[solved]
• FCKeditor 的配置和使用方法
• Joomla & Mambo页面布局教程
• Setting Up Joomla RSS Feed
• 开源软件历史十大杰出人物
• php截取UTF-8编码的中英文字符串
• 令人哭笑不得的便条
• DIV+CSS布局-- 关于ID和CLASS

最新评论

• jdlbdrss： jdlbdrss 胶体磨
• jdlbdrss： jdlbdrss 胶体磨
• SDF1： 灵芝孢子粉 ,还在市
• SDF1： 灵芝孢子粉 ,还在市
• fsd： 灵芝孢子粉 ,还在市
• qyulvfd： qyulvfd 胶体磨
• 不孕不育的检查项目：
• 不孕不育的检查项目：
• wbsgyng： wbsgyng 胶体磨
• wbsgyng： wbsgyng 胶体磨

• 开源文化 [61]
• VB & Mysql [11]
• 甜咸杂进 [22]
• 非每日记 [1]
• 上帝发笑 [1]
• Joomla/Mambo [0]

• RSS 0.90
• RSS 1.0
• RSS 2.0
• Atom