以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何返回当前行的行高  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89141)
--  作者：lzzhx
--  发布时间：2016/8/16 10:41:00
--  [求助]如何返回当前行的行高
请教老师：如何返回当前行的行高
--  作者：lzzhx
--  发布时间：2016/8/16 10:45:00
--  
想在表的MouseEnterCell事件中写一段代码，目的是当单元格内的数据显示不全时（可能是列不够宽，或因是多行而行不够高，但又不想改变行高），当鼠标位于该单元格时，弹出提示框显示单元格的值，请老师给写一段代码，先谢谢了！
--  作者：lzzhx
--  发布时间：2016/8/16 11:48:00
--  
请老师看看
--  作者：Hyphen
--  发布时间：2016/8/16 12:22:00
--  
参考：http://www.foxtable.com/webhelp/scr/2681.htm
--  作者：lzzhx
--  发布时间：2016/8/16 12:30:00
--  
这个例子是都要弹出提示框，我想判断一下，若单元格显示全了，就不弹出提示框，怎么作
--  作者：大红袍
--  发布时间：2016/8/16 14:43:00
--  

 mark MeasureString

 

Dim cwidth As Integer = iif(e.Col.Width=-1, 98, e.Col.Width)
Dim cheight As Integer = e.Table.Grid.Rows(e.Row.Index+1).height
cheight = iif(cheight = -1, 20, cheight)
Dim msg As String = e.Row(e.Col.name)
Dim gc = basemainform.CreateGraphics
Dim size = gc.MeasureString(msg, e.Table.Font)
If size.width > cwidth OrElse size.Height > cheight Then
    e.Table.ShowToolTip(e.Row(e.Col.name),e.Row,e.Col)
End If