没事做随便弄了一个窗口，可以自行接入回调消息函数

寻找星空

纯源码在此：没事做随便弄了一个窗口，可以自行接入回调消息函数
代码如下。

  

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

' 信息框 (123456, #信息图标 ＋ #确认钮, “MsgBox”, )
载入 (窗口1, , 假)
窗口1.可视 ＝ 假
子程序1 ()
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
x	整数型
区间	整数型

区间 ＝ 151 ＋ 8
区间 ＝ 区间 × 5 ' 乘 3 ，为创建的窗口数量 +1 实际为4个 >> *0 或者单独调用下面两个子程序即可！
' 区间 ＝ 151 ＋ 8
' 区间 ＝ 区间 × 5 － 1 ' 这创建5个，具体原理看变量循环首。
变量循环首 (0, 区间, 151 ＋ 8, x) ' 窗口宽度 ＝ 151 对应主窗口偏移
x ＝ 创建小窗口 (, “MsgBox”, x) ' 主窗口
创建小窗口2 (x, “bbs.125.la 123456789”) ' 子窗口
处理事件 ()
变量循环尾 ()

子程序名	返回值类型	公开	备 注
创建小窗口2	整数型
参数名	类 型	参考	可空	数组	备 注
父窗口句柄	整数型
窗口内容	文本型

变量名	类 型	静态	数组	备 注
实例句柄	整数型
窗口样式	整数型
扩展样式	整数型
窗口类名	文本型
左边位置	整数型
顶边位置	整数型
窗口宽度	整数型
窗口高度	整数型
窗口句柄	整数型			新创建的窗口句柄

实例句柄 ＝ GetModuleHandle (字符 (0))
窗口类名 ＝ “Static”
窗口样式 ＝ 1342316672 ' // WS_CHILDWINDOW | WS_VISIBLE | WS_GROUP | WS_MINIMIZEBOX | WS_OVERLAPPEDWINDOW | SS_NOPREFIX
扩展样式 ＝ 4 ' // WS_EX_NOPARENTNOTIFY
左边位置 ＝ 0
顶边位置 ＝ 0
窗口宽度 ＝ 120
窗口高度 ＝ 640
窗口句柄 ＝ CreateWindowEx (扩展样式, 窗口类名, 窗口内容, 窗口样式, 左边位置, 顶边位置, 窗口宽度, 窗口高度, 父窗口句柄, 0, 实例句柄, 0)
返回 (窗口句柄)

子程序名	返回值类型	公开	备 注
创建小窗口	整数型
参数名	类 型	参考	可空	数组	备 注
父窗口句柄	整数型
窗口标题	文本型
偏移	整数型

变量名	类 型	静态	数组	备 注
实例句柄	整数型
窗口样式	整数型
扩展样式	整数型
窗口类名	文本型
左边位置	整数型
顶边位置	整数型
窗口宽度	整数型
窗口高度	整数型
窗口句柄	整数型			新创建的窗口句柄
x	整数型

x ＝ x ＋ 50
实例句柄 ＝ GetModuleHandle (字符 (0))
窗口类名 ＝ “#32770”
窗口样式 ＝ -1798831675 ' // WS_POPUP | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CAPTION | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | WS_OVERLAPPEDWINDOW | WS_POPUPWINDOW | DS_ABSALIGN | DS_SETFONT | DS_MODALFRAME | DS_NOIDLEMSG | DS_3DLOOK
扩展样式 ＝ 65793 ' // WS_EX_DLGMODALFRAME | WS_EX_WINDOWEDGE | WS_EX_CONTROLPARENT | WS_EX_OVERLAPPEDWINDOW | WS_EX_PALETTEWINDOW
左边位置 ＝ 720 ＋ 偏移
顶边位置 ＝ 405
窗口宽度 ＝ 151
窗口高度 ＝ 175
窗口句柄 ＝ CreateWindowEx (扩展样式, 窗口类名, 窗口标题, 窗口样式, 左边位置, 顶边位置, 窗口宽度, 窗口高度, 父窗口句柄, 0, 实例句柄, 0)
返回 (窗口句柄)

DLL命令名	返回值类型	公开	备 注
GetModuleHandle	整数型		获取一个应用程序或动态链接库的模块句柄
DLL库文件名:
kernel32
在DLL库中对应命令名:
GetModuleHandleA
参数名	类 型	传址	数组	备 注

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
lpModuleName	文本型				指定模块名，这通常是与模块的文件名相同的一个名字。

DLL命令名	返回值类型	公开	备 注
CreateWindowEx	整数型		创建窗口
DLL库文件名:
user32
在DLL库中对应命令名:
CreateWindowExA
参数名	类 型	传址	数组	备 注

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
dwExStyle	整数型
lpClassName	文本型
lpWindowName	文本型
dwStyle	整数型
x	整数型
y	整数型
nWidth	整数型
nHeight	整数型
hWndParent	整数型
hMenu	整数型
hInstance	整数型
lpParam	整数型

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> ' 信息框 (123456, #信息图标 ＋ #确认钮, “MsgBox”, )<br /> 载入 (窗口1, , 假)<br /> 窗口1.可视 ＝ 假<br /> 子程序1 ()<br /> 返回 (0) ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序1<br /> .局部变量 x, 整数型<br /> .局部变量 区间, 整数型<br /> <br /> 区间 ＝ 151 ＋ 8<br /> 区间 ＝ 区间 × 5 ' 乘 3 ，为创建的窗口数量 +1 实际为4个 >> *0 或者单独调用下面两个子程序即可！<br /> <br /> ' 区间 ＝ 151 ＋ 8<br /> ' 区间 ＝ 区间 × 5 － 1 ' 这创建5个，具体原理看变量循环首。<br /> .变量循环首 (0, 区间, 151 ＋ 8, x) ' 窗口宽度 ＝ 151 对应主窗口偏移<br /> x ＝ 创建小窗口 (, “MsgBox”, x) ' 主窗口<br /> 创建小窗口2 (x, “bbs.125.la 123456789”) ' 子窗口<br /> 处理事件 ()<br /> .变量循环尾 ()<br /> <br /> .子程序 创建小窗口2, 整数型<br /> .参数 父窗口句柄, 整数型, 可空<br /> .参数 窗口内容, 文本型<br /> .局部变量 实例句柄, 整数型<br /> .局部变量 窗口样式, 整数型<br /> .局部变量 扩展样式, 整数型<br /> .局部变量 窗口类名, 文本型<br /> .局部变量 左边位置, 整数型<br /> .局部变量 顶边位置, 整数型<br /> .局部变量 窗口宽度, 整数型<br /> .局部变量 窗口高度, 整数型<br /> .局部变量 窗口句柄, 整数型, , , 新创建的窗口句柄<br /> <br /> 实例句柄 ＝ GetModuleHandle (字符 (0))<br /> 窗口类名 ＝ “Static”<br /> 窗口样式 ＝ 1342316672 ' // WS_CHILDWINDOW | WS_VISIBLE | WS_GROUP | WS_MINIMIZEBOX | WS_OVERLAPPEDWINDOW | SS_NOPREFIX<br /> 扩展样式 ＝ 4 ' // WS_EX_NOPARENTNOTIFY<br /> 左边位置 ＝ 0<br /> 顶边位置 ＝ 0<br /> 窗口宽度 ＝ 120<br /> 窗口高度 ＝ 640<br /> 窗口句柄 ＝ CreateWindowEx (扩展样式, 窗口类名, 窗口内容, 窗口样式, 左边位置, 顶边位置, 窗口宽度, 窗口高度, 父窗口句柄, 0, 实例句柄, 0)<br /> 返回 (窗口句柄)<br /> <br /> .子程序 创建小窗口, 整数型<br /> .参数 父窗口句柄, 整数型, 可空<br /> .参数 窗口标题, 文本型<br /> .参数 偏移, 整数型, 可空<br /> .局部变量 实例句柄, 整数型<br /> .局部变量 窗口样式, 整数型<br /> .局部变量 扩展样式, 整数型<br /> .局部变量 窗口类名, 文本型<br /> .局部变量 左边位置, 整数型<br /> .局部变量 顶边位置, 整数型<br /> .局部变量 窗口宽度, 整数型<br /> .局部变量 窗口高度, 整数型<br /> .局部变量 窗口句柄, 整数型, , , 新创建的窗口句柄<br /> .局部变量 x, 整数型, 静态<br /> <br /> x ＝ x ＋ 50<br /> 实例句柄 ＝ GetModuleHandle (字符 (0))<br /> 窗口类名 ＝ “#32770”<br /> 窗口样式 ＝ -1798831675 ' // WS_POPUP | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CAPTION | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | WS_OVERLAPPEDWINDOW | WS_POPUPWINDOW | DS_ABSALIGN | DS_SETFONT | DS_MODALFRAME | DS_NOIDLEMSG | DS_3DLOOK<br /> 扩展样式 ＝ 65793 ' // WS_EX_DLGMODALFRAME | WS_EX_WINDOWEDGE | WS_EX_CONTROLPARENT | WS_EX_OVERLAPPEDWINDOW | WS_EX_PALETTEWINDOW<br /> 左边位置 ＝ 720 ＋ 偏移<br /> 顶边位置 ＝ 405<br /> 窗口宽度 ＝ 151<br /> 窗口高度 ＝ 175<br /> 窗口句柄 ＝ CreateWindowEx (扩展样式, 窗口类名, 窗口标题, 窗口样式, 左边位置, 顶边位置, 窗口宽度, 窗口高度, 父窗口句柄, 0, 实例句柄, 0)<br /> 返回 (窗口句柄)<br /> <br /> .版本 2<br /> <br /> .DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄<br /> .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。<br /> <br /> .DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 创建窗口<br /> .参数 dwExStyle, 整数型<br /> .参数 lpClassName, 文本型<br /> .参数 lpWindowName, 文本型<br /> .参数 dwStyle, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 nWidth, 整数型<br /> .参数 nHeight, 整数型<br /> .参数 hWndParent, 整数型<br /> .参数 hMenu, 整数型<br /> .参数 hInstance, 整数型<br /> .参数 lpParam, 整数型

没事做随便弄了一个窗口，可以自行接入回调消息函数




补充内容 (2022-7-31 17:27):
源码下载地址的回复列表已置顶

寻找星空

纯源码下载地址：
创建窗口例子.e (6.23 KB, 下载次数: 14)

2022-7-31 17:22 上传

点击文件名下载附件

wpzyan123

感谢分享！

已注销571294

泪霖

这是干什么用的?

59hdvj

感谢分享

a358498501

感谢分享，很给力！~

teachuser

        支持开源~！感谢分享

59hdvj

支持                                 

zhaode2888

谢谢大佬分享

龙崎流江

支持开源精神

大师兄是反派

谢谢分享来看看