输入框怎么根随在窗口中间 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
返回文本	文本型
父窗口句柄	整数型

父窗口句柄＝取窗口句柄 ()
启动线程 (&对话框居中过程, 父窗口句柄, )
' 输入框 (“提示”, “标题”, “初始文本”, 返回文本, , 父窗口句柄)
' 信息框 (123, 0, , 父窗口句柄)

子程序名	返回值类型	公开	备注
对话框居中过程			仅适用于系统预定义的#32770对话框
参数名	类型	参考	可空	数组	备注
父窗口句柄	整数型				填写对话框的父窗口句柄。

变量名	类型	静态	数组	备注
对话框句柄	整数型
父窗口矩形	整数型		4	父窗口矩形
对话框矩形	整数型		4	对话框矩形

对话框矩形 [4] ＝父窗口句柄

循环判断首 ()

EnumWindows (&EnumChildProc, 取变量地址 (对话框矩形 [1]))

循环判断尾 (对话框矩形 [4] ＝父窗口句柄)
对话框句柄＝对话框矩形 [4]
GetWindowRect (父窗口句柄, 取变量地址 (父窗口矩形 [1]))
GetWindowRect (对话框句柄, 取变量地址 (对话框矩形 [1]))
' 标准写法应该使用RECT结构，更易于阅读，用数组表示仅图方便。
对话框矩形 [1] ＝父窗口矩形 [1] �� (父窗口矩形 [3] －父窗口矩形 [1]) ÷ 2 �� (对话框矩形 [3] －对话框矩形 [1]) ÷ 2
对话框矩形 [2] ＝父窗口矩形 [2] �� (父窗口矩形 [4] －父窗口矩形 [2]) ÷ 2 �� (对话框矩形 [4] －对话框矩形 [2]) ÷ 2
SetWindowPos (对话框句柄, 0, 对话框矩形 [1], 对话框矩形 [2], 0, 0, 位或 (1, 4, 512))

子程序名	返回值类型	公开	备注
EnumChildProc	整数型
参数名	类型	参考	可空	数组	备注
hwnd	整数型
lParam	整数型

' 如果父窗口句柄是指定的父窗口句柄，且窗口类名为#32770

如果真 (GetParent (hwnd) ＝指针到整数 (lParam ＋ 12) 且 GetClassNameA (hwnd, lParam, 8) ＝ 6 且 lstrcmpA (lParam, “#32770”) ＝ 0)

写到内存 (hwnd, lParam ＋ 12, )

hwnd ＝ 0
返回 (hwnd)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 EThread<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 返回文本, 文本型<br />
.局部变量 父窗口句柄, 整数型<br />
<br />
父窗口句柄 ＝ 取窗口句柄 ()<br />
启动线程 (&对话框居中过程, 父窗口句柄, )<br />
' 输入框 (“提示”, “标题”, “初始文本”, 返回文本, , 父窗口句柄)<br />
' 信息框 (123, 0, , 父窗口句柄)<br />
<br />
.子程序 对话框居中过程, , , 仅适用于系统预定义的#32770对话框<br />
.参数 父窗口句柄, 整数型, , 填写对话框的父窗口句柄。<br />
.局部变量 对话框句柄, 整数型<br />
.局部变量 父窗口矩形, 整数型, , "4", 父窗口矩形<br />
.局部变量 对话框矩形, 整数型, , "4", 对话框矩形<br />
<br />
对话框矩形 [4] ＝ 父窗口句柄<br />
.循环判断首 ()<br />
    EnumWindows (&EnumChildProc, 取变量地址 (对话框矩形 [1]))<br />
.循环判断尾 (对话框矩形 [4] ＝ 父窗口句柄)<br />
对话框句柄 ＝ 对话框矩形 [4]<br />
<br />
GetWindowRect (父窗口句柄, 取变量地址 (父窗口矩形 [1]))<br />
GetWindowRect (对话框句柄, 取变量地址 (对话框矩形 [1]))<br />
' 标准写法应该使用RECT结构，更易于阅读，用数组表示仅图方便。<br />
对话框矩形 [1] ＝ 父窗口矩形 [1] ＋ (父窗口矩形 [3] － 父窗口矩形 [1]) ÷ 2 － (对话框矩形 [3] － 对话框矩形 [1]) ÷ 2<br />
对话框矩形 [2] ＝ 父窗口矩形 [2] ＋ (父窗口矩形 [4] － 父窗口矩形 [2]) ÷ 2 － (对话框矩形 [4] － 对话框矩形 [2]) ÷ 2<br />
SetWindowPos (对话框句柄, 0, 对话框矩形 [1], 对话框矩形 [2], 0, 0, 位或 (1, 4, 512))<br />
<br />
.子程序 EnumChildProc, 整数型<br />
.参数 hwnd, 整数型<br />
.参数 lParam, 整数型<br />
<br />
' 如果父窗口句柄是指定的父窗口句柄，且窗口类名为#32770<br />
.如果真 (GetParent (hwnd) ＝ 指针到整数 (lParam ＋ 12) 且 GetClassNameA (hwnd, lParam, 8) ＝ 6 且 lstrcmpA (lParam, “#32770”) ＝ 0)<br />
    写到内存 (hwnd, lParam ＋ 12, )<br />
    hwnd ＝ 0<br />
.如果真结束<br />
返回 (hwnd)