[vb 2008]des boutons dans un DataGridView

**thedjinhn** · 18/11/2008, 19h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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