大家看看这个工具条子程序有啥缺点吗

夏目阿布

扒了半天也没看见论坛有操作这个数据的，简单敲了一下

  

子程序名	返回值类型	公开	备 注
工具条_置类型	逻辑型
参数名	类 型	参考	可空	数组	备 注
工具条	工具条
按钮索引	整数型
类型	整数型				0按钮 1分隔条 2多选按钮 6单选按钮 8下拉按钮
图片索引	整数型				空为不更改 空白图片为-1
按钮属性	整数型				空为不更改 工具条_取状态码()
标题	文本型				空为不更改
提示文本	文本型				空为不更改

变量名	类 型	静态	数组	备 注
工具条数据	字节集
jc	整数型
索引	整数型
_按钮类型	字节型
_按钮状态	字节型
_图片索引	整数型
_按钮标题	文本型
_按钮提示文本	文本型
输出属性	字节集
临时整数	整数型

工具条数据 ＝ 工具条.工具条按钮
' 调试输出 (工具条数据)
索引 ＝ 1
如果真 (取字节集数据 (工具条数据, #整数型, 索引) － 1 ＜ 按钮索引)  ' 判断按钮索引是否超出了
返回 (假)

计次循环首 (按钮索引, jc)
_图片索引 ＝ 取字节集数据 (工具条数据, #整数型, 索引)  ' 图片索引
' 调试输出 (“ 图片索引”, 图片索引)
_按钮状态 ＝ 取字节集数据 (工具条数据, #字节型, 索引)  ' 状态
' 调试输出 (“状态”, 按钮状态)  ' 状态
_按钮类型 ＝ 取字节集数据 (工具条数据, #字节型, 索引)
' 调试输出 (“按钮类型”, 按钮类型)
_按钮标题 ＝ 取字节集数据 (工具条数据, #文本型, 索引)
' 调试输出 (“按钮标题”, 按钮标题)
_按钮提示文本 ＝ 取字节集数据 (工具条数据, #文本型, 索引)
' 调试输出 (“按钮提示文本”, 按钮提示文本)
' 调试输出 (jc, _图片索引, _按钮状态, _按钮类型, _按钮标题, _按钮提示文本)
计次循环尾 ()
如果真 (是否为空 (图片索引) ＝ 假)
工具条数据 ＝ 字节集替换 (工具条数据, 索引, 4, 到字节集 (图片索引))
索引 ＝ 索引 ＋ 4
如果真 (是否为空 (按钮属性) ＝ 假)
工具条数据 ＝ 字节集替换 (工具条数据, 索引, 1, 到字节集 (到字节 (按钮属性)))
索引 ＝ 索引 ＋ 1
如果真 (是否为空 (类型) ＝ 假)
工具条数据 ＝ 字节集替换 (工具条数据, 索引, 1, 到字节集 (到字节 (类型)))
索引 ＝ 索引 ＋ 1
临时整数 ＝ 寻找字节集 (工具条数据, { 0 }, 索引)
临时整数 ＝ 临时整数 － 索引
如果真 (是否为空 (标题) ＝ 假)
工具条数据 ＝ 字节集替换 (工具条数据, 索引, 临时整数, 到字节集 (标题))
索引 ＝ 索引 ＋ 临时整数 ＋ 1
临时整数 ＝ 寻找字节集 (工具条数据, { 0 }, 索引)
临时整数 ＝ 临时整数 － 索引
如果真 (是否为空 (提示文本) ＝ 假)
工具条数据 ＝ 字节集替换 (工具条数据, 索引, 临时整数, 到字节集 (提示文本))
' 调试输出 (工具条数据)
工具条.工具条按钮 ＝ 工具条数据
返回 (真)

子程序名	返回值类型	公开	备 注
工具条_取状态码	整数型
参数名	类 型	参考	可空	数组	备 注
选中	逻辑型
按下	逻辑型
禁止	逻辑型
隐藏	逻辑型
变灰	逻辑型
换行	逻辑型

变量名	类 型	静态	数组	备 注
返回	整数型

如果真 (选中)
返回 ＝ 1
如果真 (按下)
返回 ＝ 返回 ＋ 2
如果真 (禁止 ＝ 假)
返回 ＝ 返回 ＋ 4
如果真 (隐藏)
返回 ＝ 返回 ＋ 8
如果真 (变灰)
返回 ＝ 返回 ＋ 16
如果真 (换行)
返回 ＝ 返回 ＋ 32

返回 (返回)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 工具条_置类型, 逻辑型<br /> .参数 工具条, 工具条, 参考<br /> .参数 按钮索引, 整数型<br /> .参数 类型, 整数型, 可空, 0按钮 1分隔条 2多选按钮 6单选按钮 8下拉按钮<br /> .参数 图片索引, 整数型, 可空, 空为不更改 空白图片为-1<br /> .参数 按钮属性, 整数型, 可空, 空为不更改 工具条_取状态码()<br /> .参数 标题, 文本型, 可空, 空为不更改<br /> .参数 提示文本, 文本型, 可空, 空为不更改<br /> .局部变量 工具条数据, 字节集<br /> .局部变量 jc, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 _按钮类型, 字节型<br /> .局部变量 _按钮状态, 字节型<br /> .局部变量 _图片索引, 整数型<br /> .局部变量 _按钮标题, 文本型<br /> .局部变量 _按钮提示文本, 文本型<br /> .局部变量 输出属性, 字节集<br /> .局部变量 临时整数, 整数型<br /> <br /> 工具条数据 ＝ 工具条.工具条按钮<br /> ' 调试输出 (工具条数据)<br /> 索引 ＝ 1<br /> .如果真 (取字节集数据 (工具条数据, #整数型, 索引) － 1 ＜ 按钮索引)  ' 判断按钮索引是否超出了<br />     返回 (假)<br /> .如果真结束<br /> <br /> .计次循环首 (按钮索引, jc)<br />     _图片索引 ＝ 取字节集数据 (工具条数据, #整数型, 索引)  ' 图片索引<br />     ' 调试输出 (“ 图片索引”, 图片索引)<br />     _按钮状态 ＝ 取字节集数据 (工具条数据, #字节型, 索引)  ' 状态<br />     ' 调试输出 (“状态”, 按钮状态)  ' 状态<br />     _按钮类型 ＝ 取字节集数据 (工具条数据, #字节型, 索引)<br />     ' 调试输出 (“按钮类型”, 按钮类型)<br />     _按钮标题 ＝ 取字节集数据 (工具条数据, #文本型, 索引)<br />     ' 调试输出 (“按钮标题”, 按钮标题)<br />     _按钮提示文本 ＝ 取字节集数据 (工具条数据, #文本型, 索引)<br />     ' 调试输出 (“按钮提示文本”, 按钮提示文本)<br />     ' 调试输出 (jc, _图片索引, _按钮状态, _按钮类型, _按钮标题, _按钮提示文本)<br /> .计次循环尾 ()<br /> .如果真 (是否为空 (图片索引) ＝ 假)<br />     工具条数据 ＝ 字节集替换 (工具条数据, 索引, 4, 到字节集 (图片索引))<br /> .如果真结束<br /> 索引 ＝ 索引 ＋ 4<br /> .如果真 (是否为空 (按钮属性) ＝ 假)<br />     工具条数据 ＝ 字节集替换 (工具条数据, 索引, 1, 到字节集 (到字节 (按钮属性)))<br /> .如果真结束<br /> 索引 ＝ 索引 ＋ 1<br /> .如果真 (是否为空 (类型) ＝ 假)<br />     工具条数据 ＝ 字节集替换 (工具条数据, 索引, 1, 到字节集 (到字节 (类型)))<br /> .如果真结束<br /> 索引 ＝ 索引 ＋ 1<br /> 临时整数 ＝ 寻找字节集 (工具条数据, { 0 }, 索引)<br /> 临时整数 ＝ 临时整数 － 索引<br /> .如果真 (是否为空 (标题) ＝ 假)<br />     工具条数据 ＝ 字节集替换 (工具条数据, 索引, 临时整数, 到字节集 (标题))<br /> .如果真结束<br /> 索引 ＝ 索引 ＋ 临时整数 ＋ 1<br /> 临时整数 ＝ 寻找字节集 (工具条数据, { 0 }, 索引)<br /> 临时整数 ＝ 临时整数 － 索引<br /> .如果真 (是否为空 (提示文本) ＝ 假)<br />     工具条数据 ＝ 字节集替换 (工具条数据, 索引, 临时整数, 到字节集 (提示文本))<br /> .如果真结束<br /> ' 调试输出 (工具条数据)<br /> 工具条.工具条按钮 ＝ 工具条数据<br /> <br /> 返回 (真)<br /> <br /> .子程序 工具条_取状态码, 整数型<br /> .参数 选中, 逻辑型, 可空<br /> .参数 按下, 逻辑型, 可空<br /> .参数 禁止, 逻辑型, 可空<br /> .参数 隐藏, 逻辑型, 可空<br /> .参数 变灰, 逻辑型, 可空<br /> .参数 换行, 逻辑型, 可空<br /> .局部变量 返回, 整数型<br /> <br /> .如果真 (选中)<br />     返回 ＝ 1<br /> .如果真结束<br /> .如果真 (按下)<br />     返回 ＝ 返回 ＋ 2<br /> .如果真结束<br /> .如果真 (禁止 ＝ 假)<br />     返回 ＝ 返回 ＋ 4<br /> .如果真结束<br /> .如果真 (隐藏)<br />     返回 ＝ 返回 ＋ 8<br /> .如果真结束<br /> .如果真 (变灰)<br />     返回 ＝ 返回 ＋ 16<br /> .如果真结束<br /> .如果真 (换行)<br />     返回 ＝ 返回 ＋ 32<br /> .如果真结束<br /> <br /> 返回 (返回)

zx7420

反手点个赞,