啄啄进来帮我下可以吗--自绘问题

回眸微笑 · 发表于 2013-3-28 10:38:27

本帖最后由回眸微笑于 2013-3-29 14:50 编辑

我最近刚学自绘。。这个源码画不出字节集背景。不知道为什么帮我看看好吗先谢谢了。
问答区地址：http://bbs.125.la/thread-13640997-1-1.html
源码：
.版本 2
.程序集窗口程序集1
.程序集变量 Old_Hwnd, 整数型
.子程序 _Project_创建完毕
Gdiplus初始化 ()
Old_Hwnd ＝ SetWindowLong (取窗口句柄 (), -4, 到数值 (&PaintHandle))
.子程序 PaintHandle, 整数型
.参数 Hwnd, 整数型
.参数 uMsg, 整数型
.参数 lparam, 整数型
.参数 mparam, 整数型
.局部变量 PAINTSTRUCT, PAINTSTRUCT
.局部变量 DC, 整数型
.局部变量 MemoryDC, 整数型
.局部变量 ImgesDC, 整数型
.局部变量图形, GP图形
.局部变量图像, GP图像
.局部变量画刷, GP纯色画刷
.局部变量 WI_DC, 整数型
.如果真 (uMsg ＝ 15)
BeginPaint (Hwnd, PAINTSTRUCT)
DC ＝ GetDC (Hwnd)
MemoryDC ＝ CreateCompatibleDC (DC)
ImgesDC ＝ CreateCompatibleBitmap (MemoryDC, PAINTSTRUCT.rcPaint.Left ＋ PAINTSTRUCT.rcPaint.Right, PAINTSTRUCT.rcPaint.Top ＋ PAINTSTRUCT.rcPaint.Bottom)
WI_DC ＝ SelectObject (MemoryDC, ImgesDC)
图形.创建自DC (MemoryDC)
图像.创建自字节集 (#Skin)
图形.画图像缩放 (图像, 0, 0, 取用户区宽度 (), 取用户区高度 ())
画刷.创建 (ARGB到RGB (14463850, 8))
图形.填充矩形 (画刷, -1, -1, 取用户区宽度 () ＋ 1, 取用户区高度 () ＋ 1)
BitBlt (DC, PAINTSTRUCT.rcPaint.Left, PAINTSTRUCT.rcPaint.Top, PAINTSTRUCT.rcPaint.Left ＋ PAINTSTRUCT.rcPaint.Right, PAINTSTRUCT.rcPaint.Top ＋ PAINTSTRUCT.rcPaint.Bottom, MemoryDC, 0, 0, 13369376)
SelectObject (MemoryDC, WI_DC)
DeleteDC (MemoryDC)
EndPaint (Hwnd, PAINTSTRUCT)
.如果真结束
返回 (CallWindowProc (Old_Hwnd, Hwnd, uMsg, lparam, mparam))

——————————————————————————————————————————————————
源码我直接粘贴进来了。。请问下是哪里出错了。