?? dialog.via
字號(hào):
// Dialog.lnl
application PE GUI entry main;
include "win32a.inc";
MSG myMsg; WNDCLASS wc;
frame MainWndProc(dword hwnd,dword message,dword wparam,dword lparam);
if (message = WM_CLOSE) {
if (MessageBox(0,"Really want to quit?","Linley",$24)=IDYES) {
MessageBox(0,"Bye Bye!\nHave a nice day! ^^","Linley",$20);
PostQuitMessage(0);
} else {
return(1);
}
}
if (message = WM_COMMAND) {
if (wparam = 0) {
MessageBox(0,"You actually clicked on Hello World!","Linley",$20);
}
if (wparam = 1) {
SendMessage(hwnd,WM_CLOSE,0,0);
}
}
return(DefWindowProc(hwnd,message,wparam,lparam));
end;
frame main();
local dword LinleyWnd;
local dword Font;
local dword ButtonI;
local dword ButtonII;
wc.style = $2+$1+$80;
wc.lpfnWndProc = @MainWndProc;
wc.cbClsExtra = 0;
wc.cbWndExtra = 0;
wc.hInstance = 0;
wc.hIcon = LoadIcon(0,32512);
wc.hCursor = LoadCursor(0,$7F00);
wc.hbrBackground = 15+1;
wc.lpszMenuName = "";
wc.lpszClassName = "LinleyClass";
if (RegisterClass(wc)=0) {
MessageBox(0,"Failed to register window!","Linley",0);
ExitProcess(0);
}
LinleyWnd = CreateWindowEx($40000+$100,"LinleyClass","Linley Application",$4000000+$2000000+$CF0000+$10000000,200,200,450,320,0,0,0,0);
ButtonI = CreateWindowEx($10000,"Button","Hello World!",$40000000+$10000000,20,20,100,50,LinleyWnd,0,Instance,0);
ButtonII = CreateWindowEx($20000,"Button","Exit",$40000000+$10000000,250,230,180,50,LinleyWnd,1,Instance,0);
Font = CreateFont(16,0,0,0,0,0,0,0,0,6,0,0,1+0,"MS Sans Serif");
SendMessage(ButtonI,$30,Font,0);
SendMessage(ButtonII,$30,Font,0);
if (LinleyWnd=0) {
MessageBox(0,"Failed to create window!","Linley",0);
UnregisterClass("LinleyClass",Instance);
ExitProcess(0);
}
while (GetMessage(myMsg,0,0,0)>0) {
TranslateMessage(@myMsg);
DispatchMessage(@myMsg);
}
UnregisterClass("LinleyClass",0);
ExitProcess(0);
end;
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -