易语言自绘选择框源码

系统结构:测试消息,重绘_Checkbox,选择框_鼠标移动,初始化,调用旧窗口过程,GetWindowTitle,取位高,取位低,UI_API_SetWindowLong,UI_API_CallWindowProc,UI_EndPaint,UI_BeginPaint,UI_取窗口标题_,SendMessage,UI_TrackMouseEvent,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 测试消息
           |  |
           |  |------ 重绘_Checkbox
           |  |
           |  |------ 选择框_鼠标移动
           |  |
           |  |
======类_窗口子类化
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 初始化
           |  |
           |  |------ 调用旧窗口过程
           |  |
           |  |
======程序集_功能
           |  |
           |  |------ GetWindowTitle
           |  |
           |  |------ 取位高
           |  |
           |  |------ 取位低
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   UI_API_SetWindowLong
           |  |
           |  |---[dll]------   UI_API_CallWindowProc
           |  |
           |  |---[dll]------   UI_EndPaint
           |  |
           |  |---[dll]------   UI_BeginPaint
           |  |
           |  |---[dll]------   UI_取窗口标题_
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   UI_TrackMouseEvent

调用的DLL命令:

.DLL命令 UI_API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 UI_API_CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 UI_EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志
    .参数 hwnd, 整数型
    .参数 lpPaint, UI_PAINTSTRUCT

.DLL命令 UI_BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗  返回设备句柄
    .参数 hwnd, 整数型
    .参数 lpPaint, UI_PAINTSTRUCT

.DLL命令 UI_取窗口标题_, 整数型, "user32", "GetWindowTextA", , , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 UI_TrackMouseEvent, 整数型, "user32.dll", "TrackMouseEvent"
    .参数 lpEventTrack, UI_鼠标动作结构