易语言XP按钮模块源码

易语言XP按钮模块源码

易语言XP按钮模块源码

系统结构:加入按钮,取索引,产生素材和字体,画按钮,是否在按钮上,WindowProc,XP按钮,CreateCompatibleDC,CreateDCAsNull,CreateDIBitmap,DeleteObject,SelectObject,GetObjectAPI,DeleteDC,CreateCompatibleBitmap,BitBlt,GetDC,GetWindowRect,SetWindowLong,CallWindowProc,ReleaseDC,DrawText,SetBkMode,SetTextColor,GetCursorPos,PostMessage,IsWindowEnabled,MulDiv,GetDeviceCaps,CreateFontIndirect,GetWindowText,

======程序集1
| |
| |------ _启动子程序
| |
| |------ 加入按钮
| |
| |------ 取索引
| |
| |------ 产生素材和字体
| |
| |------ 画按钮
| |
| |------ 是否在按钮上
| |
| |------ WindowProc
| |
| |------ _临时子程序
| |
| |
======_接口程序集
| |
| |------ XP按钮
| |
| |
======窗口程序集1
| |
| |------ _窗口1_创建完毕
| |
| |
======调用的Dll
| |
| |---[dll]------ CreateCompatibleDC
| |
| |---[dll]------ CreateDCAsNull
| |
| |---[dll]------ CreateDIBitmap
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ SelectObject
| |
| |---[dll]------ GetObjectAPI
| |
| |---[dll]------ DeleteDC
| |
| |---[dll]------ CreateCompatibleBitmap
| |
| |---[dll]------ BitBlt
| |
| |---[dll]------ GetDC
| |
| |---[dll]------ GetWindowRect
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ ReleaseDC
| |
| |---[dll]------ DrawText
| |
| |---[dll]------ SetBkMode
| |
| |---[dll]------ SetTextColor
| |
| |---[dll]------ GetCursorPos
| |
| |---[dll]------ PostMessage
| |
| |---[dll]------ IsWindowEnabled
| |
| |---[dll]------ MulDiv
| |
| |---[dll]------ GetDeviceCaps
| |
| |---[dll]------ CreateFontIndirect
| |
| |---[dll]------ GetWindowText

调用的DLL命令:

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

.DLL命令 CreateDCAsNull, 整数型, , "CreateDCA"
.参数 a, 文本型
.参数 b
.参数 c
.参数 d

.DLL命令 CreateDIBitmap, 整数型, , "CreateDIBitmap"
.参数 hdc
.参数 lpInfoHeader, 字节集
.参数 dwUsage
.参数 lpInitBits, 字节集
.参数 lpInitInfo, 字节集
.参数 wUsage

.DLL命令 DeleteObject, , , "DeleteObject"
.参数 z

.DLL命令 SelectObject, 整数型
.参数 a
.参数 b

.DLL命令 GetObjectAPI, , , "GetObjectA"
.参数 hObject
.参数 nCount
.参数 lpObject, BITMAP, 传址

.DLL命令 DeleteDC
.参数 a

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap"
.参数 h
.参数 w
.参数 h

.DLL命令 BitBlt, 整数型, , "BitBlt"
.参数 shdc, 整数型
.参数 z, 整数型
.参数 s, 整数型
.参数 k, 整数型
.参数 g, 整数型
.参数 dhdc, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 d, 整数型

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

.DLL命令 GetWindowRect, , , "GetWindowRect"
.参数 hwnd
.参数 lpRect, RECT, 传址

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hwnd
.参数 nIndex
.参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
.参数 lpPrevWndFunc
.参数 hwnd
.参数 Msg
.参数 wParam
.参数 lParam

.DLL命令 ReleaseDC, , , "ReleaseDC"
.参数 hwnd
.参数 hdc

.DLL命令 DrawText, , , "DrawTextA"
.参数 hdc
.参数 lpStr, 文本型
.参数 nCount
.参数 lpRect, RECT, 传址
.参数 wFormat

.DLL命令 SetBkMode, , , "SetBkMode"
.参数 hdc
.参数 nBkMode

.DLL命令 SetTextColor, , , "SetTextColor"
.参数 hdc
.参数 colors

.DLL命令 GetCursorPos, , , "GetCursorPos"
.参数 x, POINTAPI, 传址

.DLL命令 PostMessage, , , "PostMessageA"
.参数 hwnd
.参数 wMsg
.参数 wParam
.参数 lParam, , 传址

.DLL命令 IsWindowEnabled, 整数型, , "IsWindowEnabled"
.参数 hwnd, 整数型

.DLL命令 MulDiv, 整数型, , "MulDiv"
.参数 nNumber
.参数 nNumerator
.参数 nDenominator

.DLL命令 GetDeviceCaps, 整数型, , "GetDeviceCaps"
.参数 hdc
.参数 nIndex, , , LOGPIXELSY = 90

.DLL命令 CreateFontIndirect, 整数型, , "CreateFontIndirectA"
.参数 lpLogFont, LOGFONT

.DLL命令 GetWindowText, , , "GetWindowTextA"
.参数 hwnd
.参数 lpString, 文本型
.参数 cch