urgent utilisation de hittest

Question

qqun pourrait m'expliquere birèvement comment fonctionne la fonction hittest (en particulier sur un listview) . lorsque je m'en sert il me renvoi toujours le premier element du controle quelque soit la position de la souris !

cs_Jack · Answer

Salut Cirrus
Voilà un exemple d'utilisation pour afficher un menu contextuel quand on clique-droit sur une ligne d'un ListView :
Private Sub lstMessages_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    ' Si click-droit seulement
    If Button = 2 Then
        ' On ressort s'il n'y a rien sur cette ligne
        If lstMessages.HitTest(x, y) Is Nothing Then Exit Sub
        ' Sélectionne cette ligne
        Dim Ligne As Long
        Ligne = lstMessages.HitTest(x, y).Index
        lstMessages.ListItems(Ligne).Selected = True
        ' Pour que les menus sache de quelle ligne il s'agit
        mnuzMenuMessage.Tag = Ligne
        ' La fonction PopupMenu sert à afficher un menu contextuel
        ' Celui défini dans la forme, mais rendu invisible
        ' On se positionne une ligne en dessous du click (plus clair)
        PopupMenu mnuzMenuMessage, _
                  vbPopupMenuCenterAlign Or vbPopupMenuRightButton, _
                  x + lstMessages.Left, _
                  y + lstMessages.Top + lstMessages.ListItems.Item(1).Height
    End If
End Sub
Vala
Jack

Urgent utilisation de hittest

1 réponse

Discussions similaires