增加一些保存窗口/列表 信息 的建议

远航接单

像windows窗口  和一些知名软件
都支持 在上次打开位置 创建窗口。所以有了以下代码-------------------------------------------------------这是 添加到 外表超级列表框中的代码

  

子程序名	返回值类型	公开	备 注
列宽_保存信息
参数名	类 型	参考	可空	数组	备 注
保存文件路径	文本型
唯一标识	文本型				当有多个列表 保存在同一个文件中 用来区分列表，请确保唯一性

变量名	类 型	静态	数组	备 注
List	外部超级列表框
i	整数型

计次循环首 (取列数 (), i)
写配置项 (保存文件路径, “ColWidth_” ＋ 唯一标识, 到文本 (i － 1), 到文本 (取列宽 (i － 1)))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
列宽_读取信息			如果无记录，则不修改列宽
参数名	类 型	参考	可空	数组	备 注
保存文件路径	文本型				保存文件路径
唯一标识	文本型				当有多个列表 保存在同一个文件中 用来区分列表，请确保唯一性

变量名	类 型	静态	数组	备 注
i	整数型
width	整数型

计次循环首 (取列数 (), i)
width ＝ 到整数 (读配置项 (保存文件路径, “ColWidth_” ＋ 唯一标识, 到文本 (i － 1), “-1”))
如果真 (width ＞ -1)
置列宽 (i － 1, width)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
置列宽_扩展指定列			将指定列的宽度设置为 总宽度-其他列宽度和.一般放在_窗口尺寸被改变 事件下
参数名	类 型	参考	可空	数组	备 注
局_列索引	整数型				要扩充指定列索引

变量名	类 型	静态	数组	备 注
Rect	精易_矩形
i	整数型
widthSun	整数型
Header	整数型

如果 (取列数 () － 1 ＝ 局_列索引)  ' 当要设置的列=尾列时，采用 LVSCW_AUTOSIZE_USEHEADER 可以 自动拓展，否则要计算
SendMessageA_整数 (集_目标句柄, 4126, 局_列索引, -2)



Header ＝ 取表头句柄 ()
如果真 (Header ＞ 0)  ' ---没有表头的 不支持计算,PS:为什么不采用列表宽度 而 采用表头宽度 做参照，因为如果使用了 皮肤或自绘时，滑块宽度不确定，无法精确计算 可能会导致出现横向滚动条
Rect ＝ 窗口_取位置和大小 (Header)
计次循环首 (取列数 (), i)
如果真 (i － 1 ≠ 局_列索引)
widthSun ＝ widthSun ＋ 取列宽 (i － 1)

计次循环尾 ()
置列宽 (局_列索引, Rect.右边 － widthSun)

子程序名	返回值类型	公开	备 注
取表头句柄	整数型

返回 (SendMessageA_整数 (集_目标句柄, 4127, 0, 0))  ' LVM_GETHEADER

.版本 2<br /> <br /> .子程序 列宽_保存信息, , 公开<br /> .参数 保存文件路径, 文本型<br /> .参数 唯一标识, 文本型, , 当有多个列表 保存在同一个文件中 用来区分列表，请确保唯一性<br /> .局部变量 List, 外部超级列表框<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取列数 (), i)<br />     写配置项 (保存文件路径, “ColWidth_” ＋ 唯一标识, 到文本 (i － 1), 到文本 (取列宽 (i － 1)))<br /> .计次循环尾 ()<br /> <br /> .子程序 列宽_读取信息, , 公开, 如果无记录，则不修改列宽<br /> .参数 保存文件路径, 文本型, , 保存文件路径<br /> .参数 唯一标识, 文本型, , 当有多个列表 保存在同一个文件中 用来区分列表，请确保唯一性<br /> .局部变量 i, 整数型<br /> .局部变量 width, 整数型<br /> <br /> .计次循环首 (取列数 (), i)<br />     width ＝ 到整数 (读配置项 (保存文件路径, “ColWidth_” ＋ 唯一标识, 到文本 (i － 1), “-1”))<br />     .如果真 (width ＞ -1)<br />         置列宽 (i － 1, width)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 置列宽_扩展指定列, , 公开, 将指定列的宽度设置为 总宽度-其他列宽度和.一般放在_窗口尺寸被改变 事件下<br /> .参数 局_列索引, 整数型, , 要扩充指定列索引<br /> .局部变量 Rect, 精易_矩形<br /> .局部变量 i, 整数型<br /> .局部变量 widthSun, 整数型<br /> .局部变量 Header, 整数型<br /> <br /> .如果 (取列数 () － 1 ＝ 局_列索引)  ' 当要设置的列=尾列时，采用 LVSCW_AUTOSIZE_USEHEADER 可以 自动拓展，否则要计算<br />     SendMessageA_整数 (集_目标句柄, 4126, 局_列索引, -2)<br /> <br /> <br /> .否则<br /> <br />     Header ＝ 取表头句柄 ()<br />     .如果真 (Header ＞ 0)  ' ---没有表头的 不支持计算,PS:为什么不采用列表宽度 而 采用表头宽度 做参照，因为如果使用了 皮肤或自绘时，滑块宽度不确定，无法精确计算 可能会导致出现横向滚动条<br />         Rect ＝ 窗口_取位置和大小 (Header)<br />         .计次循环首 (取列数 (), i)<br />             .如果真 (i － 1 ≠ 局_列索引)<br />                 widthSun ＝ widthSun ＋ 取列宽 (i － 1)<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         置列宽 (局_列索引, Rect.右边 － widthSun)<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 取表头句柄, 整数型, 公开<br /> <br /> 返回 (SendMessageA_整数 (集_目标句柄, 4127, 0, 0))  ' LVM_GETHEADER

明天会更美好

带你装逼带你飞

远航接单

  

子程序名	返回值类型	公开	备 注
批量_窗口_读取位置信息
参数名	类 型	参考	可空	数组	备 注
参_窗口	窗口
参_保存路径	文本型
参_唯一标记	文本型				用于区别其他窗口

变量名	类 型	静态	数组	备 注
Node	文本型
Rect	精易_矩形
int	整数型

Node ＝ 参_唯一标记 ＋ “_Pos”
Rect.右边 ＝ 到整数 (读配置项 (参_保存路径, Node, “width”, 到文本 (参_窗口.宽度)))
Rect.底边 ＝ 到整数 (读配置项 (参_保存路径, Node, “height”, 到文本 (参_窗口.高度)))
Rect.左边 ＝ 到整数 (读配置项 (参_保存路径, Node, “left”, 到文本 (参_窗口.左边)))
Rect.顶边 ＝ 到整数 (读配置项 (参_保存路径, Node, “top”, 到文本 (参_窗口.顶边)))
参_窗口.移动 (Rect.左边, Rect.顶边, Rect.右边, Rect.底边)

子程序名	返回值类型	公开	备 注
批量_窗口_保存位置信息
参数名	类 型	参考	可空	数组	备 注
参_窗口	窗口
参_保存路径	文本型
参_唯一标记标记	文本型				用于区别其他窗口

变量名	类 型	静态	数组	备 注
Node	文本型

Node ＝ 参_唯一标记标记 ＋ “_Pos”
如果真 (IsIconic (参_窗口.取窗口句柄 ()) ＝ 假)  ' ---最小化状态下  不记录信息
写配置项 (参_保存路径, Node, “left”, 到文本 (参_窗口.左边))
写配置项 (参_保存路径, Node, “top”, 到文本 (参_窗口.顶边))
写配置项 (参_保存路径, Node, “width”, 到文本 (参_窗口.宽度))
写配置项 (参_保存路径, Node, “height”, 到文本 (参_窗口.高度))

.版本 2<br /> <br /> .子程序 批量_窗口_读取位置信息, , 公开<br /> .参数 参_窗口, 窗口<br /> .参数 参_保存路径, 文本型<br /> .参数 参_唯一标记, 文本型, , 用于区别其他窗口<br /> .局部变量 Node, 文本型<br /> .局部变量 Rect, 精易_矩形<br /> .局部变量 int, 整数型<br /> <br /> Node ＝ 参_唯一标记 ＋ “_Pos”<br /> Rect.右边 ＝ 到整数 (读配置项 (参_保存路径, Node, “width”, 到文本 (参_窗口.宽度)))<br /> Rect.底边 ＝ 到整数 (读配置项 (参_保存路径, Node, “height”, 到文本 (参_窗口.高度)))<br /> Rect.左边 ＝ 到整数 (读配置项 (参_保存路径, Node, “left”, 到文本 (参_窗口.左边)))<br /> Rect.顶边 ＝ 到整数 (读配置项 (参_保存路径, Node, “top”, 到文本 (参_窗口.顶边)))<br /> 参_窗口.移动 (Rect.左边, Rect.顶边, Rect.右边, Rect.底边)<br /> <br /> .子程序 批量_窗口_保存位置信息, , 公开<br /> .参数 参_窗口, 窗口<br /> .参数 参_保存路径, 文本型<br /> .参数 参_唯一标记标记, 文本型, , 用于区别其他窗口<br /> .局部变量 Node, 文本型<br /> <br /> Node ＝ 参_唯一标记标记 ＋ “_Pos”<br /> .如果真 (IsIconic (参_窗口.取窗口句柄 ()) ＝ 假)  ' ---最小化状态下  不记录信息<br />     写配置项 (参_保存路径, Node, “left”, 到文本 (参_窗口.左边))<br />     写配置项 (参_保存路径, Node, “top”, 到文本 (参_窗口.顶边))<br />     写配置项 (参_保存路径, Node, “width”, 到文本 (参_窗口.宽度))<br />     写配置项 (参_保存路径, Node, “height”, 到文本 (参_窗口.高度))