易语言设置菜单图标 (取窗口句柄 (), 0, 0, #位图1)

wh1234567

易语言设置菜单图标 (取窗口句柄 (), 0, 0, #位图1) 想把图片组里的图片到菜单里， 为什么不对？正确如何写？

Ls60

wh1234567 发表于 2022-3-7 17:46
期待老师解决

搞掂！就是更换了一个子程序！怪不得弄不出来，原来要从读入文件（图片路径）获取的字节集与直接写入程序图片资源的字节集中获取图片句柄是是有差别的。同样都是字节集，可是操作方法却有差别：

下面是测试图：有些地方调试的时候删掉了，你自己补一下吧


贴上源码： 已修改1111.e (1.02 MB, 下载次数: 134)

2022-3-7 19:30 上传

点击文件名下载附件

不要忘了采纳啊亲，我这可是一个贴帮你解决两个问题（虽然说是我自己弄错了，⊙﹏⊙b汗

Ls60

你说的应该是这个dll吧

  

DLL命令名	返回值类型	公开	备 注
SetMenuItemBitmaps	逻辑型		设置菜单图标
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SetMenuItemBitmaps
参数名	类 型	传址	数组	备 注

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
菜单句柄	整数型
位置	整数型
标志	整数型
未选图标句柄	整数型
已选图标句柄	整数型

.版本 2<br /> .DLL命令 SetMenuItemBitmaps, 逻辑型, "user32.dll", "SetMenuItemBitmaps", 公开, 设置菜单图标<br /> .参数 菜单句柄, 整数型<br /> .参数 位置, 整数型<br /> .参数 标志, 整数型<br /> .参数 未选图标句柄, 整数型<br /> .参数 已选图标句柄, 整数型

一些相关的子程序

  

子程序名	返回值类型	公开	备 注
菜单_添加图标	逻辑型		在指定定的菜单处加入图标
参数名	类 型	参考	可空	数组	备 注
子菜单索引	整数型				子菜单索引
菜单句柄	整数型				欲添加图标的菜单句柄
未选图标句柄	整数型				未选中时的图标句柄,可以用 图标_取句柄() 命令取得 图标句柄
已选图标句柄	整数型				已选中时的图标句柄,可以用 图标_取句柄() 命令取得 图标句柄

返回 (SetMenuItemBitmaps (菜单句柄, 子菜单索引, 1024, 未选图标句柄, 已选图标句柄))

子程序名	返回值类型	公开	备 注
图片_取句柄	整数型		取图片句柄,成功返回图片句柄,失败返回0
参数名	类 型	参考	可空	数组	备 注
参_图片	字节集				欲添加为菜单图片的资源

变量名	类 型	静态	数组	备 注
局_对象	对象		0
局_句柄	整数型
局_成员数	整数型

局_成员数 ＝ 取数组成员数 (局_对象) ＋ 1
重定义数组 (局_对象, 真, 局_成员数)
CoInitialize (0)
如果真 (局_对象 [局_成员数].创建图片对象 (参_图片))
CoUninitialize ()
返回 (局_对象 [局_成员数].读数值属性 (“handle”, ))
CoUninitialize ()
返回 (0)

子程序名	返回值类型	公开	备 注
图标_取句柄	整数型		取“位图 鼠标图片 图标“句柄,成功返回句柄,失败返回0
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型
图像类型	整数型				IMAGE_ 开头的常量  默认为 #IMAGE_ICON 图标

变量名	类 型	静态	数组	备 注
局_图片高度	整数型
局_图片宽度	整数型

局_图片宽度 ＝ GetSystemMetrics (71)
局_图片高度 ＝ GetSystemMetrics (72)  ' SM_CYMENUCHECK 获取菜单复选号位图的大小
如果真 (是否为空 (图像类型))
图像类型 ＝ #IMAGE_ICON
返回 (LoadImage (0, 图片路径, 图像类型, 局_图片宽度, 局_图片高度, 16))

.版本 2<br /> <br /> .子程序 菜单_添加图标, 逻辑型, 公开, 在指定定的菜单处加入图标<br /> .参数 子菜单索引, 整数型, , 子菜单索引<br /> .参数 菜单句柄, 整数型, , 欲添加图标的菜单句柄<br /> .参数 未选图标句柄, 整数型, , 未选中时的图标句柄,可以用 图标_取句柄() 命令取得 图标句柄<br /> .参数 已选图标句柄, 整数型, , 已选中时的图标句柄,可以用 图标_取句柄() 命令取得 图标句柄<br /> <br /> 返回 (SetMenuItemBitmaps (菜单句柄, 子菜单索引, 1024, 未选图标句柄, 已选图标句柄))<br /> .子程序 图片_取句柄, 整数型, 公开, 取图片句柄,成功返回图片句柄,失败返回0<br /> .参数 参_图片, 字节集, , 欲添加为菜单图片的资源<br /> .局部变量 局_对象, 对象, 静态, "0"<br /> .局部变量 局_句柄, 整数型<br /> .局部变量 局_成员数, 整数型<br /> <br /> 局_成员数 ＝ 取数组成员数 (局_对象) ＋ 1<br /> 重定义数组 (局_对象, 真, 局_成员数)<br /> CoInitialize (0)<br /> .如果真 (局_对象 [局_成员数].创建图片对象 (参_图片))<br />     CoUninitialize ()<br />     返回 (局_对象 [局_成员数].读数值属性 (“handle”, ))<br /> .如果真结束<br /> CoUninitialize ()<br /> 返回 (0)<br /> <br /> .子程序 图标_取句柄, 整数型, 公开, 取“位图 鼠标图片 图标“句柄,成功返回句柄,失败返回0<br /> .参数 图片路径, 文本型<br /> .参数 图像类型, 整数型, 可空, IMAGE_ 开头的常量  默认为 #IMAGE_ICON 图标<br /> .局部变量 局_图片高度, 整数型<br /> .局部变量 局_图片宽度, 整数型<br /> <br /> 局_图片宽度 ＝ GetSystemMetrics (71)<br /> 局_图片高度 ＝ GetSystemMetrics (72)  ' SM_CYMENUCHECK 获取菜单复选号位图的大小<br /> .如果真 (是否为空 (图像类型))<br />     图像类型 ＝ #IMAGE_ICON<br /> .如果真结束<br /> 返回 (LoadImage (0, 图片路径, 图像类型, 局_图片宽度, 局_图片高度, 16))

源码取自精易模块

wh1234567

Ls60 发表于 2022-3-4 23:49
你说的应该是这个dll吧

[e=0].版本 2

.版本 2

.子程序 设置菜单图标, 整数型, , 返回 非0表示成功
.参数 窗口句柄, 整数型, , 菜单所在窗口句柄
.参数 列索引, 整数型, , 列索引从0开始
.参数 菜单索引, 整数型, , 菜单索引从0开始
.参数 位图文件, 文本型
.局部变量 MainHandle, 整数型
.局部变量 SubMenuHandle, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量 BitmapSave, 整数型

MainHandle ＝ GetMenu (窗口句柄)  ' 取菜单的句柄
SubMenuHandle ＝ GetSubMenu (MainHandle, 列索引)  ' 取得第一个菜单项的句柄
X ＝ GetSystemMetrics (#SM_CXMENUCHECK)  ' 取得菜单位图的尺寸
Y ＝ GetSystemMetrics (#SM_CYMENUCHECK)  ' 取得菜单位图的尺寸
BitmapSave ＝ LoadImageA (0, 位图文件, #IMAGE_BITMAP, X, Y, #LR_LOADFROMFILE)  ' 按系统尺寸装入图像
返回 (SetMenuItemBitmaps (SubMenuHandle, 菜单索引, #MF_BYPOSITION, BitmapSave, BitmapSave))  ' 设置菜单位图


是这样的，调用时：

.版本 2

设置菜单图标 (取窗口句柄 (), 0, 0, 取运行目录 () ＋ “\1.bmp”)
设置菜单图标 (取窗口句柄 (), 0, 1, 取运行目录 () ＋ “\2.bmp”)
设置菜单图标 (取窗口句柄 (), 0, 2, 取运行目录 () ＋ “\3.bmp”)

我想修改成直接读取 图片资源表里的图片，如何正确修改？
设置菜单图标 (取窗口句柄 (), 0, 0, #位图1)  这样为什么无效果？

wh1234567

Ls60 发表于 2022-3-4 23:49
你说的应该是这个dll吧

[e=0].版本 2

设置菜单图标 (取窗口句柄 (), 0, 0, #图片1”)  为什么不对？

wh1234567

Ls60 发表于 2022-3-4 23:49
你说的应该是这个dll吧

[e=0].版本 2

菜单_添加图标 这个怎么使用？给个例子吧

wh1234567

Ls60 发表于 2022-3-4 23:49
你说的应该是这个dll吧

[e=0].版本 2

老师帮忙修改一下吧，源码在 “板凳”层

Ls60

wh1234567 发表于 2022-3-6 19:39
老师帮忙修改一下吧，源码在 “板凳”层

有一说一，一个是从文件路径获取的，一个是从易语言资源里面获取
怎么能一样呢，资源里面的东西貌似都是字节集类型的，也就是说 #图片 是字节集类型的，不是文本型的，不同与 取运行目录 () ＋ “\1.bmp”
我查了一下，你提供的程序里面LoadImageA无非就是从文件路径获取图片句柄，所以我们只要找一个从字节集获取图片句柄的子程序就行了
子程序取自精易源码，凭借个人理解写的，没有实际操作过，菜单这个东西我也不怎么用

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

设置菜单图标1 (取窗口句柄 (), 0, 0, 取运行目录 () ＋ “\1.bmp”)
设置菜单图标2 (取窗口句柄 (), 0, 2, #图片 )

子程序名	返回值类型	公开	备 注
设置菜单图标1	整数型		返回 非0表示成功
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				菜单所在窗口句柄
列索引	整数型				列索引从0开始
菜单索引	整数型				菜单索引从0开始
位图文件	文本型				BMP文件路径

变量名	类 型	静态	数组	备 注
MainHandle	整数型
SubMenuHandle	整数型
X	整数型
Y	整数型
BitmapSave	整数型

MainHandle ＝ GetMenu (窗口句柄)  ' 取菜单的句柄
SubMenuHandle ＝ GetSubMenu (MainHandle, 列索引)  ' 取得第一个菜单项的句柄
X ＝ GetSystemMetrics ( #SM_CXMENUCHECK )  ' 取得菜单位图的尺寸
Y ＝ GetSystemMetrics ( #SM_CYMENUCHECK )  ' 取得菜单位图的尺寸
BitmapSave ＝ LoadImageA (0, 位图文件, #IMAGE_BITMAP, X, Y, #LR_LOADFROMFILE )  ' 按系统尺寸装入图像
返回 (SetMenuItemBitmaps (SubMenuHandle, 菜单索引, #MF_BYPOSITION, BitmapSave, BitmapSave))  ' 设置菜单位图

子程序名	返回值类型	公开	备 注
设置菜单图标2	整数型		返回 非0表示成功
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				菜单所在窗口句柄
列索引	整数型				列索引从0开始
菜单索引	整数型				菜单索引从0开始
图片字节集	字节集				BMP文件路径

变量名	类 型	静态	数组	备 注
MainHandle	整数型
SubMenuHandle	整数型
X	整数型
Y	整数型
BitmapSave	整数型

MainHandle ＝ GetMenu (窗口句柄)  ' 取菜单的句柄
SubMenuHandle ＝ GetSubMenu (MainHandle, 列索引)  ' 取得第一个菜单项的句柄
BitmapSave ＝ 取图片句柄_从字节集 (图片字节集)
返回 (SetMenuItemBitmaps (SubMenuHandle, 菜单索引, #MF_BYPOSITION, BitmapSave, BitmapSave))  ' 设置菜单位图

子程序名	返回值类型	公开	备 注
取图片句柄_从文件	整数型		载入指定位图,成功返回位图句柄,失败返回0
参数名	类 型	参考	可空	数组	备 注
位图文件路径	文本型				欲载入的位图文件全路径,只能为BMP格式位图文件路径

返回 (LoadImageA (0, 位图文件路径, 0, 0, 0, 16))

子程序名	返回值类型	公开	备 注
取图片句柄_从字节集	整数型		载入指定图片,或者图标.成功返回位图句柄,失败返回0
参数名	类 型	参考	可空	数组	备 注
图片字节集	字节集				欲载入的bmp,jpg等图片资源或者ico图标字节集

变量名	类 型	静态	数组	备 注
图片对象	对象
图片句柄	整数型

CoInitialize (0)
图片对象.创建图片对象 (图片字节集)
图片句柄 ＝ 图片对象.读数值属性 (“Handle”, )
CoUninitialize ()
返回 (图片句柄)

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 设置菜单图标1 (取窗口句柄 (), 0, 0, 取运行目录 () ＋ “\1.bmp”)<br /> 设置菜单图标2  (取窗口句柄 (), 0, 2, #图片)<br /> <br /> <br /> .子程序 设置菜单图标1, 整数型, , 返回 非0表示成功<br /> .参数 窗口句柄, 整数型, , 菜单所在窗口句柄<br /> .参数 列索引, 整数型, , 列索引从0开始<br /> .参数 菜单索引, 整数型, , 菜单索引从0开始<br /> .参数 位图文件, 文本型, , BMP文件路径<br /> .局部变量 MainHandle, 整数型<br /> .局部变量 SubMenuHandle, 整数型<br /> .局部变量 X, 整数型<br /> .局部变量 Y, 整数型<br /> .局部变量 BitmapSave, 整数型<br /> <br /> MainHandle ＝ GetMenu (窗口句柄)  ' 取菜单的句柄<br /> SubMenuHandle ＝ GetSubMenu (MainHandle, 列索引)  ' 取得第一个菜单项的句柄<br /> X ＝ GetSystemMetrics (#SM_CXMENUCHECK)  ' 取得菜单位图的尺寸<br /> Y ＝ GetSystemMetrics (#SM_CYMENUCHECK)  ' 取得菜单位图的尺寸<br /> BitmapSave ＝ LoadImageA (0, 位图文件, #IMAGE_BITMAP, X, Y, #LR_LOADFROMFILE)  ' 按系统尺寸装入图像<br /> 返回 (SetMenuItemBitmaps (SubMenuHandle, 菜单索引, #MF_BYPOSITION, BitmapSave, BitmapSave))  ' 设置菜单位图<br /> <br /> <br /> .子程序 设置菜单图标2, 整数型, , 返回 非0表示成功<br /> .参数 窗口句柄, 整数型, , 菜单所在窗口句柄<br /> .参数 列索引, 整数型, , 列索引从0开始<br /> .参数 菜单索引, 整数型, , 菜单索引从0开始<br /> .参数 图片字节集, 字节集, , BMP文件路径<br /> .局部变量 MainHandle, 整数型<br /> .局部变量 SubMenuHandle, 整数型<br /> .局部变量 X, 整数型<br /> .局部变量 Y, 整数型<br /> .局部变量 BitmapSave, 整数型<br /> <br /> MainHandle ＝ GetMenu (窗口句柄)  ' 取菜单的句柄<br /> SubMenuHandle ＝ GetSubMenu (MainHandle, 列索引)  ' 取得第一个菜单项的句柄<br /> BitmapSave ＝ 取图片句柄_从字节集 (图片字节集)<br /> 返回 (SetMenuItemBitmaps (SubMenuHandle, 菜单索引, #MF_BYPOSITION, BitmapSave, BitmapSave))  ' 设置菜单位图<br /> <br /> .子程序 取图片句柄_从文件, 整数型, 公开, 载入指定位图,成功返回位图句柄,失败返回0<br /> .参数 位图文件路径, 文本型, , 欲载入的位图文件全路径,只能为BMP格式位图文件路径<br /> <br /> 返回 (LoadImageA (0, 位图文件路径, 0, 0, 0, 16))<br /> <br /> .子程序 取图片句柄_从字节集, 整数型, 公开, 载入指定图片,或者图标.成功返回位图句柄,失败返回0<br /> .参数 图片字节集, 字节集, , 欲载入的bmp,jpg等图片资源或者ico图标字节集<br /> .局部变量 图片对象, 对象, 静态<br /> .局部变量 图片句柄, 整数型<br /> <br /> CoInitialize (0)<br /> 图片对象.创建图片对象 (图片字节集)<br /> 图片句柄 ＝ 图片对象.读数值属性 (“Handle”, )<br /> CoUninitialize ()<br /> 返回 (图片句柄)

还有啊你贴代码的时候可以用这个工具不

wh1234567

Ls60 发表于 2022-3-6 21:01
有一说一，一个是从文件路径获取的，一个是从易语言资源里面获取
怎么能一样呢，资源里面的东西貌似都是 ...

非常感谢老师回复，刚看到回复，论坛没有提示新消息，刚测试了一下可以使用，但是多个菜单项目的话，只能显示最后一个图标，不知道是咋回事，
.版本 2

设置菜单图标2 (取窗口句柄 (), 0, 0, #位图1)
设置菜单图标2 (取窗口句柄 (), 0, 1, #位图2)
设置菜单图标2 (取窗口句柄 (), 0, 2, #位图3) 只能显示最后这个

Ls60

wh1234567 发表于 2022-3-7 17:01
非常感谢老师回复，刚看到回复，论坛没有提示新消息，刚测试了一下可以使用，但是多个菜单项目的话，只能 ...

建议你把相关代码贴出来，我都不知道你是哪里设置错了