Update page 'ToolTipController'

ToolTipController.md

@@ -21,10 +21,13 @@ Nous allons maintenant voir comment gérer cette événement afin de définir le
         Dim info As ToolTipControlInfo = Nothing
         If e.SelectedControl Is Ctrl_XtraGrid1 Then
             Try
+                'Les deux lignes qui suivent permettent de récupérer les informations qui sont dans la cellule sur laquelle en passe la souris
                 Dim view As GridView = CType(Ctrl_XtraGrid1.GetViewAt(e.ControlMousePosition), GridView)
                 Dim hi As GridHitInfo = view.CalcHitInfo(e.ControlMousePosition)
+                'Permet de stocker le texte de l'infobulle
                 Dim ToolTipText_l As String = String.Empty
-                ' mettre la seconde codition et mettre en variable de classe le texte
+                
+                'On sort de la fonction si l'évennement est déclanché en dehors d'une cellule du tableau
                 If Not hi.InRowCell Then Exit Sub
 
                 Dim viewInfo_l As GridViewInfo = CType(GridView1.GetViewInfo, GridViewInfo)
@@ -50,6 +53,7 @@ Nous allons maintenant voir comment gérer cette événement afin de définir le
                     info = New ToolTipControlInfo(Position_l, ToolTipText_l)
                 ElseIf hi.Column.FieldName = "LIBELLE" Then
                     ToolTipText_l = If(GridView1.GetDataRow(hi.RowHandle).Item("DESCRIPTION").ToString = "", "Pas de description", GridView1.GetDataRow(hi.RowHandle).Item("DESCRIPTION").ToString)
+                    'Pour finir, on définit le texte de l'infobulle puis on affiche l'infobulle.
                     Dim Position_l As Object = hi.HitTest.ToString() + hi.RowHandle.ToString()
                     info = New ToolTipControlInfo(Position_l, ToolTipText_l)
                 End If