or
Private
Sub
dgMyIssues_ToolTipTextNeeded(sender
As
Object
, e
As
Telerik.WinControls.ToolTipTextNeededEventArgs)
Handles
dgMyIssues.ToolTipTextNeeded
Dim
cell
As
GridDataCellElement = TryCast(sender, GridDataCellElement)
If
cell IsNot
Nothing
AndAlso
cell.RowIndex > -1
Then
If
dgMyIssues.Rows(cell.RowIndex).Cells(
"Description"
).Value
Is
DBNull.Value
Then
e.ToolTipText =
""
Else
Dim
s
As
String
= dgMyIssues.Rows(cell.RowIndex).Cells(
"Description"
).Value
If
s.Length > 500
Then
s = s.Substring(0, 500) &
"..."
e.ToolTipText = s
If
e.ToolTipText.Length > 75
Then
e.ToolTipText = SplitToolTip(e.ToolTipText)
End
If
End
If
End
Sub