如何实现窗口每行排几个呢？

YJF

重置窗口排序.rar (443.3 KB, 下载次数: 0)

2013-9-14 17:16 上传

点击文件名下载附件 老师好，我做了一个工具主要是为了方便排列文件夹窗口。
现在弄了一部分，但是我不懂怎么实现每行排几个的功能。
附件源码，求指导。

就是打开多个文件夹后，点这个工具，当我打开了很多个文件夹时候，重新排列每行N个。




[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮_重置排列_被单击
.局部变量 句柄数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 窗口大小, 整数型
.局部变量 窗口坐标_横, 整数型
.局部变量 窗口坐标_竖, 整数型

句柄数组 ＝ 分割文本 (编辑框_窗口句柄.内容, #换行符, )
窗口大小 ＝ 到整数 (编辑框_窗口高度.内容)
.计次循环首 (取数组成员数 (句柄数组), i)
窗口_置位置和大小 (到整数 (句柄数组 ), 窗口坐标_竖, 窗口坐标_横, 到整数 (编辑框_窗口高度.内容), 到整数 (编辑框_窗口高度.内容))
窗口坐标_横 ＝ 窗口大小 × i ' 横向排列取得出来的新坐标
.计次循环尾 ()

' 我不懂如何实现每行排多少个，现在这样排出来都是一行，请大侠帮忙指导指导。

.子程序 _按钮_列表窗口_被单击
.局部变量 窗口信息, 精易_窗口信息, , "0"
.局部变量 i, 整数型

窗口_枚举 (窗口信息)
编辑框_窗口句柄.内容 ＝ “”
.计次循环首 (取数组成员数 (窗口信息), i)
.如果真 (窗口_取类名 (窗口信息 .窗口句柄) ＝ “CabinetWClass”) ' 获取文件夹窗口句柄的类名“CabinetWClass”
编辑框_窗口句柄.加入文本 (到文本 (窗口信息 .窗口句柄) ＋ #换行符)
.如果真结束

.计次循环尾 ()


[/e]

洃铯‰感伤

这种效果吧。

天中小和尚

你在逗我玩吗   怎么不能下载

YJF

天中小和尚 发表于 2013-9-14 18:21
你在逗我玩吗   怎么不能下载

我已经上传了呀。

YJF

附件。 重置窗口排序.rar (443.3 KB, 下载次数: 4)

2013-9-14 18:41 上传

点击文件名下载附件

洃铯‰感伤

搞文件夹.........

天中小和尚

这个有点深奥啊   我也不会  等大神解答