Resize columns in datagrid

Hi experts,

having difficulty in resizing the columns in a datagrid....working on a project for a CE device. Created a datagrid from a string (lines from file), but am unable to resize these columns...can't find the right thing on internet....everybody is talking about mapping to a dataset....

my code:

Public Class FrmBestellingen
    Public fi As FileInfo
    Public filenaam As String
    Public Cart As New Data.DataTable
    Public dr As Data.DataRow
    Public teller As Integer

    Private Sub FrmBestellingen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Files() As String = Directory.GetFiles(Settings.DataPath)
        For Each FileName As String In Files
               fi = New FileInfo(FileName)
            If fi.Name.ToUpper().StartsWith("P") = True Then
            ElseIf fi.Name.ToUpper().StartsWith("DAG") = True Then
                filenaam = fi.ToString
                filenaam = filenaam.Substring(11, 14)
            End If
        Next FileName

        Cart.Columns.Add(New Data.DataColumn("Verteg.", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("EffekLev", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Klant", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn(" Datum  ", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("KollDatum", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Artikel", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Aantal", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Prijs", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Omschrijving", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Etiket", GetType(String)))
        Cart.Columns.Add(New Data.DataColumn("Info", GetType(String)))
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim lntekst As String = ""
        Dim inhoudfile As String = ""
        teller = -1
        filenaam = ListBox1.SelectedItem.ToString

        Using sr As New System.IO.StreamReader(Settings.DataPath & filenaam & ".txt")
            While lntekst IsNot Nothing
                lntekst = sr.ReadLine()
                If lntekst Is Nothing Or lntekst = "" Then Exit While
                teller += 1
                dr = Cart.NewRow()
                dr(0) = lntekst.Substring(0, 2)
                dr(1) = lntekst.Substring(2, 4)
                dr(2) = lntekst.Substring(6, 7)
                dr(3) = lntekst.Substring(13, 8)
                dr(4) = lntekst.Substring(21, 8)
                dr(5) = lntekst.Substring(29, 6)
                dr(6) = lntekst.Substring(35, 5)
                dr(7) = lntekst.Substring(40, 8)
                dr(8) = lntekst.Substring(48, 25)
                dr(9) = lntekst.Substring(73, 1)
                dr(10) = lntekst.Substring(74, 25)
                dr = Nothing
            End While
        End Using
        DataGrid1.DataSource = Cart
    End Sub

Maybe, hopefully, easy to you experts but as I'm still quit a newby...any help is appreciated...

Thx & regards,

Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.


i am not finding what columns you added for the datagrid. can you send me the datagrid columns what you added and how you added. If you kept readonly for the column level or if you kept the column resize option as false you can't change.

RobbalsAuthor Commented:

Dear Srinivasbn,

hmm, don' t even understand what you ask here...
I addcolumns to the CART datatable (Cart.Columns.Add(New Data.DataColumn("Verteg.", GetType(String))))
I use a line from a textfile and chop this up into several different items and then trow these items into a row from the datatable..
The result is a nice working datagrid, I can even change values ( by using: DataGrid1.Item(row, column) = newvalue)
So, for me this works okBUT I get all the same sizes for my columns....and for exampl the field "Omschrijving" is about 25 caraters long and thus doesn't fit into the column. (I can resize it while running the program though, but would like to set a default witdh)

Thx for your help.
RobbalsAuthor Commented:

FOUND IT !!!!!! :-)

had to add:

        Dim gtsGrid As DataGridTableStyle = New DataGridTableStyle
        gtsGrid.MappingName = Cart.ToString  (!!!! cart.tostring did the trick)
        gtsGrid.GridColumnStyles(0).Width = 100

Thx anyway for ur time!

RobbalsAuthor Commented:
for anyone who might be interested....

solution was just to add following lines:
        'existing line
        DataGrid1.DataSource = Cart

       'lines to add
        gtsGrid.MappingName = Cart.ToString
        gtsGrid.GridColumnStyles(0).Width = 90
        gtsGrid.GridColumnStyles(1).Width = 100


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Smartphone Programming

From novice to tech pro — start learning today.