1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| ' --- Initialisation du Bouton MODIFIER
Dim boutonmodifier As New DataGridViewButtonColumn
' --- Déclaration des paramètres du bouton MODIFIER
With boutonmodifier
.HeaderText = "MODIFIER"
.Name = "modifier"
.Text = "M"
.UseColumnTextForButtonValue = True
End With
' --- Initialisation du bouton SUPPRIMER
Dim boutonsupprimer As New DataGridViewButtonColumn
' --- Déclaration des paramètres du bouton SUPPRIMER
With boutonsupprimer
.HeaderText = "SUPPRIMER"
.Name = "supprimer"
.Text = "X"
.UseColumnTextForButtonValue = True
End With
' --- Affichage des boutons dans les colonnes 2 et 3
DATA_SAVE.Columns.Insert(2, boutonmodifier)
DATA_SAVE.Columns.Insert(3, boutonsupprimer)
' --- Lecture seule des données de la table TYPE_PERIPHERIQUE
DATA_SAVE.Columns(0).ReadOnly = True
DATA_SAVE.Columns(1).ReadOnly = True
' ------------------------------
' ---- TEST DE MISE EN FORME
boutonsupprimer.DefaultCellStyle.BackColor = Color.OrangeRed
boutonmodifier.DefaultCellStyle.BackColor = Color.LightGreen |
Partager