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

Update page 'ToolTipController'

Th3maz1ng 2019-03-22 13:29:36 +01:00
parent f5ce78bb60
commit aa3600fe0e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ToolTipController.md

@ -53,13 +53,14 @@ 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. 'Pour finir, on définit le texte de 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
Catch ex As Exception Catch ex As Exception
Finally Finally
'Puis on affiche l'infobulle.
e.Info = info e.Info = info
End Try End Try
End If End If