窗口组件尺寸自适应大小

这对于新手来说是个不错的例子,本源码使用API函数实现哦。

.循环判断首 ()
.如果真 (t ＞ 0)
加入成员 (_ChildHwnd, t)
.如果真结束
t ＝ FindWindowExA (hwnd, t, 字符 (0), 字符 (0))
.循环判断尾 (t ≠ 0)
.计次循环首 (取数组成员数 (_ChildHwnd), i)
GetWindowRect (_ChildHwnd [i], tem)
加入成员 (Rect, tem)
Proportion_.Left ＝ (_Rect [i].Left － 左边 － 4) ÷ 宽度
Proportion_.Top ＝ (_Rect [i].Top － 顶边 － 32) ÷ 高度
Proportion_.width ＝ (_Rect [i].Right － _Rect [i].Left) ÷ 宽度
Proportion_.height ＝ (_Rect [i].Bottom － _Rect [i].Top) ÷ 高度
加入成员 (_Proportion, Proportion_)
.计次循环尾 ()
返回 (取数组成员数 (Rect))