[vb 2008]des boutons dans un DataGridView
Bonjour,
Voila j'ai crée un datagridView qui se remplie avec une fonction parfaitement.
Seulement, au bout de ligne j'essaye d'avoir un bouton différent suivant un état rendu, plus un autre commun
Mon problème est cas chaque fin de ligne j'ai les 4 boutons !
Est ce que je n'ai pas compris un truc ?
Est ce que je fais mal quelque chose ?
merci de me guider !!
Voici les code que j'utilise
Code:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
Public Sub SetUpDataGridView1()
Dim ButtonConfig As New DataGridViewButtonColumn()
Dim ButtonStart As New DataGridViewButtonColumn()
Dim ButtonStop As New DataGridViewButtonColumn()
Dim ButtonRestart As New DataGridViewButtonColumn()
Form1.DataGridView1.ColumnCount = 1
With ButtonConfig
.HeaderText = "Configuration"
.Text = "Configuration"
.Name = "Config"
.UseColumnTextForButtonValue = True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate.Style.BackColor = Color.LightGray
.DisplayIndex = 0
End With
With ButtonStart
.HeaderText = "Démarrer"
.Text = "Démarrer"
.Name = "Démarrer"
.UseColumnTextForButtonValue = True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate.Style.BackColor = Color.LightGray
.DisplayIndex = 0
End With
With ButtonStop
.HeaderText = "Arrêter"
.Text = "Arrêter"
.Name = "Arrêter"
.UseColumnTextForButtonValue = True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate.Style.BackColor = Color.LightGray
.DisplayIndex = 0
End With
With ButtonRestart
.HeaderText = "Redémarrer"
.Text = "Redémarrer"
.Name = "Redémarrer"
.UseColumnTextForButtonValue = True
.AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.FlatStyle = FlatStyle.Standard
.CellTemplate.Style.BackColor = Color.LightGray
.DisplayIndex = 0
End With
With Form1.DataGridView1.ColumnHeadersDefaultCellStyle
'.BackColor = Color.Transparent
.ForeColor = Color.Black
.Font = New Font(Form1.DataGridView1.Font, FontStyle.Bold)
End With
With Form1.DataGridView1
.EditMode = DataGridViewEditMode.EditProgrammatically
.Name = "dataGridView1"
.Location = New Point(8, 8)
.Size = New Size(100, 200)
.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Raised
.CellBorderStyle = DataGridViewCellBorderStyle.Single
.GridColor = SystemColors.ActiveBorder
.RowHeadersVisible = False
.ForeColor = Color.Black
.AllowUserToAddRows = False
.Columns(0).Name = "Nom des serveur"
.Columns(0).Width = 277
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Dock = DockStyle.Fill
End With
Form1.DataGridView1.Columns.Add(ButtonConfig)
Form1.DataGridView1.Columns.Add(ButtonRestart)
Form1.DataGridView1.Columns.Add(ButtonStop)
Form1.DataGridView1.Columns.Add(ButtonStart)
End Sub |
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Public Sub PopulateDataGridView1(ByVal Nom_1 As String, ByVal Status_1 As String)
' Create the string array for each row of data.
Dim row0 As String() = {Nom_1, Status_1}
' Add a row for each string array.
With Form1.DataGridView1.Rows
.Add(row0)
End With
' Change the order the columns are displayed.
With Form1.DataGridView1
.Columns(0).DisplayIndex = 0
End With
End Sub |
