易语言实现的超类化

[e].版本 2

.程序集 窗口程序集1
.程序集变量 lpfnOldProc

.子程序 __启动窗口_创建完毕
.局部变量 WndClassEx, WNDCLASSEX

WndClassEx.cbSize ＝ 48
GetClassInfoEx (0, “Edit”, WndClassEx)  ' 取系统预设Edit类信息
lpfnOldProc ＝ WndClassEx.lpfnWndProc  ' 保留窗口函数指针
WndClassEx.hInstance ＝ GetModuleHandle (0)  ' 修改实例句柄为我们App的
WndClassEx.lpfnWndProc ＝ 到整数 (&WndProcMyEdit)  ' 修改窗口函数
WndClassEx.lpszClassName ＝ “MyEdit”  ' 类名
RegisterClassEx (WndClassEx)  ' 注册
' 用注册的类创建新的控件
CreateWindowEx (0, “MyEdit”, 0, 位或 (#WS_CHILD, #WS_VISIBLE, #WS_BORDER), 70, 40, 80, 20, 取窗口句柄 (), 0, 0, 0)

.子程序 WndProcMyEdit, 整数型
.参数 hWnd
.参数 uMsg
.参数 wParam
.参数 lParam
.局部变量 hDc
.局部变量 szText, 文本型

.如果真 (uMsg ＝ #WM_CHAR)
    hDc ＝ GetDC (取窗口句柄 ())
    szText ＝ “Just a test,” ＋ 字符 (wParam)
    TextOut (hDc, 宽度 ÷ 3, 高度 ÷ 3, szText, lstrlen (szText))  ' 输出文字
    ReleaseDC (取窗口句柄 (), hDc)
.如果真结束
返回 (CallWindowProc (lpfnOldProc, hWnd, uMsg, wParam, lParam))

.子程序 __启动窗口_将被销毁

UnregisterClass (“MyEdit”, GetModuleHandle (0))[/e]

lizhiliok

不懂呢.........

q2we

这东西可真的是好东西。

cfan04

起码搞个图让人看下撒，不知道是超级什么样子？

古呢啦鴨凳

路过，看看是什么

Rabbits尐兎

谢谢楼主 这么好的东西 收下了！

野狼2011

其中E文是什么意思呢,易语言不就是问了看不懂E文的人方便么?为嘛一些变量之类的也要用E文,俺是小学生,谢谢楼主分享精神,不过我只有打酱油

m105766

这好像是子类化吧