ROSTAM2
پنج شنبه 13 مهر 1402, 08:08 صبح
در این ویدئوی آموزشی یک 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 ....
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 ....