易语言半透明按钮源码

系统结构:初始化,释放资源,生成图片,CopyImage,SelectObject,CreateCompatibleDC,DeleteDC,DeleteObject,GetDC,ReleaseDC,CreateCompatibleBitmap,CreateSolidBrush,FillRect,BitBlt,AlphaBlend,DestroyIcon,DrawIcon,GetWindowLongA,ExtractIconA,DrawIconEx,ExtractIconExA,SetPixel,CreateFontA,TextOutA,SetTextColor,SetBkMode,GetStockObject,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======程序集1
           |  |
           |  |------ 初始化
           |  |
           |  |------ 释放资源
           |  |
           |  |------ 生成图片
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CopyImage
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   AlphaBlend
           |  |
           |  |---[dll]------   DestroyIcon
           |  |
           |  |---[dll]------   DrawIcon
           |  |
           |  |---[dll]------   GetWindowLongA
           |  |
           |  |---[dll]------   ExtractIconA
           |  |
           |  |---[dll]------   DrawIconEx
           |  |
           |  |---[dll]------   ExtractIconExA
           |  |
           |  |---[dll]------   SetPixel
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   TextOutA
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   GetStockObject

调用的DLL命令:

.DLL命令 CopyImage, 整数型
    .参数 hImage, 整数型
    .参数 uType, 整数型
    .参数 cxDesired, 整数型
    .参数 cyDesired, 整数型
    .参数 fuFlags, 整数型

.DLL命令 SelectObject, 整数型
    .参数 hdc, 整数型
    .参数 hgdiobj, 整数型

.DLL命令 CreateCompatibleDC, 整数型
    .参数 hdc, 整数型

.DLL命令 DeleteDC, 逻辑型
    .参数 hdc, 整数型

.DLL命令 DeleteObject, 逻辑型
    .参数 hObject, 整数型

.DLL命令 GetDC, 整数型
    .参数 hWnd, 整数型

.DLL命令 ReleaseDC, 整数型
    .参数 hWnd, 整数型
    .参数 hDC, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型
    .参数 hdc, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

.DLL命令 CreateSolidBrush, 整数型
    .参数 crColor, 整数型

.DLL命令 FillRect, 整数型
    .参数 hDC, 整数型
    .参数 lprc, RECT
    .参数 hbr, 整数型

.DLL命令 BitBlt, 逻辑型
    .参数 hdcDest, 整数型
    .参数 nXDest, 整数型
    .参数 nYDest, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hdcSrc, 整数型
    .参数 nXSrc, 整数型
    .参数 nYSrc, 整数型
    .参数 dwRop, 整数型

.DLL命令 AlphaBlend, 整数型, "msimg32.dll"
    .参数 hdcDest, 整数型
    .参数 nXOriginDest, 整数型
    .参数 nYOriginDest, 整数型
    .参数 nWidthDest, 整数型
    .参数 hHeightDest, 整数型
    .参数 hdcSrc, 整数型
    .参数 nXOriginSrc, 整数型
    .参数 nYOriginSrc, 整数型
    .参数 nWidthSrc, 整数型
    .参数 nHeightSrc, 整数型
    .参数 blendFunction, 整数型

.DLL命令 DestroyIcon, 逻辑型
    .参数 hIcon, 整数型

.DLL命令 DrawIcon, 逻辑型
    .参数 hDC, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 hIcon, 整数型

.DLL命令 GetWindowLongA, 整数型
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 ExtractIconA, 整数型
    .参数 hInst, 整数型
    .参数 lpszExeFileName, 文本型
    .参数 nIconIndex, 整数型

.DLL命令 DrawIconEx, 逻辑型
    .参数 hdc, 整数型
    .参数 xLeft, 整数型
    .参数 yTop, 整数型
    .参数 hIcon, 整数型
    .参数 cxWidth, 整数型
    .参数 cyWidth, 整数型
    .参数 istepIfAniCur, 整数型
    .参数 hbrFlickerFreeDraw, 整数型
    .参数 diFlags, 整数型

.DLL命令 ExtractIconExA, 整数型
    .参数 lpszFile, 文本型
    .参数 nIconIndex, 整数型
    .参数 phiconLarge, 整数型, 传址
    .参数 phiconSmall, 整数型, 传址
    .参数 nIcons, 整数型

.DLL命令 SetPixel, 整数型
    .参数 hdc, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 crColor, 整数型

.DLL命令 CreateFontA, 整数型
    .参数 nHeight, 整数型
    .参数 nWidth, 整数型
    .参数 nEscapement, 整数型
    .参数 nOrientation, 整数型
    .参数 fnWeight, 整数型
    .参数 fdwItalic, 整数型
    .参数 fdwUnderline, 整数型
    .参数 fdwStrikeOut, 整数型
    .参数 fdwCharSet, 整数型
    .参数 fdwOutputPrecision, 整数型
    .参数 fdwClipPrecision, 整数型
    .参数 fdwQuality, 整数型
    .参数 fdwPitchAndFamily, 整数型
    .参数 lpszFace, 文本型

.DLL命令 TextOutA, 逻辑型
    .参数 hdc, 整数型
    .参数 nXStart, 整数型
    .参数 nYStart, 整数型
    .参数 lpString, 文本型
    .参数 cbString, 整数型

.DLL命令 SetTextColor, 整数型
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 SetBkMode, 整数型
    .参数 hdc, 整数型
    .参数 iBkMode, 整数型

.DLL命令 GetStockObject, 整数型
    .参数 fnObject, 整数型