Public Function SetSuperTip1() As Utils.SuperToolTip
Dim ST As New Utils.SuperToolTip
Dim args As Utils.SuperToolTipSetupArgs = New Utils.SuperToolTipSetupArgs
args.Title.Text = "Demo"
Dim contentText As New StringBuilder
contentText.Append("Status Date : " & Now)
contentText.Append(vbCrLf)
contentText.Append(vbCrLf)
contentText.Append("Remarks : " & "---- Test Remark")
contentText.Append(vbCrLf)
contentText.Append(vbCrLf)
contentText.Append("Status Set on : " & Now)
contentText.Append(vbCrLf)
contentText.Append(vbCrLf)
contentText.Append("Status set by : " & CurrUser.LoginName)
contentText.Append(vbCrLf)
contentText.Append(vbCrLf)
'contentText.Append("Status Given by : " & csd.StatusGivenByUserName)
args.Contents.Text = contentText.ToString
args.AllowHtmlText = DevExpress.Utils.DefaultBoolean.True
args.ShowFooterSeparator = True
ST.Setup(args)
Return ST
End Function
Private Sub dgCallingReport_CellMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgCallingReport.CellMouseMove
If e.RowIndex = -1 Then Exit Sub
lblSuperTip.SuperTip = SetSuperTip1()
Dim r As Rectangle = dgCallingReport.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, False)
Dim p1 As New Point(dgCallingReport.Left + r.X + e.X, dgCallingReport.Top + r.Y + e.Y)
lblSuperTip.Width = 2
lblSuperTip.Height = 2
lblSuperTip.Location = p1
lblSuperTip.BringToFront()
lblSuperTip.BackColor = Color.FromArgb(50, 1, 1, 1)
lblSuperTip.Visible = True
'End If
End Sub