Update page 'Meta GridView'

Th3maz1ng 2019-03-25 17:03:43 +01:00
parent 1547a1d2b5
commit 11a52e386b

@ -146,7 +146,7 @@ Voici un exemple de code commenté illustrant la façon de définir le style des
Colonnes_P.Add(Col_L)
End Sub
```
<img src="/git/KmWikiImage/attention.png" alt="Attention" width="50" /> Il est important d'initialiser le [Ctrl_GridBarreOutils](Dll-KmProd#Meta_DevExpress) après avoir appliqué le style définit à chaque colonne du tableau.
<img src="/git/KmWikiImage/attention.png" alt="Attention" width="50" />Il est important d'initialiser le [Ctrl_GridBarreOutils](Dll-KmProd#Meta_DevExpress) après avoir appliqué le style définit à chaque colonne du tableau.
**Définition du style via la GUI**
@ -181,7 +181,31 @@ Voici les propriétés sauvegardées avec cet onglet :
* Tout tri appliqués sur les colonnes
* Sûrement d'autres choses ...
### Gérer certains événement
**L'événement "CustomDrawCell"**
Cet événement permet de définir la façon dont va être affiché la données au run time.
Voici comment procéder :
``` vbnet
Private Sub GridView1_CustomDrawCell(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles Meta_GridView1.CustomDrawCell
'Définition de l'affichage de la date au run time'
Select Case e.Column.Name
Case "colHE_DATEDEBUT"
e.DisplayText = CDate(e.CellValue).ToString("dd/MM/yyyy HH:mm")
Case "colHE_DATEFIN"
e.DisplayText = CDate(e.CellValue).ToString("dd/MM/yyyy HH:mm")
Case "colHE_DUREE"
Dim tp_l As New TimeSpan(0, 0, CInt(e.CellValue))
e.DisplayText = tp_l.Minutes.ToString + ":" + tp_l.Seconds.ToString + " minutes"
End Select
End Sub
```
<img src="/git/KmWikiImage/astuce.png" alt="Astuce" width="50" />C'est également avec cet événement qu'il est par exemple possible de définir une couleur de fond différente en fonction de la valeur de la donnée par exemple.
Libre à vous de faire ce que vous voulez.
###### *Si vous avez des sugestions d'ajouts, de corrections, m'en faire part Merci*