[VB.NET]Microsoft DataGrid

[deedlyt]

Salve a tutti,
sto usando la datagrid di microsoft, però ho un piccolo problemino @_@

Quando sono in edit della grid non so come modificare la lunghezza del textbox.Any HELP??

[mardok30]

Se vuoi aumentare il Width della textbox che appare quando vai a modificare una singola cella... non so come fare, sinceramente.
Però se ti "accontenti" di allargare tutta la colonna segui questo metodo:

OleDbDataAdapter1.Fill(DataSetTemp1, "temp")
      
DataGrid1.DataSource = DataSetTemp1.Tables("temp")

            With DataGrid1
            .BackColor = Color.GhostWhite
            .BackgroundColor = Color.Lavender
            .BorderStyle = BorderStyle.None
            .CaptionVisible = False
            .Font = New Font("Tahoma", 10.0!)
            '.ParentRowsBackColor =  Color.Lavender
            '.ParentRowsForeColor = Color.MidnightBlue
            .PreferredRowHeight = 20
        End With

        Dim grdTableStyle1 As New DataGridTableStyle
        With grdTableStyle1

            .AlternatingBackColor = Color.Azure
            .BackColor = Color.Ivory
            .ForeColor = Color.MidnightBlue
            .GridLineColor = Color.RoyalBlue
            .HeaderBackColor = Color.BlanchedAlmond
            .HeaderFont = New Font("Tahoma", 8.0!, FontStyle.Bold)
            .HeaderForeColor = Color.Black
            .RowHeadersVisible = False
            .MappingName = "temp"
            .PreferredColumnWidth = 125
            .PreferredRowHeight = 15
        End With

        Dim grdColStyle1 As New DataGridTextBoxColumn
        With grdColStyle1
            .HeaderText = "col1"
            .MappingName = "col1"
            .Width = 25
            .NullText = ""
        End With


        Dim grdColStyle2 As New DataGridTextBoxColumn
        With grdColStyle2
            .HeaderText = "col2"
            .MappingName = "col2"
            .Width = 247
            .NullText = ""
            .Alignment = HorizontalAlignment.Center
        End With

        Dim grdColStyle3 As New DataGridTextBoxColumn
        With grdColStyle3
            .HeaderText = "col3"
            .MappingName = "col3"
            .Width = 28
            '.TextBox.BackColor = Color.Red
            .NullText = ""
            .Alignment = HorizontalAlignment.Center
        End With

        Dim grdColStyle4 As New DataGridTextBoxColumn
        With grdColStyle4
            .HeaderText = "col4"
            .MappingName = "col4"
            .Width = 75
            .Alignment = HorizontalAlignment.Center
            .NullText = "0"
        End With

        Dim grdColStyle5 As New DataGridTextBoxColumn
        With grdColStyle5
            .HeaderText = "ingrediente"
            .MappingName = "ingrediente"
            .Width = 240
            .Alignment = HorizontalAlignment.Center
            .NullText = ""
        End With


       grdTableStyle1.GridColumnStyles.AddRange(New DataGridColumnStyle() {grdColStyle1, grdColStyle2, grdColStyle3, grdColStyle4, grdColStyle5})

        DataGrid1.TableStyles.Add(grdTableStyle1)