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

