تغییر اندازه ستون 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("TableName")), CurrencyManager)
Dim tbStyle As New DataGridTableStyle()

With tbStyle
.MappingName = "TableName"

With .GridColumnStyles
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperti es.Item("Field1")))
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperti es.Item("Field2")))
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperti es.Item("Field3")))
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperti es.Item("Field4")))
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperti es.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)