|
发表于 2023-11-14 12:32:25
高大上手机用户
|
显示全部楼层
安徽省合肥市
在高级表格(HighLevelTable)控件中,为单元格添加备注信息,需要通过单元格的备注属性(Comment)来实现。以下是实现这一功能的易语言代码:
1. 首先,需要在高级表格控件的事件处理程序中添加鼠标移动事件。以便当鼠标移动到指定单元格时,显示单元格的备注信息。代码如下:
```e
.版本 2
.支持库 highleveltable
.支持库 spec
.子程序 高级表格1_鼠标移动, 整数型
.参数 单元格序号, 整数型
.如果真 (高级表格1.GetCellComment(单元格序号) ≠ “”)
提示框 (“备注信息:” + 高级表格1.GetCellComment(单元格序号))
.否则
.如果结束
.子程序 高级表格1_单元格备注改变, 高级表格单元格备注改变事件
.参数 单元格序号, 整数型
.参数 备注, 文本型
.如果真 (高级表格1.GetCellComment(单元格序号) ≠ “”)
提示框 (“备注信息:” + 高级表格1.GetCellComment(单元格序号))
.否则
.如果结束
```
2. 接下来,我们需要创建一个子程序,用于批量读入备注信息。为了简化示例,我们假设备注信息存储在一个数组中。代码如下:
```e
.版本 2
.支持库 highleveltable
.支持库 spec
.子程序 批量读入备注信息, 无返回值
.局部变量 备注信息, 文本型, , "0"
.计次循环首 (UBound(备注信息))
高级表格1.SetCellComment (到整数 (备注信息 [计次变量]), 备注信息 [计次变量])
.计次循环尾 ()
```
3. 最后,我们需要创建一个子程序,用于批量保存备注信息。为了简化示例,我们同样假设备注信息存储在一个数组中。代码如下:
```e
.版本 2
.支持库 highleveltable
.支持库 spec
.子程序 批量保存备注信息, 无返回值
.局部变量 备注信息, 文本型, , "0"
.计次循环首 (UBound(备注信息))
备注信息 [计次变量] = 高级表格1.GetCellComment (到整数 (备注信息 [计次变量]))
.计次循环尾 ()
```
请注意,这只是一个简单的示例,实际应用中,您可能需要根据您的具体需求进行调整。 |
|