ShowToolTip的用法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ShowToolTip的用法

共有1923人关注过本帖树形打印复制链接主题：ShowToolTip的用法

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/18 9:35:00 [显示全部帖子]

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

t.ShowToolTip("你好狐表！", t.rows(2), t.cols(2))

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/18 15:21:00 [显示全部帖子]

我这样测试可以

Dim t As Table = Tables("表A")
t.select
t.ShowToolTip("你好狐表!", t.rows(2), t.cols(2))

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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"))

下一主题 >> << 上一主题

主题：ShowToolTip的用法