Th3maz1ng/MyRealKmProdWiki
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update page 'ToolTipController'

Th3maz1ng 2019-03-22 13:12:49 +01:00
parent 40f659e4d6
commit e11821d438
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
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 Dim info As ToolTipControlInfo = Nothing
If e.SelectedControl Is Ctrl_XtraGrid1 Then If e.SelectedControl Is Ctrl_XtraGrid1 Then
Try 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 view As GridView = CType(Ctrl_XtraGrid1.GetViewAt(e.ControlMousePosition), GridView)
Dim hi As GridHitInfo = view.CalcHitInfo(e.ControlMousePosition) Dim hi As GridHitInfo = view.CalcHitInfo(e.ControlMousePosition)
'Permet de stocker le texte de l'infobulle
Dim ToolTipText_l As String = String.Empty 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 If Not hi.InRowCell Then Exit Sub
Dim viewInfo_l As GridViewInfo = CType(GridView1.GetViewInfo, GridViewInfo) 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) info = New ToolTipControlInfo(Position_l, ToolTipText_l)
ElseIf hi.Column.FieldName = "LIBELLE" Then 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) 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() Dim Position_l As Object = hi.HitTest.ToString() + hi.RowHandle.ToString()
info = New ToolTipControlInfo(Position_l, ToolTipText_l) info = New ToolTipControlInfo(Position_l, ToolTipText_l)
End If End If