Bonjour,

Etudiant en seconde année de BTS IG je passe mon oral de PTI lundi après-midi et j'ai une application à terminer. Je vous expose mon problème.

J'ai un DataGridView rempli comme ceci :

Fonction pour extraire les propriétés d'un objet de type ClassPersonnel :

Public Function ChargerPerso() As List(Of ClassPersonnel)
        Dim liste = New List(Of ClassPersonnel)
        'Permet d'instancier et initialiser une liste de personnes
        For Each Personnel In mesContactsPerso
            liste.Add(New ClassPersonnel(Personnel.Ident, Personnel.Sexe, Personnel.Nom, Personnel.Prenom, Personnel.TelMobile, Personnel.TelFixe, Personnel.Mail, Personnel.Adresse, Personnel.DateNaiss, Personnel.Photo))
        Next
        Return liste
    End Function

Et pour remplir mon DataGridView je fais comme suit :

DataGridliste.DataSource = monCarnet.ChargerPerso()

Comment puis-je faire pour que, lorsque l'utilisateur clique sur la ligne d'un contact, une nouvelle form s'ouvre avec les informations sur ce contact ?

Je vous remercie par avance pour vos réponses !

Déjà essayé avec DataGridView.SelectionChanged couplé avec DataGridView.SelectedRows ?

Merci pour ta réponse rapide.
Le SelectionChange s'utilise comment ?

Private Sub SelectionChanged(ByVal sender As Object, _
        ByVal e As EventArgs) Handles DataGridliste.SelectionChanged
        'On charge la fenêtre Contact.vb et on y affiche les données
       MsgBox("Charge")
End Sub

J'ai essayé comme ça mais à chaque chargement ça ouvre une MsgBox ^^.
Pas seulement quand je clique sur une ligne.



Voici la solution :

Private Sub DataGridliste_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridliste.MouseDown
        'MouseDown <=> Se produit lorsque le pointeur de la souris se trouve sur le contrôle et qu'un bouton de la souris est enfoncé
        Dim enume = DataGridliste.SelectedRows.GetEnumerator()
        enume.MoveNext()
        Dim myRow As DataGridViewRow = enume.Current
        Dim index As Integer = myRow.Index
        Dim firstCell As String = DataGridliste.Rows(index).Cells(0).Value.ToString
    End Sub