第一个窗口程序.bas :
#引用 仅一次 "windows.bi"
#定义 第一个程序 1000
#定义 按钮 1001
变量 共享 模块句柄 为 HMODULE
声明 函数 DlgProc(传值 hWin 为 HWND, 传值 uMsg 为 UINT, 传值 wParam 为 WPARAM, 传值 lParam 为 LPARAM) 为 整数型
模块句柄=GetModuleHandle(NULL)
DialogBoxParam(模块句柄, 转换类型(字符型 指针,第一个程序), NULL, @DlgProc, NULL)
ExitProcess(0)
结束
函数 DlgProc(传值 hWin 为 HWND,传值 uMsg 为 UINT,传值 wParam 为 WPARAM,传值 lParam 为 LPARAM) 为 整数型
变量 为 整数型 id, Event, x, y
变量 hBtn 为 HWND
变量 hLsv?为 HWND
变量 rect 为 RECT
判断 分支 uMsg
分支 WM_INITDIALOG
分支 WM_CLOSE
EndDialog(hWin, 0)
分支 WM_COMMAND
id=取低十六位(wParam)
Event=取高十六位(wParam)
判断 分支 id
分支 按钮
EndDialog(hWin, 0)
结束 判断
分支 WM_SIZE
分支 否则
返回 FALSE
结束 判断
返回 TRUE
结束 函数
‘==============================
第一个窗口程序.rc
#define 第一个程序 1000
#define 按钮 1001
第一个程序 DIALOGEX 10,10,207,100
CAPTION "第一个程序"
FONT 8,"MS Sans Serif",0,0,0
STYLE 0x10CF0000
BEGIN
CONTROL "关闭",按钮,"Button",0x50010000,72,42,54,21
END
’==============================
|