|
Module modInitDataGrid
Public Sub InitDataGrid(ByVal m_DataGrid As DataGrid)
With m_DataGrid
.ReadOnly = True
.Size = New Size(350, 200)
.BackgroundColor = Color.LightSalmon
.CaptionText = "DataGrid"
.CaptionBackColor = Color.LightSalmon
.CaptionForeColor = Color.Black
.CaptionFont = New Font("Arial", 9.0!, _
FontStyle.Bold Or FontStyle.Italic, _
GraphicsUnit.Point, CType(0, Byte))
.Font = New Font("Arial", 9.0!, FontStyle.Bold, _
GraphicsUnit.Point, CType(0, Byte))
End With
Dim newDataGridTableStyle As DataGridTableStyle = _
New DataGridTableStyle()
With newDataGridTableStyle
.MappingName = "element1"
.HeaderBackColor = Color.Salmon
.HeaderFont = New Font("Arial", 9.0!, _
FontStyle.Regular, _
GraphicsUnit.Point, CType(0, Byte))
.BackColor = Color.LightSalmon
.AlternatingBackColor = Color.Salmon
End With
Dim newTextColumnId As DataGridTextBoxColumn = _
New DataGridTextBoxColumn()
With newTextColumnId
.MappingName = "Id"
.HeaderText = "Id"
.Alignment = HorizontalAlignment.Center
End With
newDataGridTableStyle.GridColumnStyles.Add(newTextColumnId)
Dim newTextColumnLand As DataGridTextBoxColumn = _
New DataGridTextBoxColumn()
With newTextColumnLand
.MappingName = "Land"
.HeaderText = "Land"
End With
newDataGridTableStyle.GridColumnStyles.Add(newTextColumnLand)
Dim newTextColumnKont As DataGridTextBoxColumn = _
New DataGridTextBoxColumn()
With newTextColumnKont
.MappingName = "Kont"
.HeaderText = "Kont"
End With
newDataGridTableStyle.GridColumnStyles.Add(newTextColumnKont)
m_DataGrid.TableStyles.Add(newDataGridTableStyle)
Call FillDataGrid(m_DataGrid)
End Sub
Private Sub FillDataGrid(ByVal mDataGrid As DataGrid)
Dim Dataset As newDataset = New newDataset()
mDataGrid.SetDataBinding(Dataset.element1, Nothing)
With Dataset.element1()
.Addelement1Row("Deutschland", "Europa", "D")
.Addelement1Row("Frankreich", "Europa", "F")
.Addelement1Row("Kanada", "Amerika", "Can")
.Addelement1Row("Japan", "Asien", "Jap")
.Addelement1Row("Spanien", "Europa", "Es")
.Addelement1Row("United Kingdom", "Europa", "Uk")
.Addelement1Row("Vereinigte Staaten", "Amerika", "Us")
End With
mDataGrid.Select()
Dataset.Dispose()
End Sub
End Module
|
|