[VbNet]datagridRésolu

Question

Comment changer la largeur des colonnes un par une?
j'ai bien trouvé la propriété PreferredColummWidth mais elle
change la largeur de toutes les colonnes.

Merci pour votre aide

glplpmat · Accepted Answer

Voici un datagrid avec plusieurs dimension et allignement different

       ' dgprojet est tin datagrid
        Dim dvprojets As DataView
        Dim dsprojets As DataSet

        Dim i As Integer
        'il faut d'abord remplir la tables(0) de ton datatset

        dvprojets = New DataView()
        dvprojets = dsprojets.Tables(0).DefaultView
        Dim tableStyle As DataGridTableStyle 'definition d'un nouvau style
        tableStyle = New DataGridTableStyle()
        tableStyle.MappingName = "PROJ" 'le MappingName doit etre le nom de la table
        Dim numCols As Integer
        numCols = dsprojets.Tables(0).Columns.Count
        Dim aColumnTextColumn As DataGridTextBoxColumn
        i = 0
        Do While (i < numCols) 'formate toutes les collonnes
            aColumnTextColumn = New DataGridTextBoxColumn()
            aColumnTextColumn.HeaderText = dsprojets.Tables(0).Columns(i).ColumnName 'texte du header
            aColumnTextColumn.MappingName = dsprojets.Tables(0).Columns(i).ColumnName 'texte de la colonne
            aColumnTextColumn.Width = 80 'largeur
            aColumnTextColumn.Alignment = HorizontalAlignment.Right 'alignement
            If i = 0 Then
                aColumnTextColumn.Width = 80 'premeire colonne taille 80
            End If
            If i = 2 Then
                aColumnTextColumn.Width = 400 'troisime colonne taille 400
                aColumnTextColumn.Alignment = HorizontalAlignment.Left
            End If
            If i = 3 Then
                aColumnTextColumn.Width = 60
                aColumnTextColumn.Alignment = HorizontalAlignment.Right
                aColumnTextColumn.Format = "0.00" 'format de numerique
            End If
            If i = 4 Then
                aColumnTextColumn.Width = 400
                aColumnTextColumn.Alignment = HorizontalAlignment.Left
            End If

            tableStyle.GridColumnStyles.Add(aColumnTextColumn)
            i = (i + 1)
        Loop
        ' make the dataGrid use our new tablestyle and bind it to our table
        dvprojets.Sort = "REFERENCE" 'tri pa defaut 
        dgProjets.TableStyles.Clear()
        dgProjets.TableStyles.Add(tableStyle)
        dgProjets.DataSource = dvprojets

glplpmat

cs_chris81 · Answer

tu as peut etre MyDataGrid1.Column(1).columnwidht.
http://www.tarnweb.com
http://www.correzeweb.com

asem67 · Answer

salut 
voici le code que j'utilise 



'  "tnom" >> table de la bd
'  "dtsetnom >> dataset
'  "dgTnom" >> mon DataGrid

    Private Sub mefdgNom() 'mise en form du datagrid Nom
        Dim dgstyle As New DataGridTableStyle
        Dim dgmanager As CurrencyManager = CType(BindingContext(DtSetNom.Tables.Item("tnom")), CurrencyManager)
        With dgstyle
            .MappingName = "tnom"
            'ici en peut definir les couleurs
            '.BackColor = System.Drawing.Color.Blue
            With .GridColumnStyles
'Premiere colonne (o)
                .Add(New DataGridTextBoxColumn(dgmanager.GetItemProperties.Item("id")))
                With .Item(0)
                    .MappingName = "id"
                    .HeaderText = "ID"
                    .Width = 30
                    .NullText = String.Empty
                    .ReadOnly = True
                End With
'Deuxieme colonne (1)
                .Add(New DataGridTextBoxColumn(dgmanager.GetItemProperties.Item("nom")))
                With .Item(1)
                    .MappingName = "nom"
                    .HeaderText = "NOM"
                    .Width = 300
                    .NullText = String.Empty
                End With
            End With
        End With
        dgTnom.TableStyles.Add(dgstyle)
    End Sub



A+
ASEM67   :)

cs_stargates · Answer

Merci  mais pas sur vbnet

[VbNet]datagrid

4 réponses

Discussions similaires