易語言自繪皮膚學習教程源碼

系統結構:取位高,取位低,是否在矩形,皮膚創建,取窗口尺寸,初始化按鈕,窗口回調事件,畫_背景,畫_控制按鈕,鼠標被按下,鼠標被提起,鼠標被移動,按鈕事件,設置指針,調整大小,尺寸被改變,DeleteObject,GetDC,DeleteDC,StretchBlt,FillRect,CreateSolidBrush,發送命令_,API_SetCursor,GdiTransparentBlt,API_LoadCursor,SetWindowlong,GetWindowRect,

======程序集_啟動
           |  |
           |  |------ _啟動子程序
           |  |
           |  |------ _臨時子程序
           |  |
           |  |
======程序集_公用
           |  |
           |  |------ 取位高
           |  |
           |  |------ 取位低
           |  |
           |  |------ 是否在矩形
           |  |
           |  |
======程序集_皮膚
           |  |
           |  |------ 皮膚創建
           |  |
           |  |------ 取窗口尺寸
           |  |
           |  |------ 初始化按鈕
           |  |
           |  |------ 窗口回調事件
           |  |
           |  |------ 畫_背景
           |  |
           |  |------ 畫_控制按鈕
           |  |
           |  |------ 鼠標被按下
           |  |
           |  |------ 鼠標被提起
           |  |
           |  |------ 鼠標被移動
           |  |
           |  |------ 按鈕事件
           |  |
           |  |------ 設置指針
           |  |
           |  |------ 調整大小
           |  |
           |  |------ 尺寸被改變
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口_測試_創建完畢
           |  |
           |  |
======調用的Dll
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   StretchBlt
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   發送命令_
           |  |
           |  |---[dll]------   API_SetCursor
           |  |
           |  |---[dll]------   GdiTransparentBlt
           |  |
           |  |---[dll]------   API_LoadCursor
           |  |
           |  |---[dll]------   SetWindowlong
           |  |
           |  |---[dll]------   GetWindowRect
  ======程序集_啟動
           |  |
           |  |------ _啟動子程序
           |  |
           |  |
======窗口程序集_主窗口
           |  |
           |  |------ _窗口_主窗口_創建完畢

調用的DLL命令:

.DLL命令 DeleteObject, 整數型, , , , 失敗為0
    .參數 hObject, 整數型

.DLL命令 GetDC, 整數型, , , , 獲取指定窗口的設備場景。返回指定窗口的設備場景句柄，出錯則為0
    .參數 hwnd, 整數型

.DLL命令 DeleteDC, 整數型, , , , 刪除專用設備場景或信息場景，釋放所有相關窗口資源。不要將它用于GetDC函數取回的設備場景
    .參數 hdc, 整數型

.DLL命令 StretchBlt, 整數型, , "StretchBlt"
    .參數 目標hdc, 整數型
    .參數 目標左邊, 整數型
    .參數 目標頂部, 整數型
    .參數 目標寬度, 整數型
    .參數 目標高度, 整數型
    .參數 源hdc, 整數型
    .參數 源左邊, 整數型
    .參數 源頂部, 整數型
    .參數 源寬度, 整數型
    .參數 源高度, 整數型
    .參數 光柵運算, 整數型

.DLL命令 FillRect, 整數型, "user32", "FillRect", , 用指定的刷子填充一個矩形  非零表示成功，零表示失敗。會設置GetLastError
    .參數 hdc, 整數型, , 設備場景的句柄
    .參數 lpRect, GP_矩形L, , RECT，對填充區域進行描述的一個矩形，采用邏輯坐標
    .參數 hBrush, 整數型, , 欲使用的刷子的句柄;

.DLL命令 CreateSolidBrush, 整數型, "gdi32", "CreateSolidBrush", , 用純色創建一個刷子  如執行成功，返回新刷子的一個句柄；否則返回零
    .參數 crColor, 整數型, , 數字的RGB彩色;

.DLL命令 發送命令_, 整數型, "user32", "SendMessageA", , 調用一個窗口的窗口函數，將一條消息發給那個窗口。除非消息處理完畢，否則該函數不會返回。SendMessageBynum， ;    SendMessageByString是該函數的“類型security”聲明形式　由具體的消息決定
    .參數 窗口句柄, 整數型, , 要接收消息的那個窗口的句柄
    .參數 信息值, 整數型, , 消息的標識符
    .參數 參數一, 整數型, , 具體取決于消息
    .參數 參數二, 整數型, , 具體取決于消息;

.DLL命令 API_SetCursor, 整數型, "user32", "SetCursor", , 將指定的鼠標指針設為當前指針　前一個指針的值
    .參數 指針句柄, 整數型, , 要設為當前指針的一個指針的句柄。如設為零，表示不顯示任何指針;  

.DLL命令 GdiTransparentBlt, 整數型, "gdi32"
    .參數 hdc1, 整數型
    .參數 X1, 整數型
    .參數 Y1, 整數型
    .參數 W1, 整數型
    .參數 H1, 整數型
    .參數 Hdc2, 整數型
    .參數 X2, 整數型
    .參數 Y2, 整數型
    .參數 W2, 整數型
    .參數 H2, 整數型
    .參數 Color, 整數型

.DLL命令 API_LoadCursor, 整數型, "user32", "LoadCursorA", , 從指定的模塊或應用程序實例中載入一個鼠標指針。LoadCursorBynum是LoadCursor函數的類型security聲明　執行成功則返回已載入的指針的句柄；零表示失敗。在Windows ;    95 和Win16環境中，這個函數只能載入標準尺寸的圖標
    .參數 實例句柄, 整數型, , 一個DLL的模塊句柄；或者一個實例句柄，指定包含了鼠標指針的可執行程序
    .參數 鼠標指針標識, 整數型, , 作為一個字串，指定欲載入的指針資源。作為一個長整數值，指定欲載入的資源ID；或者設置一個常數，代表某幅固有系統指針。如裝載的是一個固有系統指針，注意hInstance參數應設為零。在api32.txt文件中以前綴IDC_ 作為標志;  

.DLL命令 SetWindowlong, , , "SetWindowLongA", , 設置窗口樣式
    .參數 hwnd, 整數型
    .參數 nIndex, 整數型
    .參數 dwNewLong, 整數型

.DLL命令 GetWindowRect, , , "GetWindowRect", , 取窗口尺寸
    .參數 hwnd, 整數型
    .參數 rect, GP_矩形L