求易语言翻译火山代码

xiaoka2018

  

子程序名	返回值类型	公开	备 注
消息循环	整数型

变量名	类 型	静态	数组	备 注
msg	MSG

判断循环首 (GetMessage (msg, 0, 0, 0) ≠ 0)
TranslateMessage (msg)
DispatchMessage (msg)
判断循环尾 ()
返回 (msg.wParam)

.版本 2<br /> <br /> .子程序 消息循环, 整数型, 公开<br /> .局部变量 msg, MSG<br /> <br /> .判断循环首 (GetMessage (msg, 0, 0, 0) ≠ 0)<br />     TranslateMessage (msg)<br />     DispatchMessage (msg)<br /> .判断循环尾 ()<br /> 返回 (msg.wParam)

.版本 2

.数据类型 MSG
    .成员 hwnd, 整数型
    .成员 message, 整数型
    .成员 wParam, 整数型
    .成员 lParam, 整数型
    .成员 time, 整数型
    .成员 pt, POINT



.版本 2

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 　
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage"
    .参数 lpMsg, MSG

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA"
    .参数 lpMsg, MSG

揰掵佲

[XML] 纯文本查看 复制代码

<火山程序 类型 = "通常" 版本 = 1 />


方法 消息循环 <静态 类型 = 变整数 @禁止流程检查 = 真>
{
    @ MSG CurrMsg;
    @ while(::GetMessage(&CurrMsg,NULL,0,0)){
    @ ::TranslateMessage(&CurrMsg);
    @ ::DispatchMessage(&CurrMsg);
    @ }
    @ return (INT_P)CurrMsg.wParam;

}

星星之夜

你直接说功能，火山代码粘贴C++代码即可

xiaoka2018

星星之夜 发表于 2023-5-3 20:34
你直接说功能，火山代码粘贴C++代码即可

还有一种叫法好像是叫消息同步。

恶魔の佐翼

百du搜C的消息循环,复制粘贴然后前面加@就差不多了

xiaoka2018

恶魔の佐翼 发表于 2023-5-3 20:52
百du搜C的消息循环,复制粘贴然后前面加@就差不多了

MSG msg;
while(GetMessage(&msg,NULL,0,0))
{
         TranslateMessage(&msg);
         DispatchMessage(&msg);  
}

百du搜到的是这种，应该怎么改？