Foxtable(狐表)用户栏目专家坐堂 → [求助]鼠标单元格气泡


  共有3207人关注过本帖树形打印复制链接

主题:[求助]鼠标单元格气泡

帅哥哟,离线,有人找我吗?
seal51
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]鼠标单元格气泡  发帖心情 Post By:2015/7/18 0:33:00 [只看该作者]

鼠标移到单元格, 自动显示单元格里的全部内容, 鼠标离开这个单元格, 显示内容消失, 这个是怎么实现的呢?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/7/18 11:14:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/18 18:32:00 [只看该作者]

测试可用,但有个问题:当单元格中文字较多时,显示动态提示信息的文字显示段首和段尾的文字将超出屏幕显示外,有没有方法控制行长度和换行?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2015/7/18 18:44:00 [只看该作者]

If ConfigBar.Items("单元格提示").Pressed Then '有时显示提示很碍事,可用此菜单状态按钮避免提示
    If e.Table.Text(e.Row.Index,e.Col.Index).Length <= 255 Then '字符太多时,就不显示,否则会闪烁不停,无法操作
        Dim gc As Graphics = BaseMainform.CreateGraphics()
        Dim size As SizeF = gc.MeasureString(e.Row(e.Col) , e.Table.Font)
        Dim w As Integer = e.Col.Width
        If w = - 1 Then '列宽默认值为- 1
            w = 98 '实际上是98
        ElseIf e.Table.ExtendLastCol = True AndAlso e.Col.Index = e.Table.Cols.Count - 1 Then '如果最后一列自动扩展宽度,并且是当前列
            w = 123 '定为较合适的123,否则最后一列不管列宽超出字符串宽度多少,都会显示提示
        End If
        If w < size.Width Then '列宽小于字符串宽度
            e.Table.ShowToolTip(e.Row(e.Col),e.Row,e.Col) '就在提示中显示全部字符
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
seal51
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1838 积分:13006 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/7/18 18:56:00 [只看该作者]

问的好啊!谢谢老师回复!


 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/7/18 19:12:00 [只看该作者]

不好意思,新手,除第一句外,这些代码写到哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/19 10:39:00 [只看该作者]

以下是引用一笑在2015/7/18 19:12:00的发言:
不好意思,新手,除第一句外,这些代码写到哪里?

 

呃,写到原先的事件。


 回到顶部