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

梦寻简单

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

  

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

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

局_窗口句柄 ＝ 参_组件.取窗口句柄 ()
' 获取行范围
局_开始位置 ＝ 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, 取变量数据地址 (局_选中位置))

jxm1010

这个厉害，学习一下。

yankejun520

下载下来看看

玫瑰很扎手

niu bbbbbbbbbbbbbbbbbbbbbbb

wh1234567

关于易语言#绿色，如果想用墨绿色，请问 #墨绿色 为什么不对？如何正确写？

xiaoxiao2

这个怎么清空所有设置行的背景色？

year1970

感谢分享

梦寻简单

  

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

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

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

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .子程序 超级编辑框_置指定行背景颜色<br /> .参数 参_组件, 超级编辑框<br /> .参数 参_行号, 整数型<br /> .参数 参_颜色, 整数型<br /> .局部变量 局_窗口句柄, 整数型<br /> .局部变量 局_开始位置, 整数型<br /> .局部变量 局_结束位置, 整数型<br /> .局部变量 局_原选中开始位置, 整数型<br /> .局部变量 局_原选中结束位置, 整数型<br /> .局部变量 局_字体格式, 字节集<br /> .局部变量 局_选中位置, 字节集<br /> .局部变量 局_字体格式_结构, CHARTFORMAT2<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 /> 局_字体格式_结构.cbSize ＝ 84<br /> ' #CFM_BACKCOLOR:67108864<br /> 局_字体格式_结构.dwMask ＝ 67108864<br /> 局_字体格式_结构.crBackColor ＝ 参_颜色<br /> SendMessageA_CHARTFORMAT2 (局_窗口句柄, 1092, 1, 局_字体格式_结构)<br /> <br /> ' 还原选中位置<br /> 局_选中位置 ＝ 到字节集 (局_原选中开始位置) ＋ 到字节集 (局_原选中结束位置)<br /> SendMessageA (局_窗口句柄, 1079, 0, 取变量数据地址 (局_选中位置))

自定义数据类型

  

数据类型名	公开	备 注
CHARTFORMAT2
成员名	类 型	传址	数组	备 注
cbSize	整数型
dwMask	整数型
dwEffects	整数型
yHeight	整数型
yOffset	整数型
crTextColor	整数型
bCharSet	字节型
bPitchAndFamily	字节型
szFaceName	字节型		34
wWeight	短整数型
sSpacing	短整数型
crBackColor	整数型
lcid	整数型
dwReserved	整数型
sStyle	短整数型
wKerning	短整数型
bUnderlineType	字节型
bAnimation	字节型
bRevAuthor	字节型
bUnderlineColor	字节型

.版本 2<br /> <br /> .数据类型 CHARTFORMAT2<br />     .成员 cbSize, 整数型<br />     .成员 dwMask, 整数型<br />     .成员 dwEffects, 整数型<br />     .成员 yHeight, 整数型<br />     .成员 yOffset, 整数型<br />     .成员 crTextColor, 整数型<br />     .成员 bCharSet, 字节型<br />     .成员 bPitchAndFamily, 字节型<br />     .成员 szFaceName, 字节型, , "34"<br />     .成员 wWeight, 短整数型<br />     .成员 sSpacing, 短整数型<br />     .成员 crBackColor, 整数型<br />     .成员 lcid, 整数型<br />     .成员 dwReserved, 整数型<br />     .成员 sStyle, 短整数型<br />     .成员 wKerning, 短整数型<br />     .成员 bUnderlineType, 字节型<br />     .成员 bAnimation, 字节型<br />     .成员 bRevAuthor, 字节型<br />     .成员 bUnderlineColor, 字节型

Dll命令：

  

DLL命令名	返回值类型	公开	备 注
SendMessageA_CHARTFORMAT2	整数型
DLL库文件名:
在DLL库中对应命令名:
SendMessageA
参数名	类 型	传址	数组	备 注
a
b
c
d	CHARTFORMAT2

.版本 2<br /> <br /> .DLL命令 SendMessageA_CHARTFORMAT2, 整数型, , "SendMessageA"<br />     .参数 a<br />     .参数 b<br />     .参数 c<br />     .参数 d, CHARTFORMAT2

@zhaopeng 数据类型重新编辑了下
@zhaopeng

zhaopeng

梦寻简单 发表于 2023-7-31 21:08
https://learn.microsoft.com/zh-cn/windows/win32/api/richedit/ns-richedit-charformat2a

是这个结构 ...

我是小白，我还有个问题请教，怎么把你说的这个结构体转化成你这个代码呢？

zhaopeng

梦寻简单 发表于 2023-7-31 21:08
https://learn.microsoft.com/zh-cn/windows/win32/api/richedit/ns-richedit-charformat2a

是这个结构 ...

好吧，知道了，我再看看，谢谢