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
加好友 
发短信
Post By：2015/7/18 18:44:00 [显示全部帖子]
