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

در این ویدئوی آموزشی یک 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 ....

سلام به همه
من می خوام فونت سفارشی برای دیتا گزرید تعیین کنم ولی تغییر اندازه ارتفاع ردیف ستون ها رو نمی تونم پیدا کنم!!!!!

ضمیمه 156126

چطور باید ارتفاع ردیف ستون رو بیشتر کنیم؟!

پراپرتیهای دیتاگرید رو نگاه کنید،
سطر ، پراپرتی height داره که میشه ارتفاع سطر خاصی رو تغییر داد.
هم هدرها، هم سطرها و سلولها قابلیت تغییر ظاهر از جمله ارتفاع را دارند. (پراپرتی هایی که style توی اسمشون هست.)
هم میشه کاری کرد ارتفاع سطر متناسب با بیشترین ارتفاع متن همان سطر تغییر کنه (DataGridView.AutoSizeRowsMode)
و ...