Discussion :

[roboss]

bonjour,

j'ai regardé dans les archives ... rien
sur le net ... pas d'exemples probants

donc je me tourne vers vous

Comment fait-on pour mettre un bouton en fin de ligne d'un datagrid?
Ce bouton aura pour vocation de supprimer la ligne.

voila mon code:

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
Dim requete As String
        requete = "select * from " + table
 
        Try
            Dim c_modif As New cls_Modiftable(Me, "", 0)
            Dim ds As DataSet = New DataSet
            ds = c_modif.RenvoieValeur(requete)
 
            'on cache la premiere colonne
            ds.Tables(0).Columns(id).ColumnMapping = MappingType.Hidden
            ds.Tables(0).Columns.Add(New DataColumn("Valid", GetType(Boolean)))
            ds.Tables(0).Columns("Valid").DefaultValue = False
 
            Dim colonne As New DataGridTextBoxColumn
            For i As Integer = 0 To ds.Tables(0).Columns.Count - 1
                ' readonly les colonnes 
                ds.Tables(0).Columns(i).ReadOnly = True
            Next
 
            Dim monDs As DataTable = ds.Tables(0)
            Me.DataGrid1.SetDataBinding(monDs, "")
 
        Catch ex As Exception
            Console.Write(ex)
        Finally
        End Try

merci

[m-mas]

bonjour,

ce lien peut répondre à ta question bouton dans un data grid

pour l'exemple, il te faut la base Northwind.mdb que tu met sur ton C:\, tu peut faire une recherche sur google pour télécharger la base !

bon courage !

[cosmos38240]

Génial ton lien il devrait être dans la FAQ

[roboss]

ok merci, j'étais deja tomber sur ce lien ... mais la façon dont il le fait est super compliquée enfin je trouve

je me suis débrouillé autrement. J'ai créé une colonne

Code :

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

ds.Tables(0).Columns.Add(New DataColumn("Suppr")

dans le new la ou il y a le code cité auparavant.

Et j'ai fait une fonction load

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
 Private Sub form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If ModeSuppr = True Then
        Try
 
            Dim i = 0
            ' nb de colonne -2 car une colonne de cachée
            Dim numcol As Integer = ds.Tables(0).Columns.Count - 2
            For i = 0 To ds.Tables(0).Rows.Count - 1
                Dim bouton As New Button
                DataGrid1.Controls.Add(bouton)
                bouton.Top = DataGrid1.GetCellBounds(i, numcol).Top
                bouton.Left = DataGrid1.GetCellBounds(i, numcol).Left
                bouton.Width = DataGrid1.GetCellBounds(i, numcol).Width
                bouton.Height = DataGrid1.GetCellBounds(i, numcol).Height
                Dim img As Image
                Dim num As Integer = Environment.CurrentDirectory.Length
                Dim path As String = Environment.CurrentDirectory.Substring(0, num - 3)
                bouton.Image = img.FromFile(path + "images\supprimer.gif")
            Next
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
 
            End Try
        End If
    End Sub

et ca marche du feu de dieu

Merci pour votre aide