以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ShowToolTip的用法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94182)
--  作者：一笑
--  发布时间：2016/12/17 20:03:00
--  ShowToolTip的用法
想在窗口中table表（动态测试_Table2）显示提示信息，能否在afterload后写入如下代码，报错，请问思路是否正确？谢谢

Tables("动态测试_Table2").ShowToolTip("你好狐表！"),tl.rows(2),tl.cols(2))
--  作者：有点色
--  发布时间：2016/12/18 9:35:00
--  

Dim t As Table = Tables("动态测试_Table2")

t.ShowToolTip("你好狐表！", t.rows(2), t.cols(2))
--  作者：一笑
--  发布时间：2016/12/18 12:16:00
--  
试了，好像不行。
--  作者：有点色
--  发布时间：2016/12/18 15:21:00
--  

我这样测试可以

 

Dim t As Table = Tables("表A")
t.select
t.ShowToolTip("你好狐表!", t.rows(2), t.cols(2))
--  作者：一笑
--  发布时间：2016/12/21 15:08:00
--  
写到aferload不管用，写到窗口上加的一个按钮控件中可以执行。
另外，一次只能显示一个提示信息，有没有其他方法在不同位置显示多条信息？谢谢！
--  作者：有点色
--  发布时间：2016/12/21 15:52:00
--  

变通一下，用动态加入控件的方式

 

Dim c1table As C1FlexGrid.C1FlexGrid = Tables("表A").Grid
Dim cellrect As System.Drawing.Rectangle = c1table.GetCellRect(4,3)

 

Dim lbl As new windows.forms.label
lbl.name = "test1"
lbl.width = 200
lbl.height = 50
lbl.left = cellrect.x + 20
lbl.top = cellrect.y + 10
lbl.backcolor = color.red
lbl.text = "123"
c1table.controls.add(lbl)
lbl.BringToFront


\'c1table.controls.remove(c1table.controls("test1"))