تغییر اندازه ستون Datagrid در VB.net.......

[zehs_sha]

چگونه می توانم کدی را در روال Form_Load بنویسم که اندازه ستون datagridرا vb.net تغییر دهد. 8)

[Abbas Arizi]

برای اعمال تغییر در ستونهای DataGrid توی VB.NET باید برای اون Style تعریف کنید. راه ساده اش اینه که از طریق کادر Properties این Style رو به مجموعه TableStyle اضافه کنید ولی اگر به کدنویسی نیاز داشته باشید، با کدی مشابه کد زیر میتونید اندازه، متن و ... برای هر ستون تعریف کنید:

Dim tblCrrncMngr As CurrencyManager = CType(BindingContext(DataSet.Tables.Item&#  40;"TableName")), CurrencyManager)

        Dim tbStyle As New DataGridTableStyle()



        With tbStyle

            .MappingName = "TableName"



            With .GridColumnStyles

                .Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProp  erties.Item("Field1")))

                .Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProp  erties.Item("Field2")))

                .Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProp  erties.Item("Field3")))

                .Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProp  erties.Item("Field4")))

                .Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProp  erties.Item("Field5")))

	.

	.

	.	



                With .Item(0)

                    .MappingName = " Field1"

                    .HeaderText = "Filed1 Header Text"

                End With



                With .Item(1)

                    .MappingName = " Field2"

                    .Width = 150

                End With



                With .Item(2)

                    .MappingName = " Field3"

                    .Width = 150

                End With



                With .Item(3)

                    .MappingName = " Field4"

                    .Width = 75

                End With



                With .Item(4)

                    .MappingName = "Field5"

                    .Width = 200

                End With

	.

	.

	.	

            End With

        End With



        DataGrid1.TableStyles.Add(tbStyle)