فعال کردن یک ToolTip بر روی Datagrid در Vb.net

[zehs_sha]

بچه من می خواهم هنگامی که موس بر روی سلول های DataGrid قرار گرفت متن ان سلول رل بر روی ToolTip نمایش بدهم

Private hitRow As Integer
Private toolTip1 As System.Windows.Forms.ToolTip




Private Sub dataGrid1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles dataGrid1.MouseMove
Try
Dim hti As DataGrid.HitTestInfo = Me.dataGrid1.HitTest(New Point(e.X, e.Y))
Dim bmb As BindingManagerBase = Me.BindingContext(Me.dataGrid1.DataSource, Me.dataGrid1.DataMember)
If hti.Row < bmb.Count AndAlso hti.Type = DataGrid.HitTestType.Cell AndAlso hti.Row <> hitRow Then
If Not (Me.toolTip1 Is Nothing) AndAlso Me.toolTip1.Active Then
Me.toolTip1.Active = False
End If
End If
Dim tipText As String = ""
tipText = Me.dataGrid1(hti.Row, hti.Column).ToString()

If tipText <> "" Then
hitRow = hti.Row
Me.toolTip1.SetToolTip(Me.dataGrid1, tipText)
Me.toolTip1.Active = True
Else
hitRow = -1
End If
Catch
End Try
End Sub