高级表格 部分单元格做到鼠标悬停出现提示框吗 气泡气球

独倚斜阳

高级表格 部分单元格做到鼠标悬停出现提示框？类似这种效果

  

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

气球提示框1.关联组件 (按钮1, “精易论坛”, -1, , , , )
气球提示框1.关联组件 (编辑框1, “精易论坛”, -1, , , , )
气球提示框1.关联组件 (图片框1, “精易论坛”, -1, , , , )
气球提示框1.关联组件 (标签1, “精易论坛”, -1, , , , )

i支持库列表	支持库注释
iext5	扩展界面支持库五

.版本 2<br /> .支持库 iext5<br /> <br /> .子程序 __启动窗口_创建完毕, , , <br /> <br /> 气球提示框1.关联组件 (按钮1, “<font color="#D98719"><strong>精易论坛</strong></font>”, -1, , , , )<br /> 气球提示框1.关联组件 (编辑框1, “<font color="#D98719"><strong>精易论坛</strong></font>”, -1, , , , )<br /> 气球提示框1.关联组件 (图片框1, “<font color="#D98719"><strong>精易论坛</strong></font>”, -1, , , , )<br /> 气球提示框1.关联组件 (标签1, “<font color="#D98719"><strong>精易论坛</strong></font>”, -1, , , , )

----------要达到的效果  是高级表格支持库 支持库里面没这个功能

亮蓝色的风

.版本 2
.支持库 eGrid
.支持库 iext5

.程序集 窗口程序集_启动窗口
.程序集变量 鼠标列, 整数型
.程序集变量 鼠标行, 整数型

.子程序 _高级表格1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 列宽度, 整数型
.局部变量 行高度, 整数型
.局部变量 所在列, 整数型
.局部变量 所在行, 整数型

所在列 ＝ -1
所在行 ＝ -1
.计次循环首 (高级表格1.列数, i)
    列宽度 ＝ 列宽度 ＋ 高级表格1.取列宽 (i － 1)
    .如果真 (列宽度 ≥ 横向位置)
        所在列 ＝ i － 1
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
.如果真 (所在列 ＝ -1)
    返回 ()
.如果真结束
.计次循环首 (高级表格1.行数, j)
    行高度 ＝ 行高度 ＋ 高级表格1.取行高 (j － 1)
    .如果真 (行高度 ≥ 纵向位置)
        所在行 ＝ j － 1
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
.如果真 (所在行 ＝ -1)
    返回 ()
.如果真结束
.如果 (所在列 ≠ 鼠标列 或 所在行 ≠ 鼠标行)
    鼠标列 ＝ 所在列
    鼠标行 ＝ 所在行
.否则
    返回 ()
.如果结束
.如果真 (所在列 ＝ 3)
    气球提示框1.弹出提示框 (列宽度 ＋ 高级表格1.左边 ＋ _启动窗口.左边, 行高度 ＋ 高级表格1.顶边 ＋ _启动窗口.顶边, “这是第” ＋ 到文本 (所在行) ＋ “行”, -1, 真)
.如果真结束



补充内容 (2021-8-8 02:44):
如果有横纵的滚动条，行列的计算的是显示出来的位置

1191798444

.版本 2
.支持库 eGrid
.支持库 iext5

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _高级表格1_光标位置改变

.如果真 (高级表格1.取光标行号 () ＝ 1 且 高级表格1.取光标列号 () ＝ 1)
    气球提示框1.弹出提示框 (取鼠标水平位置 (), 取鼠标垂直位置 (), “第一行第一个”, -1, 真)

.如果真结束