易语言动态圆效果源码

系统结构:WndProc,AddCircle,DrawCircle,EraseBkg,ShowClock,DrawBkg,GetDC,CreateCompatibleDC,CreateCompatibleBitmap,SelectObject,DeleteObject,BitBlt,SetWindowLong,CallWindowProc,BeginPaint,EndPaint,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ WndProc
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ AddCircle
           |  |
           |  |------ DrawCircle
           |  |
           |  |------ EraseBkg
           |  |
           |  |------ ShowClock
           |  |
           |  |------ DrawBkg
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint

调用的DLL命令:

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 Para1

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC"
    .参数 Para1

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 Para1
    .参数 Para2
    .参数 Para3

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject"
    .参数 Para1
    .参数 Para2

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
    .参数 Para1

.DLL命令 BitBlt, 整数型, "gdi32", "BitBlt"
    .参数 Para1
    .参数 Para2
    .参数 Para3
    .参数 Para4
    .参数 Para5
    .参数 Para6
    .参数 Para7
    .参数 Para8
    .参数 Para9

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 Para1
    .参数 Para2
    .参数 Para3

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 Para1
    .参数 Para2
    .参数 Para3
    .参数 Para4
    .参数 Para5

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint"
    .参数 hWnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 逻辑型, "user32", "EndPaint"
    .参数 hWnd, 整数型
    .参数 lpPaint, PAINTSTRUCT, 传址