首先要知道取得控件信息(“Win_Question3D”) 得到这个大控件指针后,大控件指针+2D8+I*4】+C】+4】+0】+4】+F0】
取得位图数据后 再加上位图信息后就可以在画板上显示图了。
八个小图组成一个大图。
不说了那么多了,直接易语言代码,
.版本 2
.支持库 BmpOperate
.子程序 _按钮6_被单击
.局部变量 图, 整数型
.局部变量 I, 整数型
.局部变量 B, 整数型
.局部变量 图片, 字节集
.局部变量 图片号, 整数型
.局部变量 位图, 位图
.局部变量 图1, 字节集
.局部变量 图2, 字节集
.局部变量 图3, 字节集
.局部变量 图4, 字节集
.局部变量 图5, 字节集
.局部变量 图6, 字节集
.局部变量 图7, 字节集
.局部变量 图8, 字节集
.局部变量 临时位图, 位图
.局部变量 测试, 整数型
.局部变量 测图, 字节集
.局部变量 测图1, 字节集
位图.创建 (600, 300, 32, #银白)
画板1.文本颜色 = #白色
画板1.重画 ()
画板1.自动重画 = 真
.计次循环首 (8, I)
图 = 读整型内存 (进程句柄, 十六到十 (大控件指针 (“Win_Question3D”)) + 十六到十 (“2D8”) + (I - 1) × 4)
图 = 读整型内存 (进程句柄, 图 + 十六到十 (“C”))
图 = 读整型内存 (进程句柄, 图 + 十六到十 (“4”))
图 = 读整型内存 (进程句柄, 图 + 十六到十 (“0”))
图 = 读整型内存 (进程句柄, 图 + 十六到十 (“4”))
图 = 读整型内存 (进程句柄, 图 + 十六到十 (“f0”))
读字节集内存 (进程句柄, 图, 图片, 102400)
临时位图.创建 (160, 160, 32, )
测图 = 临时位图.取位图数据 ()
临时位图.载入数据 (字节集替换 (测图, 54, 102400, 图片))
临时位图 = 临时位图.镜像 (假, 真)
.如果真 (I = 1)
临时位图.复制到 (0, 0, 150, 150, 位图, 0, 0, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 0, 0, 150, 150, )
画板1.定位写出 (0, 0, “1”)
.如果真结束
.如果真 (I = 2)
临时位图.复制到 (0, 0, 150, 150, 位图, 150, 0, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 0, 150, 150, 150, )
画板1.定位写出 (0, 150, “2”)
.如果真结束
.如果真 (I = 3)
临时位图.复制到 (0, 0, 150, 150, 位图, 300, 0, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 150, 0, 150, 150, )
画板1.定位写出 (150, 0, “3”)
.如果真结束
.如果真 (I = 4)
临时位图.复制到 (0, 0, 150, 150, 位图, 450, 0, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 150, 150, 150, 150, )
画板1.定位写出 (150, 150, “4”)
.如果真结束
.如果真 (I = 5)
临时位图.复制到 (0, 0, 150, 150, 位图, 0, 150, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 300, 0, 150, 150, )
画板1.定位写出 (300, 0, “5”)
.如果真结束
.如果真 (I = 6)
临时位图.复制到 (0, 0, 150, 150, 位图, 150, 150, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 300, 150, 150, 150, )
画板1.定位写出 (300, 150, “6”)
.如果真结束
.如果真 (I = 7)
临时位图.复制到 (0, 0, 150, 150, 位图, 300, 150, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 450, 0, 150, 150, )
画板1.定位写出 (450, 0, “7”)
.如果真结束
.如果真 (I = 8)
临时位图.复制到 (0, 0, 150, 150, 位图, 450, 150, )
画板1.画图片 (载入图片 (临时位图.取位图数据 ()), 450, 150, 150, 150, )
画板1.定位写出 (450, 150, “8”)
.如果真结束
.计次循环尾 ()
画板1.定位写出 (100, 125, “请输入图片中两个相同动物的编号(仅一对是相同的)”)
画板1.底图 = 画板1.取图片 (600, 300)
![]()
联系我时,请说是在 挂海论坛 上看到的,谢谢! |