黑月界面类 窗口 的问题

yyyxb

我的本意是想写一个 Dll 用于外部调用，该 Dll 负责用户界面部分。然后我写了这些代码，运行时窗口弹出了一下立马就关闭了。请教一下大佬。谢谢！
代码：

  

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

子程序名	返回值类型	公开	备 注
CreateMainWindow	整数型		返回窗口句柄

变量名	类 型	静态	数组	备 注
mainw	窗口类
size	黑月坐标
pos	黑月坐标
verMajor	整数型
style	整数型
wstrTitle	字节集
wstrWndClass	字节集

mainw.事件_创建完毕 (&mainw_eventOnCreate)
mainw.事件_可否被关闭 (&mainw_eventOnClose)
GetSystemVersion (verMajor, , , , , , )
如果真 (verMajor ＞ 5)
SetProcessDPIAware ()
pos ＝ NewWndPos (0, 0)
如果 (是否为调试版 ())
如果 (verMajor ＞ 5)
size ＝ NewWndSize (GetSystemMetrics (33) × 2 ＋ 1024, GetSystemMetrics (32) × 2 ＋ GetSystemMetrics (4) ＋ 768)
size ＝ NewWndSize (GetSystemMetrics (33) × 2 ＋ 1024, GetSystemMetrics (32) × 2 ＋ GetSystemMetrics (4) ＋ 768)
style ＝ 位或 ( #窗口风格_组样式, 位或 ( #窗口风格_标题栏, #窗口风格_系统菜单, #窗口风格_对话框边框, #窗口风格_最大化按钮, #窗口风格_单边框, #窗口风格_可视, #窗口风格_可调边框 ))
如果 (verMajor ＞ 5)
size ＝ NewWndSize (取屏幕宽度 () × DPI, 取屏幕高度 () × DPI)
size ＝ NewWndSize (取屏幕宽度 (), 取屏幕高度 ())
style ＝ 位或 ( #窗口风格_组样式, #窗口风格_无边框 )
wstrTitle ＝ RCGetStringW (189, )
wstrWndClass ＝ L (“WindowsSetup_GUI”)
mainw.创建W (, wstrTitle, pos, size, style, , 假, wstrWndClass)
mainw.位置 ( #窗口位置_居中 )
mainw.背景图显示方式 ( #图片显示方式_缩放 )
mainw.Esc关闭 (真)
返回 (mainw.取窗口句柄 ())

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

变量名	类 型	静态	数组	备 注
mainw	窗口类

mainw.置窗口句柄 (hWnd)
mainw.背景图 (RCGetImgObj (W32UiRCGetFitBackImgResID (3, mainw.取用户区宽度 (), mainw.取用户区高度 ())))
mainw.置图标 (RCGetIconObj (129), )

子程序名	返回值类型	公开	备 注
mainw_eventOnClose	整数型		返回 0 表示可关闭，1 表示不可关闭

返回 (0)

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

DPI ＝ 系统_取系统DPI () ÷ 100
判断 (是否为调试版 () ＝ 真)

返回 (NewDllMain (&DllMain))
判断 (是否为调试版 () ＝ 真)
winmain.初始化 (, , )
winmain.初始化 (hInstance, , )
Api静态加速优化 ()_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
DllMain	逻辑型
参数名	类 型	参考	可空	数组	备 注
hModule	整数型
ul_reason_for_call	整数型
lpReserved	整数型

判断 (ul_reason_for_call ＝ 0)  ' 卸载模块
如果真 (是否为调试版 ())
信息框 (“释放模块”, 0, , )

判断 (ul_reason_for_call ＝ 1)  ' 装载模块
如果真 (是否为调试版 ())
信息框 (“模块句柄:” ＋ 到文本 (hModule), 0, , )
hInstance ＝ hModule
判断 (ul_reason_for_call ＝ 2)  ' 创建线程
如果真 (是否为调试版 ())
信息框 (“创建线程”, 0, , )

判断 (ul_reason_for_call ＝ 3)  ' 线程销毁
如果真 (是否为调试版 ())
信息框 (“线程销毁”, 0, , )



返回 (真)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
mainw	窗口类

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
mainw.置窗口句柄 (CreateMainWindow ())
winmain.运行 (mainw, 真)

.版本 2<br /> <br /> .程序集 MainWnd<br /> <br /> .子程序 CreateMainWindow, 整数型, 公开, 返回窗口句柄<br /> .局部变量 mainw, 窗口类<br /> .局部变量 size, 黑月坐标<br /> .局部变量 pos, 黑月坐标<br /> .局部变量 verMajor, 整数型<br /> .局部变量 style, 整数型<br /> .局部变量 wstrTitle, 字节集<br /> .局部变量 wstrWndClass, 字节集<br /> <br /> mainw.事件_创建完毕 (&mainw_eventOnCreate)<br /> mainw.事件_可否被关闭 (&mainw_eventOnClose)<br /> GetSystemVersion (verMajor, , , , , , )<br /> .如果真 (verMajor ＞ 5)<br />     SetProcessDPIAware ()<br /> .如果真结束<br /> pos ＝ NewWndPos (0, 0)<br /> .如果 (是否为调试版 ())<br />     .如果 (verMajor ＞ 5)<br />         size ＝ NewWndSize (GetSystemMetrics (33) × 2 ＋ 1024, GetSystemMetrics (32) × 2 ＋ GetSystemMetrics (4) ＋ 768)<br />     .否则<br />         size ＝ NewWndSize (GetSystemMetrics (33) × 2 ＋ 1024, GetSystemMetrics (32) × 2 ＋ GetSystemMetrics (4) ＋ 768)<br />     .如果结束<br />     style ＝ 位或 (#窗口风格_组样式, 位或 (#窗口风格_标题栏, #窗口风格_系统菜单, #窗口风格_对话框边框, #窗口风格_最大化按钮, #窗口风格_单边框, #窗口风格_可视, #窗口风格_可调边框))<br /> .否则<br />     .如果 (verMajor ＞ 5)<br />         size ＝ NewWndSize (取屏幕宽度 () × DPI, 取屏幕高度 () × DPI)<br />     .否则<br />         size ＝ NewWndSize (取屏幕宽度 (), 取屏幕高度 ())<br />     .如果结束<br />     style ＝ 位或 (#窗口风格_组样式, #窗口风格_无边框)<br /> .如果结束<br /> wstrTitle ＝ RCGetStringW (189, )<br /> wstrWndClass ＝ L (“WindowsSetup_GUI”)<br /> mainw.创建W (, wstrTitle, pos, size, style, , 假, wstrWndClass)<br /> mainw.位置 (#窗口位置_居中)<br /> mainw.背景图显示方式 (#图片显示方式_缩放)<br /> mainw.Esc关闭 (真)<br /> 返回 (mainw.取窗口句柄 ())<br /> <br /> .子程序 mainw_eventOnCreate<br /> .参数 hWnd, 整数型<br /> .局部变量 mainw, 窗口类<br /> <br /> mainw.置窗口句柄 (hWnd)<br /> mainw.背景图 (RCGetImgObj (W32UiRCGetFitBackImgResID (3, mainw.取用户区宽度 (), mainw.取用户区高度 ())))<br /> mainw.置图标 (RCGetIconObj (129), )<br /> <br /> <br /> .子程序 mainw_eventOnClose, 整数型, , 返回 0 表示可关闭，1 表示不可关闭<br /> <br /> 返回 (0)<br /> <br /> .版本 2<br /> <br /> .程序集 WinMain<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码<br /> <br /> DPI ＝ 系统_取系统DPI () ÷ 100<br /> .判断开始 (是否为调试版 () ＝ 真)<br /> <br /> .默认<br />     返回 (NewDllMain (&DllMain))<br /> .判断结束<br /> .判断开始 (是否为调试版 () ＝ 真)<br />     winmain.初始化 (, , )<br /> .默认<br />     winmain.初始化 (hInstance, , )<br /> .判断结束<br /> Api静态加速优化 ()<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> .子程序 DllMain, 逻辑型<br /> .参数 hModule, 整数型<br /> .参数 ul_reason_for_call, 整数型<br /> .参数 lpReserved, 整数型<br /> <br /> .判断开始 (ul_reason_for_call ＝ 0)  ' 卸载模块<br />     .如果真 (是否为调试版 ())<br />         信息框 (“释放模块”, 0, , )<br />     .如果真结束<br /> <br /> .判断 (ul_reason_for_call ＝ 1)  ' 装载模块<br />     .如果真 (是否为调试版 ())<br />         信息框 (“模块句柄:” ＋ 到文本 (hModule), 0, , )<br />     .如果真结束<br />     hInstance ＝ hModule<br /> .判断 (ul_reason_for_call ＝ 2)  ' 创建线程<br />     .如果真 (是否为调试版 ())<br />         信息框 (“创建线程”, 0, , )<br />     .如果真结束<br /> <br /> .判断 (ul_reason_for_call ＝ 3)  ' 线程销毁<br />     .如果真 (是否为调试版 ())<br />         信息框 (“线程销毁”, 0, , )<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (真)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 mainw, 窗口类<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> mainw.置窗口句柄 (CreateMainWindow ())<br /> winmain.运行 (mainw, 真)

用的是黑月界面类 3.9.0 目前最新版本。
谢谢！



补充内容 (2025-1-4 19:27):
一些代码没有用，主要是窗口出了什么问题，而不是图标、背景图的设置问题

Esma001

既然dll管理窗口 那么消息循环呢 如果外部exe有消息循环 你内部也必须是主线程呢  建议你外部搞一个窗口载入你dll中窗口 外部主窗口载入进来 即可挂在主线程上 或者就是内部消息循环

Nick5469

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
APP	应用程序类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

APP.初始化 (, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 APP, 应用程序类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> APP.初始化 (, , )

需要初始化应用才可以调用黑月

补充内容 (2025-1-4 19:47):
需要让初始化代码最先执行。只有初始化完成后才能调用黑月

deleisoft

窗口消息循环没有，窗口直接退出了，你在窗口创建后加个Sleep延迟，看看窗口会不会延迟关闭

yyyxb

deleisoft 发表于 2025-1-4 20:25
窗口消息循环没有，窗口直接退出了，你在窗口创建后加个Sleep延迟，看看窗口会不会延迟关闭 ...

确实，还真是，我修改了以下代码确实窗口能显示几秒钟：

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
mainw	窗口类

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
mainw.置窗口句柄 (CreateMainWindow ())
winmain.运行 (mainw, 真)
延迟 (10000)‘延时测试

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 mainw, 窗口类<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> mainw.置窗口句柄 (CreateMainWindow ())<br /> winmain.运行 (mainw, 真)<br /> 延迟 (10000)‘延时测试

但是这样的话我设置的mainw_eventOnCreate虽然能执行，代码中设置图标的代码也正常执行，但是设置背景图片的代码执行后没有显示背景图片。即使重画了也没有用。

但是“winmain.运行 (mainw, 真)”加入到“CreateMainWindow”中反而显示背景图片了。

可惜这样写没法达到我想要的效果，可能我学 Java 编程有点习惯这样设计了。
请问大佬这是怎么回事？谢谢！

yyyxb

Nick5469 发表于 2025-1-4 19:45

  

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

[/quote]
其实已经执行了，在 _启动子程序，因为是调试时启动，所以那段看起来有问题的代码其实照常执行了。
感谢您的提醒，我已经修改成了这样，已经确保能正常初始化了：[e=0].版本 2

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

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

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

ret ＝ 0
DPI ＝ 系统_取系统DPI () ÷ 100
如果真 (是否为调试版 () ＝ 假)
ret ＝ NewDllMain (&DllMain)
Api静态加速优化 ()
InitDllInstance ()
_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (ret)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
DllMain	逻辑型
参数名	类 型	参考	可空	数组	备 注
hModule	整数型
ul_reason_for_call	整数型
lpReserved	整数型

判断 (ul_reason_for_call ＝ 0)  ' 卸载模块
如果真 (是否为调试版 ())
信息框 (“释放模块”, 0, , )

判断 (ul_reason_for_call ＝ 1)  ' 装载模块
如果真 (是否为调试版 ())
信息框 (“模块句柄:” ＋ 到文本 (hModule), 0, , )
hInstance ＝ hModule
判断 (ul_reason_for_call ＝ 2)  ' 创建线程
如果真 (是否为调试版 ())
信息框 (“创建线程”, 0, , )

判断 (ul_reason_for_call ＝ 3)  ' 线程销毁
如果真 (是否为调试版 ())
信息框 (“线程销毁”, 0, , )



返回 (真)

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
mainw	窗口类

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
mainw.置窗口句柄 (CreateMainWindow ())
winmain.运行 (mainw, 真)

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

判断 (是否为调试版 () ＝ 真)
winmain.初始化 (, , )
winmain.初始化 (hInstance, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> 其实已经执行了，在 _启动子程序，因为是调试时启动，所以那段看起来有问题的代码其实照常执行了。<br /> 感谢您的提醒，我已经修改成了这样，已经确保能正常初始化了：[e=0].版本 2<br /> <br /> .程序集 WinMain<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码<br /> .局部变量 ret, 整数型<br /> <br /> ret ＝ 0<br /> DPI ＝ 系统_取系统DPI () ÷ 100<br /> .如果真 (是否为调试版 () ＝ 假)<br />     ret ＝ NewDllMain (&DllMain)<br /> .如果真结束<br /> Api静态加速优化 ()<br /> InitDllInstance ()<br /> _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码<br /> 返回 (ret)  ' 返回值被忽略。<br /> <br /> .子程序 DllMain, 逻辑型<br /> .参数 hModule, 整数型<br /> .参数 ul_reason_for_call, 整数型<br /> .参数 lpReserved, 整数型<br /> <br /> .判断开始 (ul_reason_for_call ＝ 0)  ' 卸载模块<br />     .如果真 (是否为调试版 ())<br />         信息框 (“释放模块”, 0, , )<br />     .如果真结束<br /> <br /> .判断 (ul_reason_for_call ＝ 1)  ' 装载模块<br />     .如果真 (是否为调试版 ())<br />         信息框 (“模块句柄:” ＋ 到文本 (hModule), 0, , )<br />     .如果真结束<br />     hInstance ＝ hModule<br /> .判断 (ul_reason_for_call ＝ 2)  ' 创建线程<br />     .如果真 (是否为调试版 ())<br />         信息框 (“创建线程”, 0, , )<br />     .如果真结束<br /> <br /> .判断 (ul_reason_for_call ＝ 3)  ' 线程销毁<br />     .如果真 (是否为调试版 ())<br />         信息框 (“线程销毁”, 0, , )<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (真)<br /> <br /> .子程序 _临时子程序<br /> .局部变量 mainw, 窗口类<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> mainw.置窗口句柄 (CreateMainWindow ())<br /> winmain.运行 (mainw, 真)<br /> <br /> .子程序 InitDllInstance<br /> <br /> .判断开始 (是否为调试版 () ＝ 真)<br />     winmain.初始化 (, , )<br /> .默认<br />     winmain.初始化 (hInstance, , )<br /> .判断结束

yyyxb

Esma001 发表于 2025-1-4 19:41
既然dll管理窗口 那么消息循环呢 如果外部exe有消息循环 你内部也必须是主线程呢  建议你外部搞一个窗口载 ...

请教一下该怎么写呢？谢谢！

deleisoft

yyyxb 发表于 2025-1-4 21:40
确实，还真是，我修改了以下代码确实窗口能显示几秒钟：

[e=0].版本 2

我的意思是加个延迟试试，如果窗口没关闭，说明就是你创建的窗口没有监听窗口消息，所以窗口直接退出了，你要做的就是怎么解决这个窗口没消息循环，黑月没用过不太熟悉帮不了你哦

79961565

加个消息循坏

yyyxb

deleisoft 发表于 2025-1-4 23:01
我的意思是加个延迟试试，如果窗口没关闭，说明就是你创建的窗口没有监听窗口消息，所以窗口直接退出了， ...

谢谢