已知某外部窗口句柄，通过消息机制控制其左上角小图标

李商隐2

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
' 窗口_置图标 (48375067)
调试输出 (窗口_置图标 (13043186, 读入文件 (“C:\quark.ico”), ))

子程序名	返回值类型	公开	备 注
窗口_置图标	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				欲修改图标的窗口的句柄
ico图标	字节集				一个ico文件一般是一个图标组，里面有不同大小的图像
图标索引					可空，从0开始，从图标组内选取一张图标

变量名	类 型	静态	数组	备 注
收到消息	整数型
hIcon	整数型
图标宽度	整数型
图标高度	整数型

hIcon ＝ 取图标句柄 (ico图标, 图标索引, 图标宽度, 图标宽度)
' 调试输出 (图标宽度, 图标宽度)
收到消息 ＝ SendMessage (窗口句柄, 128, 0, hIcon)
' 调试输出 (收到消息)
DeleteObject (hIcon)
如果真 (hIcon ≠ 0 且 收到消息 ≠ 0)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
取图标句柄	整数型
参数名	类 型	参考	可空	数组	备 注
图标数据	字节集				图标文件信息
图标索引	整数型				从0开始
图标宽度	整数型
图标高度	整数型

变量名	类 型	静态	数组	备 注
IconDirEntry	IconDirEntry
图标句柄	整数型
Bin	字节集

CopyMemory_IconDirEntry (IconDirEntry, 取字节集中间 (图标数据, 6 ＋ 图标索引 × 16 ＋ 1, 16), 16)
图标宽度 ＝ IconDirEntry.bWidth
图标高度 ＝ IconDirEntry.bHeight
Bin ＝ 取字节集中间 (图标数据, IconDirEntry.dwImageOffset ＋ 1, IconDirEntry.dwBytesInRes)
图标句柄 ＝ CreateIconFromResource (Bin, IconDirEntry.dwBytesInRes, 真, 196608)
返回 (图标句柄)

子程序名	返回值类型	公开	备 注
取图标组成员数	整数型
参数名	类 型	参考	可空	数组	备 注
图标数据	字节集

返回 (取字节集数据 (图标数据, #短整数型, 5))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> <br /> <br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> ' 窗口_置图标 (48375067)<br /> 调试输出 (窗口_置图标 (13043186, 读入文件 (“C:\quark.ico”), ))<br /> <br /> <br /> .子程序 窗口_置图标, 逻辑型<br /> .参数 窗口句柄, 整数型, , 欲修改图标的窗口的句柄<br /> .参数 ico图标, 字节集, , 一个ico文件一般是一个图标组，里面有不同大小的图像<br /> .参数 图标索引, , 可空, 可空，从0开始，从图标组内选取一张图标<br /> .局部变量 收到消息, 整数型<br /> .局部变量 hIcon, 整数型<br /> .局部变量 图标宽度, 整数型<br /> .局部变量 图标高度, 整数型<br /> <br /> hIcon ＝ 取图标句柄 (ico图标, 图标索引, 图标宽度, 图标宽度)<br /> ' 调试输出 (图标宽度, 图标宽度)<br /> 收到消息 ＝ SendMessage (窗口句柄, 128, 0, hIcon)<br /> ' 调试输出 (收到消息)<br /> DeleteObject (hIcon)<br /> .如果真 (hIcon ≠ 0 且 收到消息 ≠ 0)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)<br /> <br /> <br /> .子程序 取图标句柄, 整数型<br /> .参数 图标数据, 字节集, , 图标文件信息<br /> .参数 图标索引, 整数型, , 从0开始<br /> .参数 图标宽度, 整数型, 参考 可空<br /> .参数 图标高度, 整数型, 参考 可空<br /> .局部变量 IconDirEntry, IconDirEntry<br /> .局部变量 图标句柄, 整数型<br /> .局部变量 Bin, 字节集<br /> <br /> CopyMemory_IconDirEntry (IconDirEntry, 取字节集中间 (图标数据, 6 ＋ 图标索引 × 16 ＋ 1, 16), 16)<br /> 图标宽度 ＝ IconDirEntry.bWidth<br /> 图标高度 ＝ IconDirEntry.bHeight<br /> Bin ＝ 取字节集中间 (图标数据, IconDirEntry.dwImageOffset ＋ 1, IconDirEntry.dwBytesInRes)<br /> 图标句柄 ＝ CreateIconFromResource (Bin, IconDirEntry.dwBytesInRes, 真, 196608)<br /> 返回 (图标句柄)<br /> <br /> <br /> <br /> .子程序 取图标组成员数, 整数型, 公开<br /> .参数 图标数据, 字节集<br /> <br /> 返回 (取字节集数据 (图标数据, #短整数型, 5))

2.窗口_置图标.e (6.71 KB, 下载次数: 3)

前天 14:41 上传

点击文件名下载附件

wmv520

窗口_置图标