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

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

https://aparat.com/v/xCyag

 Dim MultiLanguageDataTable As New DataTable("MultiLanguageDataTable")

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(DataColumn)

                    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(DataColumn)

                    Next

                End With