位图置某点颜色为什么返回假

剧终0616

给bmp图片加边框
用位图，置四周1像素为黑色，但是效果不是整个边框，而是半个，，代码检查也没错，调试那半边没有置到的颜色返回是假

  

图片.载入数据 ( #图片1 )
宽 ＝ 图片.取宽度 ()
高 ＝ 图片.取高度 ()
调试输出 (宽, 高)
计次循环首 (高, y)
判断 (y ＝ 1 或 y ＝ 高)
计次循环首 (宽, x)
图片.置某点颜色 (y － 1, x － 1, #黑色 )
处理事件 ()
计次循环尾 ()


图片.置某点颜色 (y － 1, 0, #黑色 )  ' 取最左边像素
图片.置某点颜色 (y － 1, 宽 － 1, #黑色 )  ' 取最右边像素
' 调试输出 (图片.取某点颜色 (y － 1, 0), 图片.取某点颜色 (y － 1, 宽 － 1))

处理事件 ()
计次循环尾 ()
图片框1.图片 ＝ 图片.取位图数据 ()
写到文件 (取运行目录 () ＋ “\100.bmp”, 图片框1.图片)

i支持库列表	支持库注释
BmpOperate	位图操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 BmpOperate<br /> .支持库 spec<br /> <br /> 图片.载入数据 (#图片1)<br /> <br /> 宽 ＝ 图片.取宽度 ()<br /> 高 ＝ 图片.取高度 ()<br /> 调试输出 (宽, 高)<br /> .计次循环首 (高, y)<br />     .判断开始 (y ＝ 1 或 y ＝ 高)<br />         .计次循环首 (宽, x)<br />             图片.置某点颜色 (y － 1, x － 1, #黑色)<br />             处理事件 ()<br />         .计次循环尾 ()<br />     .默认<br /> <br />         图片.置某点颜色 (y － 1, 0, #黑色)  ' 取最左边像素<br />         图片.置某点颜色 (y － 1, 宽 － 1, #黑色)  ' 取最右边像素<br />         ' 调试输出 (图片.取某点颜色 (y － 1, 0), 图片.取某点颜色 (y － 1, 宽 － 1))<br /> <br />     .判断结束<br /> <br />     处理事件 ()<br /> .计次循环尾 ()<br /> 图片框1.图片 ＝ 图片.取位图数据 ()<br /> <br /> 写到文件 (取运行目录 () ＋ “\100.bmp”, 图片框1.图片)

补充内容 (2024-1-18 11:29):
上面的判断流程我没有弄错哦，是贴到精益就这样，可以下载代码看下！

woaity123

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

启动线程 (&子程序, , )

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

变量名	类 型	静态	数组	备 注
图片	位图
宽	整数型
高	整数型
y	整数型
x	整数型

图片.载入数据 ( #图片1 )
高 ＝ 图片.取宽度 ()
宽 ＝ 图片.取高度 ()
调试输出 (宽, 高)
计次循环首 (高, y)
判断 (y ＝ 1 或 y ＝ 高)
计次循环首 (宽, x)
图片.置某点颜色 (y － 1, x － 1, #黑色 )
处理事件 ()
计次循环尾 ()


图片.置某点颜色 (y － 1, 0, #黑色 )  ' 取最左边像素
图片.置某点颜色 (y － 1, 宽 － 1, #黑色 )  ' 取最右边像素
' 调试输出 (图片.取某点颜色 (y － 1, 0), 图片.取某点颜色 (y － 1, 宽 － 1))

处理事件 ()
计次循环尾 ()
图片框1.图片 ＝ 图片.取位图数据 ()
写到文件 (取运行目录 () ＋ “\100.bmp”, 图片框1.图片)

i支持库列表	支持库注释
EThread	多线程支持库
BmpOperate	位图操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 BmpOperate<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&子程序, , )<br /> <br /> .子程序 子程序<br /> .局部变量 图片, 位图<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 x, 整数型<br /> <br /> <br /> 图片.载入数据 (#图片1)<br /> <br /> 高 ＝ 图片.取宽度 ()<br /> 宽 ＝ 图片.取高度 ()<br /> 调试输出 (宽, 高)<br /> .计次循环首 (高, y)<br />     .判断开始 (y ＝ 1 或 y ＝ 高)<br />         .计次循环首 (宽, x)<br />             图片.置某点颜色 (y － 1, x － 1, #黑色)<br />             处理事件 ()<br />         .计次循环尾 ()<br />     .默认<br /> <br />         图片.置某点颜色 (y － 1, 0, #黑色)  ' 取最左边像素<br />         图片.置某点颜色 (y － 1, 宽 － 1, #黑色)  ' 取最右边像素<br />         ' 调试输出 (图片.取某点颜色 (y － 1, 0), 图片.取某点颜色 (y － 1, 宽 － 1))<br /> <br />     .判断结束<br /> <br />     处理事件 ()<br /> .计次循环尾 ()<br /> 图片框1.图片 ＝ 图片.取位图数据 ()<br /> <br /> 写到文件 (取运行目录 () ＋ “\100.bmp”, 图片框1.图片)

mytiger

将线程里循环修改下,用函数的时候要注意下参数.

  

计次循环首 (高, y)
判断 (y ＝ 1 或 y ＝ 高)
计次循环首 (宽, x)
图片.置某点颜色 (x － 1, y － 1, #黑色 )
处理事件 ()
计次循环尾 ()
图片.置某点颜色 (0, y － 1, #黑色 )  ' 取最左边像素
图片.置某点颜色 (宽 － 1, y － 1, #黑色 )  ' 取最右边像素
处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
BmpOperate	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .计次循环首 (高, y)<br />     .判断开始 (y ＝ 1 或 y ＝ 高)<br />         .计次循环首 (宽, x)<br />             图片.置某点颜色 (x － 1, y － 1, #黑色)<br />             处理事件 ()<br />         .计次循环尾 ()<br />     .默认<br />         图片.置某点颜色 (0, y － 1, #黑色)  ' 取最左边像素<br />         图片.置某点颜色 (宽 － 1, y － 1, #黑色)  ' 取最右边像素<br />     .判断结束<br />     处理事件 ()<br /> .计次循环尾 ()

补充内容 (2024-1-18 14:30):
到现在还没发现自己原来的错在哪.

补充内容 (2024-1-18 14:30):
对象．置某点颜色 （整数型 横坐标，整数型 纵坐标，整数型 欲置入的值）

剧终0616

mytiger 发表于 2024-1-18 07:37
将线程里循环修改下,用函数的时候要注意下参数.[e=0].版本 2
.支持库 BmpOperate

不懂你说的是什么。。你可以下载我的代码试看看。修改一下，你贴的这个好像啥都没改

剧终0616

woaity123 发表于 2024-1-18 11:42
[e=0].版本 2
.支持库 EThread
.支持库 BmpOperate

你这个不就是我原封不懂的代码，我出来的不是这样！

剧终0616

woaity123

剧终0616 发表于 2024-1-18 11:54
你这个不就是我原封不懂的代码，我出来的不是这样！

高 ＝ 图片.取宽度 ()
宽 ＝ 图片.取高度 ()

剧终0616

woaity123 发表于 2024-1-18 11:42
[e=0].版本 2
.支持库 EThread
.支持库 BmpOperate

原来，我取宽度和取高度赋值错了，谢谢，小问题看了很久没看出来！