نحوه اضافه کردن ستون های DataGrid در زمان اجرا (RunTime)

[ROSTAM2]

در این ویدئوی آموزشی یک DataGrid داریم که قبل از هر چیز باید یک DataTable برای DataSource اون تعیین بشه و همزمان با اضافه کردن ستون های DataTable به ستونهای DataGridTableStyle هم اضافه می شه....

https://aparat.com/v/xCyag

154990


Dim MultiLanguageDataTable As New DataTable("MultiLanguageDataTable")



Dim DataColumn As DataGridTextBoxColumn
Dim Width_ As Integer = 250
Dim g As Graphics = Me.DataGrid1.CreateGraphics



With MultiLanguageDataTable
MultiLanguageTableStyle.MappingName = .TableName
MultiLanguageTableStyle.PreferredColumnWidth = 250
.Columns.Clear()
With .Columns.Add("ResName")
.Caption = "Resource Name"
End With
DataColumn = New DataGridTextBoxColumn
With DataColumn
.HeaderText = "Resource Name"
.MappingName = "ResName"
Width_ = g.MeasureString(.HeaderText, Me.DataGrid1.HeaderFont).Width
.Width = If(Width_ < MultiLanguageTableStyle.PreferredColumnWidth, MultiLanguageTableStyle.PreferredColumnWidth, Width_)
End With
MultiLanguageTableStyle.GridColumnStyles.Clear()
Index = MultiLanguageTableStyle.GridColumnStyles.Add(DataC olumn)
For Each Item As ListViewItem In Me.ListView1.Items
With .Columns.Add(Item.SubItems(3).Text)
.Caption = Item.SubItems(2).Text


End With
DataColumn = New DataGridTextBoxColumn
With DataColumn
.HeaderText = Item.SubItems(1).Text
.MappingName = Item.SubItems(3).Text
Width_ = g.MeasureString(.HeaderText, Me.DataGrid1.HeaderFont).Width
.Width = If(Width_ < MultiLanguageTableStyle.PreferredColumnWidth, MultiLanguageTableStyle.PreferredColumnWidth, Width_)
End With
Index = MultiLanguageTableStyle.GridColumnStyles.Add(DataC olumn)
Next
End With


Any Question ....