✅类_内存画板\入门级\最小版

莫小乐

内存画板类 - 实现思路与教学解析

一、核心概念

什么是内存画板？

内存画板就是在内存中虚拟一块画布，所有绘制操作都在内存里完成，不会直接显示在屏幕上。画完后可以一次性导出为图片保存或显示。

打个比方：就像你在草稿纸上画画，画完后再拍照给别人看，而不是直接在展览墙上画。

为什么要用内存画板？

场景	说明
后台绘图	程序静默生成验证码、图表，无需界面
高性能渲染	在内存中拼合复杂图形，一次性输出，避免闪烁
图像处理	对已有图像做叠加文字、画框等二次加工
批量导出	批量生成证书、名片等带文字和图形的图片

---

二、整体架构设计思路

2.1 最小化设计原则

这个类定位为"最小版"，核心思想是：只保留最必要的功能，让使用者一眼看懂本质流程。

选定的四个核心能力：

• 创建画板 —— 开辟内存空间
• 设置工具 —— 换画笔、换字体
• 执行绘制 —— 画线、写文字
• 导出结果 —— 取出来用

不做的：画圆、画矩形、贴图、裁切等。这些不是不会，是故意留给读者扩展。

2.2 状态管理模式

类内部维护了几个关键的状态变量：

变量	作用	为什么需要
内存场景	指向内存 DC 的句柄	所有绘制操作的"目标"
位图句柄	指向内存中的位图	DC 必须在上面"画"，相当于画纸
背景画笔	创建画板时的背景色画笔	清除画板时复用，不用每次重建
填充矩形	画板的坐标范围	清除和调整大小时使用

设计要点：背景画笔和填充矩形在创建时初始化，之后复用。这种"创建一次，多次使用"的思路，是性能优化的基础。

---

三、GDI 绘图模型理解

3.1 Windows 绘图的"选工具"模型

GDI 的核心设计哲学是：先把工具选入 DC，再执行绘制命令。

① 创建工具（字体、画笔、画刷）
② 选入 DC（SelectObject）
③ 执行绘制（LineTo、TextOut 等）—— 自动使用当前选入的工具

所以类里的 设置字体、设置画笔，本质就是：

1. 创建新工具
2. 选入 DC
3. 删除旧工具（避免内存泄漏）

3.2 坐标系统

内存画板的坐标系：

• 原点：左上角 (0, 0)
• X 轴：向右递增
• Y 轴：向下递增

所有绘制函数传入的坐标都是相对于这个左上角原点的逻辑坐标。

---

四、各功能模块的设计思路

4.1 创建画板

流程：

获取屏幕 DC → 创建兼容位图 → 创建内存 DC → 位图选入 DC → 填充背景色 → 设置默认工具

关键决策点：

• 为什么用屏幕 DC 创建位图？ 为了保证位图与当前显示设备兼容，避免颜色失真
• 为什么立即填充背景？ 新位图内容是未定义的，不填充可能出现随机像素
• 为什么要设默认画笔和画刷？ 防止用户在不设置的情况下调用绘制导致失败

4.2 设置字体

字体大小计算：

实际像素 = (屏幕DPI × 字体磅值 ÷ 72) × (-1)

• 除以 72：1 英寸 = 72 磅
• 乘以 DPI：根据屏幕分辨率换算为像素
• 乘以 -1：负值表示以字符高度为单位（正值表示以单元格高度为单位）

设计选择：

• 只暴露名称、大小、粗细三个参数，其余参数内部固定
• 字体映射到实际物理字体的策略选 2（匹配最接近的字体）

4.3 设置画笔

相对简单，就是指定线宽和颜色，样式固定为实线。这是最常用的画笔类型。

4.4 画直线

两步走：

1. MoveToEx 把画笔移到起点
2. LineTo 从当前位置画到终点

画完后，画笔停留在终点位置，下次画线会从这里继续。如果不想连续，每次画之前都要 MoveToEx。

4.5 定位写出

直接调用 TextOutA，在指定坐标输出文本。简单直接，适合已知确切位置的场景。

4.6 矩形内写文本（重点设计）

这个功能的设计思路体现了API 封装的艺术：

原始 API 的痛点：
DrawTextA 需要传入一个复杂的格式标志组合（位或运算），对初学者不友好。

封装策略：

• 用三个易懂的参数（水平位置、垂直位置、是否多行）替代位标志
• 内部做映射转换：1 → DT_LEFT，2 → DT_RIGHT，其他 → DT_CENTER
• 自动判断单行/多行模式，避免使用者接触 DT_SINGLELINE、DT_WORDBREAK 等概念

单行 vs 多行的处理差异：

• 单行模式：文本超出矩形范围会被截断，需指定 DT_SINGLELINE
• 多行模式：文本自动换行，不能同时使用 DT_VCENTER（API 限制）

4.7 清除画板

直接用背景色画笔填充整个矩形。简单但有效，背景色在创建时就已保存。

4.8 调整画板尺寸

核心难点：调整大小后要保留原有内容。

实现思路：

创建新位图（目标尺寸）→ 填充背景 → 把旧内容拷贝过去 → 替换旧位图

用 BitBlt 做位图块传输，SRCCOPY 模式直接拷贝像素。这也是 GDI 中最常见的位图操作方式。

4.9 导出图片

BMP 文件结构：文件头（14 字节）+ 信息头（40 字节）+ 像素数据

实现流程：

1. GetObjectA 获取位图的宽、高、色深
2. 根据位图信息计算像素数据大小
3. 手动拼接 BMP 文件头和信息头
4. GetDIBits 提取像素数据
5. 三部分拼接成完整 BMP

为什么用 GetDIBits 而不用 GetBitmapBits？
GetDIBits 能保证像素数据是 DIB 格式（设备无关位图），便于跨设备使用和保存。

---

五、资源管理哲学

5.1 谁创建谁释放

• DC 创建 → DeleteDC
• GDI 对象创建 → DeleteObject
• 屏幕 DC（GetDC 获取）→ ReleaseDC

这三类资源有各自的释放函数，不能混用。

5.2 SelectObject 的返回值利用

DeleteObject(SelectObject(DC, 新对象))

这句经典写法做了三件事：

1. 把新对象选入 DC
2. 返回被替换出来的旧对象
3. 立刻删除旧对象

一行代码完成"替换 + 释放"，简洁高效。

5.3 析构时机

_销毁 方法里只释放了 内存场景。这是因为位图选入 DC 后，删除 DC 会自动清理位图。但严格来说，背景画笔没有被释放，这是最小版故意留下的资源泄漏，留给读者发现和完善。

---

六、局限性与改进方向

局限	原因	改进思路
无文本颜色设置	最小版未加入	增加 SetTextColor 调用
只支持 BMP 导出	BMP 结构最简单	引入 GDI+ 或编码库支持 PNG
无抗锯齿	GDI 原生限制	升级到 GDI+ 绘图
无图形绘制	最小版裁剪	增加 Rectangle、Ellipse 等
无错误处理	保持代码简洁	每步判断返回值并抛出异常

---

七、总结

这个内存画板类的设计体现了几个重要的编程思想：

1. 最小可用原则 —— 先让核心流程跑通，再逐步丰富
2. 封装复杂度 —— 把难用的原始 API 包装成易用的接口
3. 资源生命周期管理 —— 创建、使用、释放的完整闭环
4. 权衡取舍 —— 在简洁性和完整性之间找到平衡点

掌握了这些思路，就可以很容易地扩展出画矩形、画圆形、图片贴图、裁剪区域等更高级的功能。

常量

  

常量名称	常量值	公 开	备 注
PS_SOLID	0
LOGPIXELSX	88		像素/逻辑英寸（水平）
PAGE_GUARD	256		区域中的页面将成为保护页
MEM_COMMIT	4096		为指定的空间提交物理内存
MEM_MAPPED	262144		该区域的虚拟地址原先是受内存映射的数据文件的支持，但也许不再受数据文件的支持。例如，数据文件可以使用“写入时拷贝”的保护属性来映射。对文件的任何写入操作都将导致页文件而不是原始数据支持特定的页面
PAGE_READWRITE	4
PAGE_EXECUTE_READ	32
PAGE_EXECUTE_READWRITE	64
MEM_RELEASE	32768
MEM_IMAGE	16777216

.版本 2<br /> <br /> .常量 PS_SOLID, "0"<br /> .常量 LOGPIXELSX, "88", , 像素/逻辑英寸（水平）<br /> .常量 PAGE_GUARD, "256", , 区域中的页面将成为保护页<br /> .常量 MEM_COMMIT, "4096", , 为指定的空间提交物理内存<br /> .常量 MEM_MAPPED, "262144", , 该区域的虚拟地址原先是受内存映射的数据文件的支持，但也许不再受数据文件的支持。例如，数据文件可以使用“写入时拷贝”的保护属性来映射。对文件的任何写入操作都将导致页文件而不是原始数据支持特定的页面<br /> .常量 PAGE_READWRITE, "4"<br /> .常量 PAGE_EXECUTE_READ, "32"<br /> .常量 PAGE_EXECUTE_READWRITE, "64"<br /> .常量 MEM_RELEASE, "32768"<br /> .常量 MEM_IMAGE, "16777216"

API

  

DLL命令名	返回值类型	公开	备 注
DeleteDC	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
DeleteDC
参数名	类 型	传址	数组	备 注
hdc	整数型

DLL命令名	返回值类型	公开	备 注
CreateCompatibleDC	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateCompatibleDC
参数名	类 型	传址	数组	备 注
HDC	整数型

DLL命令名	返回值类型	公开	备 注
GetDC	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetDC
参数名	类 型	传址	数组	备 注
hWnd	整数型

DLL命令名	返回值类型	公开	备 注
CreateCompatibleBitmap	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateCompatibleBitmap
参数名	类 型	传址	数组	备 注
hdc	整数型
nWidth	整数型
nHeight	整数型

DLL命令名	返回值类型	公开	备 注
ReleaseDC	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
ReleaseDC
参数名	类 型	传址	数组	备 注
hWnd	整数型
hdc	整数型

DLL命令名	返回值类型	公开	备 注
SelectObject	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
SelectObject
参数名	类 型	传址	数组	备 注
hdc	整数型
hObject	整数型

DLL命令名	返回值类型	公开	备 注
CreateSolidBrush	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateSolidBrush
参数名	类 型	传址	数组	备 注
Color	整数型

DLL命令名	返回值类型	公开	备 注
FillRect	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
FillRect
参数名	类 型	传址	数组	备 注
hDC	整数型
lprc	矩形数据
hbr	整数型

DLL命令名	返回值类型	公开	备 注
CreatePen	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreatePen
参数名	类 型	传址	数组	备 注
nPenStyle	整数型
nWidth	整数型
crColor	整数型

DLL命令名	返回值类型	公开	备 注
BitBlt	整数型
DLL库文件名:
gdi32
在DLL库中对应命令名:
BitBlt
参数名	类 型	传址	数组	备 注
hDestDC	整数型
x	整数型
y	整数型
nWidth	整数型
nHeight	整数型
hSrcDC	整数型
xSrc	整数型
ySrc	整数型
dwRop	整数型

DLL命令名	返回值类型	公开	备 注
DeleteObject	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
DeleteObject
参数名	类 型	传址	数组	备 注
hObject	整数型

DLL命令名	返回值类型	公开	备 注
CreateFontA	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateFontA
参数名	类 型	传址	数组	备 注
nHeight	整数型
nWidth	整数型
nEscapement	整数型
nOrientation	整数型
fnWeight	整数型
fdwItalic	字节型
fdwUnderline	字节型
fdwStrikeOut	字节型
fdwCharSet	字节型
fdwOutputPrecision	字节型
fdwClipPrecision	字节型
fdwQuality	字节型
fdwPitchAndFamily	字节型
lpszFace	文本型

DLL命令名	返回值类型	公开	备 注
GetDeviceCaps	整数型
DLL库文件名:
gdi32
在DLL库中对应命令名:
GetDeviceCaps
参数名	类 型	传址	数组	备 注
HDC	整数型
int	整数型

DLL命令名	返回值类型	公开	备 注
MoveToEx	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
MoveToEx
参数名	类 型	传址	数组	备 注
hdc	整数型
x	整数型
y	整数型
lpPoint	整数型

DLL命令名	返回值类型	公开	备 注
LineTo	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
LineTo
参数名	类 型	传址	数组	备 注
hdc	整数型
x	整数型
y	整数型

DLL命令名	返回值类型	公开	备 注
TextOutA	逻辑型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
TextOutA
参数名	类 型	传址	数组	备 注
hdc	整数型
x	整数型
y	整数型
lpString	文本型
nCount	整数型

DLL命令名	返回值类型	公开	备 注
DrawTextA	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
DrawTextA
参数名	类 型	传址	数组	备 注
hdc	整数型
lpStr	文本型
nCount	整数型
lpRect	矩形数据
wFormat	整数型

DLL命令名	返回值类型	公开	备 注
GetObjectA	整数型
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
GetObjectA
参数名	类 型	传址	数组	备 注
hObject	整数型
nCount	整数型
lpObject	整数型

DLL命令名	返回值类型	公开	备 注
GetDIBits	整数型
DLL库文件名:
gdi32
在DLL库中对应命令名:
GetDIBits
参数名	类 型	传址	数组	备 注
HDC	整数型
HBITMAP	整数型
UINT	整数型
UINT	整数型
LPVOID	整数型
LPBITMAPINFO	整数型
UINT	整数型

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC"<br />     .参数 hdc, 整数型<br /> <br /> .DLL命令 CreateCompatibleDC, 整数型, "gdi32.dll", "CreateCompatibleDC"<br />     .参数 HDC, 整数型<br /> <br /> .DLL命令 GetDC, 整数型, "user32.dll", "GetDC"<br />     .参数 hWnd, 整数型<br /> <br /> .DLL命令 CreateCompatibleBitmap, 整数型, "gdi32.dll", "CreateCompatibleBitmap"<br />     .参数 hdc, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nHeight, 整数型<br /> <br /> .DLL命令 ReleaseDC, 整数型, "user32.dll", "ReleaseDC"<br />     .参数 hWnd, 整数型<br />     .参数 hdc, 整数型<br /> <br /> .DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject"<br />     .参数 hdc, 整数型<br />     .参数 hObject, 整数型<br /> <br /> .DLL命令 CreateSolidBrush, 整数型, "gdi32.dll", "CreateSolidBrush"<br />     .参数 Color, 整数型<br /> <br /> .DLL命令 FillRect, 整数型, "user32", "FillRect"<br />     .参数 hDC, 整数型<br />     .参数 lprc, 矩形数据<br />     .参数 hbr, 整数型<br /> <br /> .DLL命令 CreatePen, 整数型, "gdi32.dll", "CreatePen"<br />     .参数 nPenStyle, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 crColor, 整数型<br /> <br /> .DLL命令 BitBlt, 整数型, "gdi32", "BitBlt"<br />     .参数 hDestDC, 整数型<br />     .参数 x, 整数型<br />     .参数 y, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nHeight, 整数型<br />     .参数 hSrcDC, 整数型<br />     .参数 xSrc, 整数型<br />     .参数 ySrc, 整数型<br />     .参数 dwRop, 整数型<br /> <br /> .DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject"<br />     .参数 hObject, 整数型<br /> <br /> .DLL命令 CreateFontA, 整数型, "gdi32.dll", "CreateFontA"<br />     .参数 nHeight, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nEscapement, 整数型<br />     .参数 nOrientation, 整数型<br />     .参数 fnWeight, 整数型<br />     .参数 fdwItalic, 字节型<br />     .参数 fdwUnderline, 字节型<br />     .参数 fdwStrikeOut, 字节型<br />     .参数 fdwCharSet, 字节型<br />     .参数 fdwOutputPrecision, 字节型<br />     .参数 fdwClipPrecision, 字节型<br />     .参数 fdwQuality, 字节型<br />     .参数 fdwPitchAndFamily, 字节型<br />     .参数 lpszFace, 文本型<br /> <br /> .DLL命令 GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps"<br />     .参数 HDC, 整数型<br />     .参数 int, 整数型<br /> <br /> .DLL命令 MoveToEx, 整数型, "gdi32.dll", "MoveToEx"<br />     .参数 hdc, 整数型<br />     .参数 x, 整数型<br />     .参数 y, 整数型<br />     .参数 lpPoint, 整数型<br /> <br /> .DLL命令 LineTo, 整数型, "gdi32.dll", "LineTo"<br />     .参数 hdc, 整数型<br />     .参数 x, 整数型<br />     .参数 y, 整数型<br /> <br /> .DLL命令 TextOutA, 逻辑型, "gdi32.dll", "TextOutA"<br />     .参数 hdc, 整数型<br />     .参数 x, 整数型<br />     .参数 y, 整数型<br />     .参数 lpString, 文本型<br />     .参数 nCount, 整数型<br /> <br /> .DLL命令 DrawTextA, 整数型, "user32.dll", "DrawTextA"<br />     .参数 hdc, 整数型<br />     .参数 lpStr, 文本型<br />     .参数 nCount, 整数型<br />     .参数 lpRect, 矩形数据<br />     .参数 wFormat, 整数型<br /> <br /> .DLL命令 GetObjectA, 整数型, "gdi32.dll", "GetObjectA"<br />     .参数 hObject, 整数型<br />     .参数 nCount, 整数型<br />     .参数 lpObject, 整数型<br /> <br /> .DLL命令 GetDIBits, 整数型, "gdi32", "GetDIBits"<br />     .参数 HDC, 整数型<br />     .参数 HBITMAP, 整数型<br />     .参数 UINT, 整数型<br />     .参数 UINT, 整数型<br />     .参数 LPVOID, 整数型<br />     .参数 LPBITMAPINFO, 整数型<br />     .参数 UINT, 整数型

类

  

窗口程序集名	保 留	保 留	备 注
类_内存画板			by浪子：最小版
变量名	类 型	数组	备 注
内存场景	整数型
位图句柄	整数型
背景画笔	整数型
填充矩形	矩形数据

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

DeleteDC (内存场景)

子程序名	返回值类型	公开	备 注
创建	逻辑型
参数名	类 型	参考	可空	数组	备 注
宽度	整数型				欲创建内存画板的宽度
高度	整数型				欲创建内存画板的高度
背景颜色	整数型				画板背景颜色，可空默认为白色

变量名	类 型	静态	数组	备 注
桌面场景	整数型

如果真 (内存场景 ≠ 0)
DeleteDC (内存场景)
内存场景 ＝ CreateCompatibleDC (0)
桌面场景 ＝ GetDC (0)
位图句柄 ＝ CreateCompatibleBitmap (桌面场景, 宽度, 高度)
ReleaseDC (0, 桌面场景)
SelectObject (内存场景, 位图句柄)
如果真 (是否为空 (背景颜色))
背景颜色 ＝ #白色
填充矩形.左边 ＝ 0
填充矩形.顶边 ＝ 0
填充矩形.右边 ＝ 宽度
填充矩形.底边 ＝ 高度
背景画笔 ＝ CreateSolidBrush (背景颜色)
FillRect (内存场景, 填充矩形, 背景画笔)
SelectObject (内存场景, CreateSolidBrush ( #白色 ))  ' 设置默认画刷颜色为白色
SelectObject (内存场景, CreatePen ( #PS_SOLID, 2, #黑色 ))  ' 设置默认画笔颜色和画笔粗细
返回 (位图句柄 ≠ 0)

子程序名	返回值类型	公开	备 注
清除	逻辑型

返回 (FillRect (内存场景, 填充矩形, 背景画笔) ≠ 0)

子程序名	返回值类型	公开	备 注
置画板尺寸	整数型		新建一个位图句柄，然后把原图拷贝过来
参数名	类 型	参考	可空	数组	备 注
新宽度	整数型
新高度	整数型

变量名	类 型	静态	数组	备 注
缓存场景	整数型
桌面场景	整数型
缓存位图	整数型

缓存场景 ＝ CreateCompatibleDC (0)
桌面场景 ＝ GetDC (0)
缓存位图 ＝ CreateCompatibleBitmap (桌面场景, 新宽度, 新高度)
ReleaseDC (0, 桌面场景)
SelectObject (缓存场景, 缓存位图)
填充矩形.左边 ＝ 0
填充矩形.顶边 ＝ 0
填充矩形.右边 ＝ 新宽度
填充矩形.底边 ＝ 新高度
FillRect (缓存场景, 填充矩形, 背景画笔)
BitBlt (缓存场景, 0, 0, 新宽度, 新高度, 内存场景, 0, 0, 13369376)
DeleteObject (SelectObject (内存场景, 缓存位图))
DeleteDC (缓存场景)
位图句柄 ＝ 缓存位图
返回 (缓存位图)

子程序名	返回值类型	公开	备 注
设置字体	整数型		CreateFontA
参数名	类 型	参考	可空	数组	备 注
字体名称	文本型
字体大小	整数型
字体粗细	整数型				0 到 1000 例如 400 正常 700 粗体 此值为零则默认权重

变量名	类 型	静态	数组	备 注
字体对象	整数型

字体对象 ＝ CreateFontA (GetDeviceCaps (内存场景, #LOGPIXELSX ) × 字体大小 ÷ 72 × -1, 0, 0, 0, 字体粗细, 0, 0, 0, 1, 0, 0, 2, 0, 字体名称)
DeleteObject (SelectObject (内存场景, 字体对象))
返回 (字体对象)

子程序名	返回值类型	公开	备 注
设置画笔	整数型		CreatePen
参数名	类 型	参考	可空	数组	备 注
线宽	整数型
颜色	整数型

变量名	类 型	静态	数组	备 注
画笔	整数型

画笔 ＝ CreatePen ( #PS_SOLID, 线宽, 颜色)
DeleteObject (SelectObject (内存场景, 画笔))
返回 (画笔)

子程序名	返回值类型	公开	备 注
画直线	整数型		LineTo
参数名	类 型	参考	可空	数组	备 注
起点X	整数型
起点Y	整数型
终点X	整数型
终点Y	整数型

MoveToEx (内存场景, 起点X, 起点Y, 0)
返回 (LineTo (内存场景, 终点X, 终点Y))

子程序名	返回值类型	公开	备 注
定位写出	逻辑型		TextOutA
参数名	类 型	参考	可空	数组	备 注
X坐标	整数型
Y坐标	整数型
文本内容	文本型

返回 (TextOutA (内存场景, X坐标, Y坐标, 文本内容, 取文本长度 (文本内容)))

子程序名	返回值类型	公开	备 注
写文本_矩形内	整数型		DrawTextA
参数名	类 型	参考	可空	数组	备 注
欲写出文本	文本型
起始左边	整数型
起始顶边	整数型
画出宽度	整数型
画出高度	整数型
水平位置	整数型				1=左边 2=右边 其他任意值为居中
垂直位置	整数型				1=顶部 2=底部 其他任意值为居中
多行显示	逻辑型				默认为 假=单行显示 真=多行显示

变量名	类 型	静态	数组	备 注
矩形范围	矩形数据

矩形范围.左边 ＝ 起始左边
矩形范围.顶边 ＝ 起始顶边
矩形范围.右边 ＝ 起始左边 ＋ 画出宽度
矩形范围.底边 ＝ 起始顶边 ＋ 画出高度
判断 (水平位置 ＝ 1)
水平位置 ＝ 0  ' #DT_LEFT
判断 (水平位置 ＝ 2)
水平位置 ＝ 2  ' #DT_RIGHT
水平位置 ＝ 1  ' #DT_CENTER
判断 (垂直位置 ＝ 1)
垂直位置 ＝ 0  ' #DT_TOP
判断 (垂直位置 ＝ 2)
垂直位置 ＝ 8  ' #DT_BOTTOM
垂直位置 ＝ 4  ' #DT_VCENTER  #DT_SINGLELINE = 32 仅显示单行上的文本。 回车符和换行符不会中断该行。
返回 (DrawTextA (内存场景, 欲写出文本, -1, 矩形范围, 水平位置 ＋ 垂直位置 ＋ 选择 (多行显示, 0, 32)))

子程序名	返回值类型	公开	备 注
取图片	字节集		GetDIBits

变量名	类 型	静态	数组	备 注
位图头部	字节集
位图信息	字节集
位图数据	字节集
返回数据	字节集
位图宽度	整数型
位图高度	整数型
位图深度	短整数型
位图大小	整数型

返回数据 ＝ 取空白字节集 (24)
GetObjectA (位图句柄, 24, 取指针_字节集 (返回数据))
位图宽度 ＝ 取字节集数据 (返回数据, #整数型, 5)
位图高度 ＝ 取字节集数据 (返回数据, #整数型, 9)
位图深度 ＝ 取字节集数据 (返回数据, #短整数型, 19)
位图大小 ＝ 位图宽度 × 位图高度 × 位图深度 ÷ 8
位图数据 ＝ 取空白字节集 (位图大小)
位图头部 ＝ { 66, 77 } ＋ 到字节集 (到整数 (位图大小 ＋ 54)) ＋ { 0, 0, 0, 0, 54, 0, 0, 0 }
位图信息 ＝ { 40, 0, 0, 0 } ＋ 到字节集 (位图宽度) ＋ 到字节集 (位图高度) ＋ { 1, 0 } ＋ 到字节集 (位图深度) ＋ { 0, 0, 0, 0 } ＋ 到字节集 (位图大小) ＋ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
GetDIBits (内存场景, 位图句柄, 0, 位图高度, 取指针_字节集 (位图数据), 取指针_字节集 (位图信息), 0)
返回 (位图头部 ＋ 位图信息 ＋ 位图数据)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 类_内存画板, , , by浪子：最小版<br /> .程序集变量 内存场景, 整数型<br /> .程序集变量 位图句柄, 整数型<br /> .程序集变量 背景画笔, 整数型<br /> .程序集变量 填充矩形, 矩形数据<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> DeleteDC (内存场景)<br /> <br /> .子程序 创建, 逻辑型, 公开<br /> .参数 宽度, 整数型, , 欲创建内存画板的宽度<br /> .参数 高度, 整数型, , 欲创建内存画板的高度<br /> .参数 背景颜色, 整数型, 可空, 画板背景颜色，可空默认为白色<br /> .局部变量 桌面场景, 整数型<br /> <br /> .如果真 (内存场景 ≠ 0)<br />     DeleteDC (内存场景)<br /> .如果真结束<br /> 内存场景 ＝ CreateCompatibleDC (0)<br /> <br /> 桌面场景 ＝ GetDC (0)<br /> 位图句柄 ＝ CreateCompatibleBitmap (桌面场景, 宽度, 高度)<br /> ReleaseDC (0, 桌面场景)<br /> SelectObject (内存场景, 位图句柄)<br /> <br /> .如果真 (是否为空 (背景颜色))<br />     背景颜色 ＝ #白色<br /> .如果真结束<br /> 填充矩形.左边 ＝ 0<br /> 填充矩形.顶边 ＝ 0<br /> 填充矩形.右边 ＝ 宽度<br /> 填充矩形.底边 ＝ 高度<br /> 背景画笔 ＝ CreateSolidBrush (背景颜色)<br /> FillRect (内存场景, 填充矩形, 背景画笔)<br /> <br /> SelectObject (内存场景, CreateSolidBrush (#白色))  ' 设置默认画刷颜色为白色<br /> SelectObject (内存场景, CreatePen (#PS_SOLID, 2, #黑色))  ' 设置默认画笔颜色和画笔粗细<br /> 返回 (位图句柄 ≠ 0)<br /> <br /> .子程序 清除, 逻辑型, 公开<br /> <br /> 返回 (FillRect (内存场景, 填充矩形, 背景画笔) ≠ 0)<br /> <br /> .子程序 置画板尺寸, 整数型, 公开, 新建一个位图句柄，然后把原图拷贝过来<br /> .参数 新宽度, 整数型<br /> .参数 新高度, 整数型<br /> .局部变量 缓存场景, 整数型<br /> .局部变量 桌面场景, 整数型<br /> .局部变量 缓存位图, 整数型<br /> <br /> 缓存场景 ＝ CreateCompatibleDC (0)<br /> 桌面场景 ＝ GetDC (0)<br /> 缓存位图 ＝ CreateCompatibleBitmap (桌面场景, 新宽度, 新高度)<br /> ReleaseDC (0, 桌面场景)<br /> SelectObject (缓存场景, 缓存位图)<br /> 填充矩形.左边 ＝ 0<br /> 填充矩形.顶边 ＝ 0<br /> 填充矩形.右边 ＝ 新宽度<br /> 填充矩形.底边 ＝ 新高度<br /> FillRect (缓存场景, 填充矩形, 背景画笔)<br /> BitBlt (缓存场景, 0, 0, 新宽度, 新高度, 内存场景, 0, 0, 13369376)<br /> DeleteObject (SelectObject (内存场景, 缓存位图))<br /> DeleteDC (缓存场景)<br /> 位图句柄 ＝ 缓存位图<br /> 返回 (缓存位图)<br /> <br /> .子程序 设置字体, 整数型, 公开, CreateFontA<br /> .参数 字体名称, 文本型<br /> .参数 字体大小, 整数型<br /> .参数 字体粗细, 整数型, , 0 到 1000 例如 400 正常 700 粗体 此值为零则默认权重<br /> .局部变量 字体对象, 整数型<br /> <br /> 字体对象 ＝ CreateFontA (GetDeviceCaps (内存场景, #LOGPIXELSX) × 字体大小 ÷ 72 × -1, 0, 0, 0, 字体粗细, 0, 0, 0, 1, 0, 0, 2, 0, 字体名称)<br /> DeleteObject (SelectObject (内存场景, 字体对象))<br /> 返回 (字体对象)<br /> <br /> .子程序 设置画笔, 整数型, 公开, CreatePen<br /> .参数 线宽, 整数型<br /> .参数 颜色, 整数型<br /> .局部变量 画笔, 整数型<br /> <br /> 画笔 ＝ CreatePen (#PS_SOLID, 线宽, 颜色)<br /> DeleteObject (SelectObject (内存场景, 画笔))<br /> 返回 (画笔)<br /> <br /> .子程序 画直线, 整数型, 公开, LineTo<br /> .参数 起点X, 整数型<br /> .参数 起点Y, 整数型<br /> .参数 终点X, 整数型<br /> .参数 终点Y, 整数型<br /> <br /> MoveToEx (内存场景, 起点X, 起点Y, 0)<br /> 返回 (LineTo (内存场景, 终点X, 终点Y))<br /> <br /> .子程序 定位写出, 逻辑型, 公开, TextOutA<br /> .参数 X坐标, 整数型<br /> .参数 Y坐标, 整数型<br /> .参数 文本内容, 文本型<br /> <br /> 返回 (TextOutA (内存场景, X坐标, Y坐标, 文本内容, 取文本长度 (文本内容)))<br /> <br /> .子程序 写文本_矩形内, 整数型, 公开, DrawTextA<br /> .参数 欲写出文本, 文本型<br /> .参数 起始左边, 整数型<br /> .参数 起始顶边, 整数型<br /> .参数 画出宽度, 整数型<br /> .参数 画出高度, 整数型<br /> .参数 水平位置, 整数型, 可空, 1=左边 2=右边 其他任意值为居中<br /> .参数 垂直位置, 整数型, 可空, 1=顶部 2=底部 其他任意值为居中<br /> .参数 多行显示, 逻辑型, 可空, 默认为 假=单行显示 真=多行显示<br /> .局部变量 矩形范围, 矩形数据<br /> <br /> 矩形范围.左边 ＝ 起始左边<br /> 矩形范围.顶边 ＝ 起始顶边<br /> 矩形范围.右边 ＝ 起始左边 ＋ 画出宽度<br /> 矩形范围.底边 ＝ 起始顶边 ＋ 画出高度<br /> .判断开始 (水平位置 ＝ 1)<br />     水平位置 ＝ 0  ' #DT_LEFT<br /> .判断 (水平位置 ＝ 2)<br />     水平位置 ＝ 2  ' #DT_RIGHT<br /> .默认<br />     水平位置 ＝ 1  ' #DT_CENTER<br /> .判断结束<br /> .判断开始 (垂直位置 ＝ 1)<br />     垂直位置 ＝ 0  ' #DT_TOP<br /> .判断 (垂直位置 ＝ 2)<br />     垂直位置 ＝ 8  ' #DT_BOTTOM<br /> .默认<br />     垂直位置 ＝ 4  ' #DT_VCENTER  #DT_SINGLELINE = 32 仅显示单行上的文本。 回车符和换行符不会中断该行。<br /> .判断结束<br /> 返回 (DrawTextA (内存场景, 欲写出文本, -1, 矩形范围, 水平位置 ＋ 垂直位置 ＋ 选择 (多行显示, 0, 32)))<br /> <br /> .子程序 取图片, 字节集, 公开, GetDIBits<br /> .局部变量 位图头部, 字节集<br /> .局部变量 位图信息, 字节集<br /> .局部变量 位图数据, 字节集<br /> .局部变量 返回数据, 字节集<br /> .局部变量 位图宽度, 整数型<br /> .局部变量 位图高度, 整数型<br /> .局部变量 位图深度, 短整数型<br /> .局部变量 位图大小, 整数型<br /> <br /> 返回数据 ＝ 取空白字节集 (24)<br /> GetObjectA (位图句柄, 24, 取指针_字节集 (返回数据))<br /> 位图宽度 ＝ 取字节集数据 (返回数据, #整数型, 5)<br /> 位图高度 ＝ 取字节集数据 (返回数据, #整数型, 9)<br /> 位图深度 ＝ 取字节集数据 (返回数据, #短整数型, 19)<br /> 位图大小 ＝ 位图宽度 × 位图高度 × 位图深度 ÷ 8<br /> 位图数据 ＝ 取空白字节集 (位图大小)<br /> 位图头部 ＝ { 66, 77 } ＋ 到字节集 (到整数 (位图大小 ＋ 54)) ＋ { 0, 0, 0, 0, 54, 0, 0, 0 }<br /> 位图信息 ＝ { 40, 0, 0, 0 } ＋ 到字节集 (位图宽度) ＋ 到字节集 (位图高度) ＋ { 1, 0 } ＋ 到字节集 (位图深度) ＋ { 0, 0, 0, 0 } ＋ 到字节集 (位图大小) ＋ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }<br /> GetDIBits (内存场景, 位图句柄, 0, 位图高度, 取指针_字节集 (位图数据), 取指针_字节集 (位图信息), 0)<br /> 返回 (位图头部 ＋ 位图信息 ＋ 位图数据)

调用

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
画板	类_内存画板

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

跑测试 ()

子程序名	返回值类型	公开	备 注
跑测试

变量名	类 型	静态	数组	备 注
成功	整数型
失败	整数型
图片数据	字节集
句柄	整数型
结果	整数型
标志	逻辑型

成功 ＝ 0
失败 ＝ 0
调试输出 (“========================================”)
调试输出 (“       内存画板类 - 功能测试”)
调试输出 (“========================================”)
' [1] 创建画板
调试输出 (“”)
调试输出 (“[1/10] 创建画板 (640×480, 红色背景)”)
标志 ＝ 画板.创建 (640, 480, #天蓝 )
如果 (标志)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [2] 设置字体
调试输出 (“”)
调试输出 (“[2/10] 设置字体 (微软雅黑, 32, 粗体)”)
句柄 ＝ 画板.设置字体 (“微软雅黑”, 32, 700)
如果 (句柄 ≠ 0)
成功 ＝ 成功 ＋ 1
调试输出 (“通过 (句柄=” ＋ 到文本 (句柄) ＋ “)”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [3] 设置画笔
调试输出 (“”)
调试输出 (“[3/10] 设置画笔 (线宽3, 蓝色)”)
句柄 ＝ 画板.设置画笔 (2, #红色 )
如果 (句柄 ≠ 0)
成功 ＝ 成功 ＋ 1
调试输出 (“通过 (句柄=” ＋ 到文本 (句柄) ＋ “)”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [4] 画直线
调试输出 (“”)
调试输出 (“[4/10] 画直线 (3条水平线)”)
结果 ＝ 画板.画直线 (50, 50, 300, 50)
画板.画直线 (50, 100, 300, 100)
画板.画直线 (50, 150, 300, 150)
如果 (结果 ≠ 0)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [5] 定位写出
调试输出 (“”)
调试输出 (“[5/10] 定位写出 (坐标100, 200)”)
标志 ＝ 画板.定位写出 (100, 200, “定位写出 (坐标100, 200)”)
如果 (标志)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [6] 矩形内写文本-单行居中
调试输出 (“”)
调试输出 (“[6/10] 矩形内写文本 (单行居中)”)
结果 ＝ 画板.写文本_矩形内 (“矩形内写文本 (单行居中)”, 50, 250, 540, 50, 0, 0, 假)
如果 (结果 ≠ 0)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [7] 矩形内写文本-多行
调试输出 (“”)
调试输出 (“[7/10] 矩形内写文本 (多行左上)”)
结果 ＝ 画板.写文本_矩形内 (“第一行” ＋ #换行符 ＋ “第二行” ＋ #换行符 ＋ “第三行”, 50, 320, 540, 100, 1, 1, 真)
如果 (结果 ≠ 0)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [8] 清除画板
调试输出 (“”)
调试输出 (“[8/10] 清除画板”)
标志 ＝ 画板.清除 ()
如果 (标志)
成功 ＝ 成功 ＋ 1
调试输出 (“通过”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' 重绘测试内容
画板.设置画笔 (2, #黑色 )
画板.画直线 (0, 0, 640, 480)
画板.画直线 (640, 0, 0, 480)
画板.设置字体 (“宋体”, 24, 400)
画板.定位写出 (200, 220, “画板测试_入门级思路”)
' [9] 取图片
调试输出 (“”)
调试输出 (“[9/10] 获取位图数据”)
图片数据 ＝ 画板.取图片 ()
如果 (取字节集长度 (图片数据) ＞ 0)
写到文件 (取运行目录 () ＋ “\test_output.bmp”, 图片数据)
成功 ＝ 成功 ＋ 1
调试输出 (“通过 (” ＋ 到文本 (取字节集长度 (图片数据)) ＋ “ 字节, 已保存)”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)

' [10] 置画板尺寸
调试输出 (“”)
调试输出 (“[10/10] 调整尺寸 (800×600)”)
结果 ＝ 画板.置画板尺寸 (800, 600)
如果 (结果 ≠ 0)
画板.设置画笔 (3, #绿色 )
画板.画直线 (0, 0, 800, 600)
画板.画直线 (800, 0, 0, 600)
画板.设置字体 (“楷体”, 36, 700)
画板.定位写出 (250, 280, “尺寸已调整”)
图片数据 ＝ 画板.取图片 ()
图片框1.图片 ＝ 图片数据
写到文件 (取运行目录 () ＋ “\test_resized.bmp”, 图片数据)
成功 ＝ 成功 ＋ 1
调试输出 (“通过 (已保存 test_resized.bmp)”)
失败 ＝ 失败 ＋ 1
调试输出 (“失败”)
调试输出 (取运行目录 () ＋ “\test_resized.bmp”)
' 汇总
调试输出 (“”)
调试输出 (“========================================”)
调试输出 (“  通过: ” ＋ 到文本 (成功) ＋ “  |  失败: ” ＋ 到文本 (失败) ＋ “  |  总计: ” ＋ 到文本 (成功 ＋ 失败))
调试输出 (“========================================”)

子程序名	返回值类型	公开	备 注
取指针_字节集	整数型
参数名	类 型	参考	可空	数组	备 注
字节集数据	字节集

置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 201, 194, 4, 0 })
返回 (0)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 画板, 类_内存画板<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 跑测试 ()<br /> <br /> .子程序 跑测试<br /> .局部变量 成功, 整数型<br /> .局部变量 失败, 整数型<br /> .局部变量 图片数据, 字节集<br /> .局部变量 句柄, 整数型<br /> .局部变量 结果, 整数型<br /> .局部变量 标志, 逻辑型<br /> <br /> 成功 ＝ 0<br /> 失败 ＝ 0<br /> <br /> 调试输出 (“========================================”)<br /> 调试输出 (“       内存画板类 - 功能测试”)<br /> 调试输出 (“========================================”)<br /> <br /> ' [1] 创建画板<br /> 调试输出 (“”)<br /> 调试输出 (“[1/10] 创建画板 (640×480, 红色背景)”)<br /> 标志 ＝ 画板.创建 (640, 480, #天蓝)<br /> .如果 (标志)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [2] 设置字体<br /> 调试输出 (“”)<br /> 调试输出 (“[2/10] 设置字体 (微软雅黑, 32, 粗体)”)<br /> 句柄 ＝ 画板.设置字体 (“微软雅黑”, 32, 700)<br /> .如果 (句柄 ≠ 0)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过 (句柄=” ＋ 到文本 (句柄) ＋ “)”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [3] 设置画笔<br /> 调试输出 (“”)<br /> 调试输出 (“[3/10] 设置画笔 (线宽3, 蓝色)”)<br /> 句柄 ＝ 画板.设置画笔 (2, #红色)<br /> .如果 (句柄 ≠ 0)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过 (句柄=” ＋ 到文本 (句柄) ＋ “)”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [4] 画直线<br /> 调试输出 (“”)<br /> 调试输出 (“[4/10] 画直线 (3条水平线)”)<br /> 结果 ＝ 画板.画直线 (50, 50, 300, 50)<br /> 画板.画直线 (50, 100, 300, 100)<br /> 画板.画直线 (50, 150, 300, 150)<br /> .如果 (结果 ≠ 0)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [5] 定位写出<br /> 调试输出 (“”)<br /> 调试输出 (“[5/10] 定位写出 (坐标100, 200)”)<br /> 标志 ＝ 画板.定位写出 (100, 200, “定位写出 (坐标100, 200)”)<br /> .如果 (标志)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [6] 矩形内写文本-单行居中<br /> 调试输出 (“”)<br /> 调试输出 (“[6/10] 矩形内写文本 (单行居中)”)<br /> 结果 ＝ 画板.写文本_矩形内 (“矩形内写文本 (单行居中)”, 50, 250, 540, 50, 0, 0, 假)<br /> .如果 (结果 ≠ 0)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [7] 矩形内写文本-多行<br /> 调试输出 (“”)<br /> 调试输出 (“[7/10] 矩形内写文本 (多行左上)”)<br /> 结果 ＝ 画板.写文本_矩形内 (“第一行” ＋ #换行符 ＋ “第二行” ＋ #换行符 ＋ “第三行”, 50, 320, 540, 100, 1, 1, 真)<br /> .如果 (结果 ≠ 0)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [8] 清除画板<br /> 调试输出 (“”)<br /> 调试输出 (“[8/10] 清除画板”)<br /> 标志 ＝ 画板.清除 ()<br /> .如果 (标志)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' 重绘测试内容<br /> 画板.设置画笔 (2, #黑色)<br /> 画板.画直线 (0, 0, 640, 480)<br /> 画板.画直线 (640, 0, 0, 480)<br /> 画板.设置字体 (“宋体”, 24, 400)<br /> 画板.定位写出 (200, 220, “画板测试_入门级思路”)<br /> ' [9] 取图片<br /> 调试输出 (“”)<br /> 调试输出 (“[9/10] 获取位图数据”)<br /> 图片数据 ＝ 画板.取图片 ()<br /> .如果 (取字节集长度 (图片数据) ＞ 0)<br />     写到文件 (取运行目录 () ＋ “\test_output.bmp”, 图片数据)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过 (” ＋ 到文本 (取字节集长度 (图片数据)) ＋ “ 字节, 已保存)”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> <br /> ' [10] 置画板尺寸<br /> 调试输出 (“”)<br /> 调试输出 (“[10/10] 调整尺寸 (800×600)”)<br /> 结果 ＝ 画板.置画板尺寸 (800, 600)<br /> .如果 (结果 ≠ 0)<br />     画板.设置画笔 (3, #绿色)<br />     画板.画直线 (0, 0, 800, 600)<br />     画板.画直线 (800, 0, 0, 600)<br />     画板.设置字体 (“楷体”, 36, 700)<br />     画板.定位写出 (250, 280, “尺寸已调整”)<br />     图片数据 ＝ 画板.取图片 ()<br />     图片框1.图片 ＝ 图片数据<br />     写到文件 (取运行目录 () ＋ “\test_resized.bmp”, 图片数据)<br />     成功 ＝ 成功 ＋ 1<br />     调试输出 (“通过 (已保存 test_resized.bmp)”)<br /> .否则<br />     失败 ＝ 失败 ＋ 1<br />     调试输出 (“失败”)<br /> .如果结束<br /> 调试输出 (取运行目录 () ＋ “\test_resized.bmp”)<br /> ' 汇总<br /> 调试输出 (“”)<br /> 调试输出 (“========================================”)<br /> 调试输出 (“  通过: ” ＋ 到文本 (成功) ＋ “  |  失败: ” ＋ 到文本 (失败) ＋ “  |  总计: ” ＋ 到文本 (成功 ＋ 失败))<br /> 调试输出 (“========================================”)<br /> <br /> .子程序 取指针_字节集, 整数型<br /> .参数 字节集数据, 字节集<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 201, 194, 4, 0 })<br /> 返回 (0)

游客，如果您要查看本帖隐藏内容请回复

陈治勤

66666666666666666666666

4887201

感谢分享

汉族

支持一下啊   

ljx111

感谢分享

283688410

谢谢分享

zjmowu

谢谢大佬分享!~

灵海雪缘

pinglin

6666666666666666666

chinapk

如果您要查看本帖隐藏内容请回复