[VB.NET 2003] Simuler un clic de souris

Version imprimable

30/10/2007, 09h19
Kropernic

[VB.NET 2003] Simuler un clic de souris

Bonjour tout le monde,

Mon problème du jour est simple.

J'ai un contrôle DataGrid auquel j'ai lié un contrôle ContextMenu.

Je voudrais que lorsque je fais un clic droit sur le DataGrid, cela fasse aussi comme si j'avais fait un clic gauche au même endroit (histoire de sélectionner le record correspondant du DataGrid).

J'suis un peu perdu. J'arrive à récupérer sans problème les coordonnées du curseur de la souris et même pas le déplacer mais pas à simuler le clic.

Help ^^.

Merci d'avance.

Griftou.
30/10/2007, 10h21
Aspic

Tu veux dire que tu veux sélectionner la ligne sur lequel le mec à fait un clique droit pour ouvrir le contextMenu ?
30/10/2007, 10h22
Kropernic

Oui c'est exactement ça.

Mais j'crois que j'suis sur le point de trouver la solution via la méthode HitTest.

J'vous dis quoi dès que j'reviens des chiottes ^^

Griftou.
30/10/2007, 10h28
Aspic

C'est pas difficile, lorsque on a fait un clique droit, tu récupères la ligne puis tu lui dis de sélectionner la ligne correspondante (je ne connaispas bien le DataGrid mais avec une Listbox ou ListView ca marche très bien)
30/10/2007, 10h34
Aspic

En fait effectivement c'est pas si simple car l'event MouseClick n'intercepte que le clique gauche et pas le droit :oops:
30/10/2007, 10h39
Kropernic

En effet mais dans le MouseDown, ça marche.

Sauf que je sais pas pourquoi, mais dans l'objet HitTestInfo, le numéro de colonne est bien le bon mais par contre pour la ligne, j'dois faire -9. J'me demande bien pourquoi il démarre à 8 pour le header et pas à 0 ou qqch du genre.

Enfin voilà, j'copie le code final dès que ça tourne convenablement.

Griftou.

Bon, j'ai quand même un stûût.

J'ai écris ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub dgClient_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgClient.MouseDown If e.Button = MouseButtons.Right Then If Not hti Is Nothing AndAlso hti.Row - 9 >= 0 Then dgClient.UnSelect(hti.Row - 9) End If hti = dgClient.HitTest(PointToClient(Cursor.Position)) If hti.Row - 9 >= 0 Then dgClient.Select(hti.Row - 9) End If End If End Sub
A première, ça fonctionne nickel sauf que ça ne marche que sur la partie supérieur du DataGrid. On dirait qu'une fois que la souris se trouve dans la moitié inférieur du contrôle, ça ne fonctionne plus. En effet, à partir de là, la méthode HitTest renvoie -1 pour Row donc ça pose un léger problème...

Vivement qu'on passe à VS2005...

Griftou.

EDIT :

Je remarque qu'en fait, y a le même problème pour chaque ligne ! Si je clique dans la partie supérieur de la ligne, ma procédure sélectionne bien la ligne où le clic à eu lieu. Si je clique dans la moitié inférieur de la ligne, la procédure sélectionne la ligne suivante ! Bien sûr, je n'ai pu constater cela que sur la moitié supérieur du DataGrid.

Quelqu'un aurait une idée ?

30/10/2007, 11h55
Kropernic

Personne n'a une idée du pourquoi ?

Griftou.

Bon, apparemment, il s'agissait d'une mauvaise utilisation de ma part.

Avec le code suivant, ça fonctionne nickel :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub dgClient_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgClient.MouseDown
        If e.Button = MouseButtons.Right Then
            If Not hti Is Nothing AndAlso hti.Row >= 0 Then
                dgClient.UnSelect(hti.Row)
            End If
            hti = dgClient.HitTest(e.X, e.Y)
            If hti.Row >= 0 Then
                dgClient.Select(hti.Row)
            End If
        End If
    End Sub

Griftou.

30/10/2007, 18h47
Aspic

Merci pour la réponse.
Pense au tag :resolu: