dll自己创建窗口

科学奇迹

  

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

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

变量名	类 型	静态	数组	备 注
窗口类	WNDCLASSEX
消息	MSG
窗口句柄	整数型

' 下面的代码填写窗口类的“注册表格”
窗口类.cbSize ＝ 48  ' 要指定整个结构所占的字节数，必须
窗口类.style ＝ 位或 ( #CS_HREDRAW, #CS_VREDRAW, #CS_DBLCLKS )
' 窗口类.hInstance ＝ GetModuleHandle (“”)  ' 取当前应用程序的实例句柄。
' 上面这句也可以这样： 窗口类.hInstance ＝ GetModuleHandle (取执行文件名 ())
' 窗口类.hIcon ＝ LoadIcon (窗口类.hInstance, 129)  ' 易语言EXE文件的图标标号为129
窗口类.hCursor ＝ LoadCursor (0, #IDC_ARROW )
' ！！注意：LoadIcon和LoadCursor的两个函数的参数都改成了整数型。
窗口类.hbrBackground ＝ 1  ' 也可以使用其他的Color常量，注意在后面要＋1。
窗口类.lpszClassName ＝ “窗口类名”
窗口类.lpfnWndProc ＝ &窗口函数
' 注册表填写好了之后，进行注册登记窗口类。
RegisterClassEx (窗口类)
' 窗口类注册成功了就可以创建窗口了。
窗口句柄 ＝ CreateWindowEx (0, 窗口类.lpszClassName, “窗口标题”, 位或 ( #WS_CAPTION, #WS_SYSMENU, #WS_OVERLAPPED, #WS_THICKFRAME, #WS_MAXIMIZEBOX, #WS_MINIMIZEBOX ), #CW_USEDEFAULT, #CW_USEDEFAULT, 600, 440, 0, 0, 窗口类.hInstance, 0)
' 将窗口显示出来。
ShowWindow (窗口句柄, #SW_SHOWNORMAL )
' UpdateWindow (窗口句柄)
' 下面就是消息循环
' 当GetMessage函数发现消息的消息值为WM_DESTROY，就退出程序。
判断循环首 (GetMessage (消息, 0, 0, 0) ≠ #WM_DESTROY )
' TranslateMessage (消息)
DispatchMessage (消息)
判断循环尾 ()
返回 (消息.wParam)

子程序名	返回值类型	公开	备 注
窗口函数	整数型		这是窗口过程，用来处理窗口消息
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型				窗口句柄
uMsg	整数型				消息值
wParam	整数型				参数一
lParam	整数型				参数二

判断 (uMsg ＝ #WM_DESTROY )
PostQuitMessage (0)  ' 将 WM_QUIT 消息放入消息队列中，这样GetMessage收到WM_QUIT消息时就会返回0，从而退出消息循环
返回 ( #WM_DESTROY )


返回 (DefWindowProc (hWnd, uMsg, wParam, lParam))  ' 其他的消息通通交给DefWindowProc函数处理。

.版本 2<br /> <br /> .程序集 窗口程序集<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 窗口类, WNDCLASSEX<br /> .局部变量 消息, MSG<br /> .局部变量 窗口句柄, 整数型<br /> <br /> ' 下面的代码填写窗口类的“注册表格”<br /> 窗口类.cbSize ＝ 48  ' 要指定整个结构所占的字节数，必须<br /> 窗口类.style ＝ 位或 (#CS_HREDRAW, #CS_VREDRAW, #CS_DBLCLKS)<br /> ' 窗口类.hInstance ＝ GetModuleHandle (“”)  ' 取当前应用程序的实例句柄。<br /> ' 上面这句也可以这样： 窗口类.hInstance ＝ GetModuleHandle (取执行文件名 ())<br /> ' 窗口类.hIcon ＝ LoadIcon (窗口类.hInstance, 129)  ' 易语言EXE文件的图标标号为129<br /> 窗口类.hCursor ＝ LoadCursor (0, #IDC_ARROW)<br /> ' ！！注意：LoadIcon和LoadCursor的两个函数的参数都改成了整数型。<br /> 窗口类.hbrBackground ＝ 1  ' 也可以使用其他的Color常量，注意在后面要＋1。<br /> 窗口类.lpszClassName ＝ “窗口类名”<br /> 窗口类.lpfnWndProc ＝ &窗口函数<br /> ' 注册表填写好了之后，进行注册登记窗口类。<br /> RegisterClassEx (窗口类)<br /> ' 窗口类注册成功了就可以创建窗口了。<br /> 窗口句柄 ＝ CreateWindowEx (0, 窗口类.lpszClassName, “窗口标题”, 位或 (#WS_CAPTION, #WS_SYSMENU, #WS_OVERLAPPED, #WS_THICKFRAME, #WS_MAXIMIZEBOX, #WS_MINIMIZEBOX), #CW_USEDEFAULT, #CW_USEDEFAULT, 600, 440, 0, 0, 窗口类.hInstance, 0)<br /> ' 将窗口显示出来。<br /> ShowWindow (窗口句柄, #SW_SHOWNORMAL)<br /> ' UpdateWindow (窗口句柄)<br /> ' 下面就是消息循环<br /> ' 当GetMessage函数发现消息的消息值为WM_DESTROY，就退出程序。<br /> .判断循环首 (GetMessage (消息, 0, 0, 0) ≠ #WM_DESTROY)<br />     ' TranslateMessage (消息)<br />     DispatchMessage (消息)<br /> .判断循环尾 ()<br /> 返回 (消息.wParam)<br /> <br /> .子程序 窗口函数, 整数型, , 这是窗口过程，用来处理窗口消息<br /> .参数 hWnd, 整数型, , 窗口句柄<br /> .参数 uMsg, 整数型, , 消息值<br /> .参数 wParam, 整数型, , 参数一<br /> .参数 lParam, 整数型, , 参数二<br /> <br /> .判断开始 (uMsg ＝ #WM_DESTROY)<br />     PostQuitMessage (0)  ' 将 WM_QUIT 消息放入消息队列中，这样GetMessage收到WM_QUIT消息时就会返回0，从而退出消息循环<br />     返回 (#WM_DESTROY)<br /> .默认<br /> <br /> .判断结束<br /> 返回 (DefWindowProc (hWnd, uMsg, wParam, lParam))  ' 其他的消息通通交给DefWindowProc函数处理。

a2289128964

拿走- -111111111111111111111

卓卓2030

看看

21104664

谢谢正需要这个

刹那永恒123

学习下的呢

subzero

支持学习,支持学习,支持学习

linni0124

dll自己创建窗口

SLJY

谢谢！！！！！！！！！！！！！！

canqing

用模块会不会简单点呢

dg137

dll自己创建窗口