超级编辑框(设置指定行背景颜色)

梦寻简单

在问答区看到的一个问题。
好评啥的点一点呗。

  

子程序名	返回值类型	公开	备 注
超级列表框_置指定行背景颜色
参数名	类 型	参考	可空	数组	备 注
参_组件	超级编辑框
参_行号	整数型
参_颜色	整数型

变量名	类 型	静态	数组	备 注
局_窗口句柄	整数型
局_开始位置	整数型
局_结束位置	整数型
局_原选中开始位置	整数型
局_原选中结束位置	整数型
局_字体格式	字节集
局_选中位置	字节集

局_窗口句柄 ＝ 参_组件.取窗口句柄 ()
' 获取行范围
局_开始位置 ＝ SendMessageA (局_窗口句柄, 187, 参_行号 － 1, 0)
局_结束位置 ＝ 局_开始位置 ＋ SendMessageA (局_窗口句柄, 193, 局_开始位置, 0)
如果真 (局_开始位置 ＝ 局_结束位置)
返回 ()
' 保存选中位置
局_选中位置 ＝ 取空白字节集 (8)
SendMessageA (局_窗口句柄, 1076, 0, 取变量数据地址 (局_选中位置))
局_原选中开始位置 ＝ 取字节集数据 (取字节集中间 (局_选中位置, 1, 4), #整数型, )
局_原选中结束位置 ＝ 取字节集数据 (取字节集中间 (局_选中位置, 5, 4), #整数型, )
' 选中指定行
局_选中位置 ＝ 到字节集 (局_开始位置) ＋ 到字节集 (局_结束位置)
SendMessageA (局_窗口句柄, 1079, 0, 取变量数据地址 (局_选中位置))
' 设置字体格式
局_字体格式 ＝ { 84, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (参_颜色) ＋ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }
SendMessageA (局_窗口句柄, 1092, 1, 取变量数据地址 (局_字体格式))
' 还原选中位置
局_选中位置 ＝ 到字节集 (局_原选中开始位置) ＋ 到字节集 (局_原选中结束位置)
SendMessageA (局_窗口句柄, 1079, 0, 取变量数据地址 (局_选中位置))

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 超级列表框_置指定行背景颜色<br /> .参数 参_组件, 超级编辑框<br /> .参数 参_行号, 整数型<br /> .参数 参_颜色, 整数型<br /> .局部变量 局_窗口句柄, 整数型<br /> .局部变量 局_开始位置, 整数型<br /> .局部变量 局_结束位置, 整数型<br /> .局部变量 局_原选中开始位置, 整数型<br /> .局部变量 局_原选中结束位置, 整数型<br /> .局部变量 局_字体格式, 字节集<br /> .局部变量 局_选中位置, 字节集<br /> <br /> 局_窗口句柄 ＝ 参_组件.取窗口句柄 ()<br /> ' 获取行范围<br /> 局_开始位置 ＝ SendMessageA (局_窗口句柄, 187, 参_行号 － 1, 0)<br /> 局_结束位置 ＝ 局_开始位置 ＋ SendMessageA (局_窗口句柄, 193, 局_开始位置, 0)<br /> .如果真 (局_开始位置 ＝ 局_结束位置)<br />     返回 ()<br /> .如果真结束<br /> ' 保存选中位置<br /> 局_选中位置 ＝ 取空白字节集 (8)<br /> SendMessageA (局_窗口句柄, 1076, 0, 取变量数据地址 (局_选中位置))<br /> 局_原选中开始位置 ＝ 取字节集数据 (取字节集中间 (局_选中位置, 1, 4), #整数型, )<br /> 局_原选中结束位置 ＝ 取字节集数据 (取字节集中间 (局_选中位置, 5, 4), #整数型, )<br /> <br /> ' 选中指定行<br /> 局_选中位置 ＝ 到字节集 (局_开始位置) ＋ 到字节集 (局_结束位置)<br /> SendMessageA (局_窗口句柄, 1079, 0, 取变量数据地址 (局_选中位置))<br /> <br /> ' 设置字体格式<br /> 局_字体格式 ＝ { 84, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (参_颜色) ＋ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }<br /> SendMessageA (局_窗口句柄, 1092, 1, 取变量数据地址 (局_字体格式))<br /> <br /> ' 还原选中位置<br /> 局_选中位置 ＝ 到字节集 (局_原选中开始位置) ＋ 到字节集 (局_原选中结束位置)<br /> SendMessageA (局_窗口句柄, 1079, 0, 取变量数据地址 (局_选中位置))

梦寻简单

沙发

曲终人散啊

感谢大佬分享，回头学习一下。

小了白了兔

这个好     但是你自己抢沙发不太好

shuage123

学到了  谢谢

huxian

是超级列表框还是超级编辑框啊

杰西卡技术传媒

        支持开源~！感谢分享

QQ1329127360

开源精神必须支持~

pjm123

谢谢分享

wjswzj0

感谢分享，很给力！~