Display Tooltip

Question

hi 

i am using windows form application

i want show some detail information when user move a cursor on gridview row

 

how do i do that using

follwong code

 

 

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

 

 

 

plz help me