以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]鼠标单元格气泡  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71788)
--  作者：seal51
--  发布时间：2015/7/18 0:33:00
--  [求助]鼠标单元格气泡
鼠标移到单元格， 自动显示单元格里的全部内容， 鼠标离开这个单元格， 显示内容消失， 这个是怎么实现的呢？
--  作者：狐狸爸爸
--  发布时间：2015/7/18 11:14:00
--  

 参考：

http://www.foxtable.com/help/topics/2681.htm

 
--  作者：一笑
--  发布时间：2015/7/18 18:32:00
--  
测试可用，但有个问题：当单元格中文字较多时，显示动态提示信息的文字显示段首和段尾的文字将超出屏幕显示外，有没有方法控制行长度和换行？谢谢
--  作者：lsy
--  发布时间：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
--  发布时间：2015/7/18 18:56:00
--  

问的好啊！谢谢老师回复！
--  作者：一笑
--  发布时间：2015/7/18 19:12:00
--  
不好意思，新手，除第一句外，这些代码写到哪里？
--  作者：大红袍
--  发布时间：2015/7/19 10:39:00
--  
以下是引用一笑在2015/7/18 19:12:00的发言：
不好意思，新手，除第一句外，这些代码写到哪里？

 

呃，写到原先的事件。