嘘~ 小破站正在拼命加载中 . . .

【PB案例学习笔记】-28制作一个右键菜单

PowerBuilder 控件 PB 右键菜单
PowerBuilder 右键菜单 控件 PB
发布日期:   2024-06-13
更新日期:   2024-10-09
文章字数:   2.1k
阅读时长:   8 分
阅读次数:  

写在前面

这是PB案例学习笔记系列文章的第28篇，该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习，提高编程技巧，以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码，小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

gitee代码仓库

需要源代码的小伙伴们可以自行下载查看，后续文章涉及到的案例代码也都会提交到这个仓库【**pb-project-example**】

如果对小伙伴有所帮助，希望能给一个小星星⭐支持一下小凡。

一、小目标

基本上所有的应用程序在点击鼠标右键之后都会弹出一个菜单，本案例我们将使用PB实现这个功能。通过鼠标右键，弹出一个命令菜单，

菜单上包含“剪切”、“复制”、“粘贴”、“加粗”等操作标识。这在日常开发中是一个非常常见的功能，一定要学会哈。

最终效果如下所示

右键菜单

二、实现思路

我们将通过引用user32.dll中的GetMenu、GetSubMenu、TrackPopupMenu、GetSystemMetrics等窗体操作函数和LoadImageA、

SetMenuItemBitmaps等图形显示函数来实现相关功能。具体函数功能如下

① GetMenu函数

用于获取与特定窗口关联的菜单句柄

函数原型：

HMENU GetMenu(HWND hWnd);

参数说明:

hWnd: 一个窗口句柄，指定了要查询其菜单的窗口。

返回值:

成功时，返回窗口的菜单句柄(HMENU)。如果没有菜单关联到该窗口，则返回NULL。

② GetSubMenu函数

用于从主菜单中获取指定位置的子菜单

函数原型：

HMENU GetSubMenu(HMENU hMenu, int nPos);

参数说明:

  • hMenu: 主菜单的句柄，即之前通过GetMenu或其他方式获得的菜单句柄。
  • nPos: 一个整数，表示要获取的子菜单在其父菜单中的位置索引，其中0通常是第一个子菜单（顶级菜单项）。

返回值

成功时，返回指定位置的子菜单句柄(HMENU)。如果索引无效或没有子菜单，则返回NULL。

③ TrackPopupMenu函数

用于在一个指定的位置显示一个弹出式菜单，并跟踪用户的选择。

函数原型:

BOOL TrackPopupMenu(
  HMENU hMenu,
  UINT uFlags,
  int x,
  int y,
  int nReserved,
  HWND hWnd,
  CONST RECT* prcRect
);

参数说明：

  • hMenu: 要显示的弹出菜单的句柄。
  • uFlags: 控制菜单显示方式的标志，如TPM_LEFTALIGN、TPM_RIGHTBUTTON等。
  • x, y: 菜单左上角的屏幕坐标，相对于屏幕原点或指定窗口客户区。
  • nReserved: 在旧版本中保留，应设为0。
  • hWnd: 与菜单显示相关的窗口句柄，用于消息处理。
  • prcRect（旧版）/lptpm（新版，包含x, y, flags, rect等更详细信息的结构体）: 用于指定额外的显示参数或限制区域。

返回值：

如果用户选择了菜单项并成功处理，返回非零值；否则，返回0。通常需要检查GetLastError来确定失败原因。

④ GetSystemMetrics函数

用于获取有关当前系统的各种度量信息和配置设置。这些信息涵盖了显示器分辨率、颜色深度、鼠标和键盘状态、操作系统版本特性等多个方面。

函数原型:

int GetSystemMetrics(int nIndex);

参数说明：

nIndex: 一个整型参数，作为索引值，指定了想要获取的系统度量信息类型。不同的索引值对应不同的系统配置或状态信息。

返回值：

函数根据nIndex所指定的索引值，返回相应的系统度量信息值。返回值类型通常是整数。

⑤ LoadImageA函数

用于加载光标、图标、位图或图元文件资源。

函数原型：

HANDLE LoadImageA(
  HINSTANCE hinst,
  LPCSTR lpszName,
  UINT uType,
  int cxDesired,
  int cyDesired,
  UINT fuLoad
);

参数说明：

  • hinst: 一个模块实例句柄，通常为NULL以加载系统资源，或指定的DLL句柄来加载该DLL中的资源。
  • lpszName: 指向资源名称（文件名或资源ID，如图标ID）的指针，可以是字符串或整数资源ID（需要转换为LPCTSTR）。
  • uType: 指定要加载的图像类型，可以是IMAGE_BITMAP, IMAGE_ICON, IMAGE_CURSOR, 或 IMAGE_ENHMETAFILE。
  • cxDesired, cyDesired: 指定希望加载图像的宽度和高度（以像素为单位）。如果为0，则使用图像的实际大小。
  • fuLoad: 加载标志，如LR_CREATEDIBSECTION, LR_LOADFROMFILE, LR_DEFAULTSIZE等，用于控制加载行为。

返回值：

成功时返回图像句柄（HBITMAP, HCURSOR, HICON, 或 HENHMETAFILE），失败则返回NULL。

⑥ SetMenuItemBitmaps函数

用于设置菜单项的位图图像的API，可以为菜单项的正常状态和选中（或按下）状态指定不同的位图

函数原型：

BOOL SetMenuItemBitmaps(
  HMENU hMenu,
  UINT uPosition,
  UINT uFlags,
  HBITMAP hBitmapUnchecked,
  HBITMAP hBitmapChecked
);

参数说明：

  • hMenu: 要修改的菜单的句柄。
  • uPosition: 要设置位图的菜单项的位置索引，从0开始计数。
  • uFlags: 指定要设置哪一组位图的标志，可以是MF_BYCOMMAND（基于菜单项的ID查找）或MF_BYPOSITION（直接使用位置索引）。
  • hBitmapUnchecked: 未选中状态下菜单项的位图句柄。
  • hBitmapChecked: 选中或按下状态下菜单项的位图句柄。

返回值：

函数执行成功返回非零值，失败返回0。可以通过GetLastError获取详细的错误信息

三、创建程序基本框架

① 新建examplework工作区

② 新建exampleapp应用

③ 新建w_main窗口，将其Title设置为”右键菜单”

由于文章篇幅原因，以上步骤不再赘述，如果忘记了的小伙伴可以翻一翻该系列第一篇文章复习一下

④ 新建w_popmenu窗口

⑤ 在w_mian窗口中布局控件

新建一个MultiLineEdit控件和一个CommandButton控件，名称分别为mle_1和cb_1,调整控件布局，

并将cb_1的Text设置为”关闭”

控件布局

⑥ 设置w_popmenu窗口属性

将w_popmenu窗口缩小成一个小方块，并在MenuName属性栏中添加菜单m_popmenu

⑦ 保存w_popmenu窗口

w_popmenu窗口

⑧ 新建m_popmenu菜单如下图所示

新建菜单

四、编写代码

① 在w_main窗口中定义实例变量，代码如下

ulong il_popmenu_window_hwnd

② 在w_main窗口中定义外部函数

FUNCTION ulong GetMenu(ulong hwnd) LIBRARY "user32.dll"

FUNCTION ulong GetSubMenu(ulong hMenu,ulong nPos) LIBRARY "user32.dll"

FUNCTION ulong TrackPopupMenu(ulong hMenu,ulong wFlags,ulong x,ulong y,ulong nReserved,ulong hwnd,ref Rect lprc) LIBRARY "user32.dll"

③ 在w_main窗口的Open中添加如下代码

open(w_popmenu)

il_popmenu_window_hwnd = handle(w_popmenu)

④ 在w_main窗口的close事件中添加如下代码

close(w_popmenu)

⑤ 在mle_1控件的rbuttondown事件中输入如下代码

ulong hmenu,hsubmenu,hwnd
integer li_x,li_y

RECT l_rect
l_rect.left = 0
l_rect.top = 0
l_rect.right = 0
l_rect.bottom = 0

hmenu = getmenu(il_popmenu_window_hwnd)
hsubmenu = getsubmenu(hmenu, 0)

li_x = (xpos + parent.x) / 5
li_y = (ypos + parent.y) / 5

TrackPopupMenu(hsubMenu, 2, li_x, li_y, 0, il_popmenu_window_hwnd, l_rect)

⑥ 在cb_1按钮的clicked中添加如下代码

close(parent)

return 0

⑦ 在w_popmenu窗口中定义实例变量

//Win32
CONSTANT Integer IMAGE_BITMAP       = 0
CONSTANT Integer LR_LOADFROMFILE = 16
CONSTANT Integer SM_CXMENUCHECK  = 71
CONSTANT Integer SM_CYMENUCHECK    = 72
CONSTANT Integer MF_BITMAP            = 4
CONSTANT Integer MF_BYPOSITION    = 1024

⑧ 在w_popmenu窗口中定义外部函数

FUNCTION ulong LoadImageA(ulong hintance, string filename,uint utype,int x,int y,uint fload)  LIBRARY "USER32.DLL"

FUNCTION boolean SetMenuItemBitmaps(ulong hmenu,uint upos,uint flags,ulong handle_bm1,ulong handle_bm2)  LIBRARY "USER32.DLL"

FUNCTION int GetSystemMetrics(  int nIndex ) LIBRARY "USER32.DLL"

FUNCTION int GetSubMenu(ulong hMenu,int pos) LIBRARY "USER32.DLL"

FUNCTION ulong GetMenu(ulong hWindow) LIBRARY "USER32.DLL"

⑨ 在w_popmenu窗口的open事件中添加如下代码并准备图片

准备图片

注：图片资源会一起推送到gitee仓库，需要图片资源的小伙伴克隆仓库即可获取


long        ll_MainHandle
long        ll_SubMenuHandle
long        ll_X
long        ll_Y
long        ll_Bitmapcut
long        ll_Bitmapcopy
long        ll_Bitmappaste
long        ll_Bitmapitl
long         ll_bitmapcnt
long        ll_bitmapunderline

this.visible = false


ll_MainHandle = GetMenu(Handle(this))


ll_SubMenuHandle = GetSubMenu(ll_MainHandle,0)


ll_x = GetSystemMetrics(SM_CXMENUCHECK) 
ll_y = GetSystemMetrics(SM_CYMENUCHECK) 


ll_Bitmapcut = LoadImageA(0,'cut.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_Bitmapcopy = LoadImageA(0,'copy.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_Bitmappaste = LoadImageA(0,'paste.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_Bitmapitl = LoadImageA(0,'itl.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_Bitmapcnt = LoadImageA(0,'big.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_bitmapunderline = LoadImageA(0,'ul.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)

SetMenuItemBitmaps(ll_SubMenuHandle,0,MF_BYPOSITION,ll_Bitmapcut,ll_Bitmapcut)
SetMenuItemBitmaps(ll_SubMenuHandle,1,MF_BYPOSITION,ll_Bitmapcopy,ll_Bitmapcopy)
SetMenuItemBitmaps(ll_SubMenuHandle,2,MF_BYPOSITION,ll_Bitmappaste,ll_Bitmappaste)
SetMenuItemBitmaps(ll_SubMenuHandle,4,MF_BYPOSITION,ll_Bitmapitl,ll_Bitmapitl)
SetMenuItemBitmaps(ll_SubMenuHandle,5,MF_BYPOSITION,ll_Bitmapcnt,ll_Bitmapcnt)
SetMenuItemBitmaps(ll_SubMenuHandle,6,MF_BYPOSITION,ll_Bitmapunderline,ll_Bitmapunderline)

⑩ 在开发界面左边的SystemTree窗口中双击exampleapp应用对象，并在其open事件中添加如下代码

open(w_main)

五、运行程序

经过一波代码编写之后，我们来验证下结果

右键菜单

本期内容到这儿就结束了★,°:.☆(￣▽￣)/$:.°★ 。 希望对您有所帮助

我们下期再见 ヾ(•ω•`)o (●’◡’●)

文章作者: xiezhr
文章链接: https://www.xiezhrspace.cn/archives/70ecba58.html
版权声明: 本博客所有文章除特別声明外，均采用 CC BY 4.0 许可协议。转载请注明来源 xiezhr !
PowerBuilder 控件 PB 右键菜单
赏
评论
  目录