1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub dgvPromoDetailOwn_MouseHover(sender As Object, e As EventArgs) Handles dgvPromoDetailOwn.MouseHover, dgvPromoDetailDemo.MouseHover
Dim dgv As DataGridView = CType(sender, DataGridView)
Dim grvScreenLocation As Point = dgv.PointToScreen(dgv.Location)
Dim tempX As Integer = DataGridView.MousePosition.X - grvScreenLocation.X + dgv.Left
Dim tempY As Integer = DataGridView.MousePosition.Y - grvScreenLocation.Y + dgv.Top
Dim hit As DataGridView.HitTestInfo = dgv.HitTest(tempX, tempY)
If hit.RowIndex > 0 Then
Dim detailId As Integer = CInt(dgv.Rows(hit.RowIndex).Cells("dgvcId").Value)
Dim detail As PROMO_ICT_BLL.PromoDetail
If dgv.Name = dgvPromoDetailDemo.Name Then
detail = Promo.GetDetailDemoById(detailId)
Else
detail = Promo.GetDetailOwnById(detailId)
End If
If dgv.Rows(hit.RowIndex).Cells("dgvcListType").Value Is Nothing Then
dgv.Rows(hit.RowIndex).Cells("dgvcListType").ToolTipText = "0"
Else
dgv.Rows(hit.RowIndex).Cells("dgvcListType").ToolTipText = detail.GetProducts.Count.ToString
End If
End If
End Sub |
Partager