.子程序 设置菜单图标, 整数型, , 返回 非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)) ' 设置菜单位图
上一篇 图片透明模块，快画透明图