|
Module modInitDataGrid
Public Sub InitDataGrid(ByVal m_datagrid As DataGrid)
With m_datagrid
.ReadOnly = True
.Size = New Size(384, 300)
.BackgroundColor = Color.LightSalmon
.CaptionText = "DataGrid Reihen anklicken"
.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.Bold Or FontStyle.Italic, _
GraphicsUnit.Point, CType(0, Byte))
.BackColor = Color.LightSalmon
.AlternatingBackColor = Color.Salmon
End With
Dim newTextColumnLand As DataGridTextBoxColumn =
New DataGridTextBoxColumn()
With newTextColumnLand
.MappingName = "Land"
.HeaderText = "TextBoxColumn"
.Width = 180
End With
newDataGridTableStyle.GridColumnStyles.Add(newTextColumnLand)
Dim newTextColumnKont As DataGridTextBoxColumn = _
New DataGridTextBoxColumn()
With newTextColumnKont
.MappingName = "Kont"
.HeaderText = "TextBoxColumn"
.Width = 150
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(DText, "Europa")
.Addelement1Row(FText, "Europa")
.Addelement1Row(KText, "Amerika")
.Addelement1Row(JText, "Asien")
.Addelement1Row("Spanien", "Europa")
.Addelement1Row("United Kingdom", "Europa")
.Addelement1Row("Vereinigte Staaten", "Amerika")
End With
mDatagrid.Select()
Dataset.Dispose()
End Sub
Private Function DText() As String
Return "Deutschland" & Chr(13) & Chr(10) & _
"Einwohnerzahl = 82 Mio" & Chr(13) & Chr(10) & _
"Fläche = 357.022 Km²"
End Function
Private Function FText() As String
Return "Frankreich" & Chr(13) & Chr(10) & _
"Einwohnerzahl = 58,9 Mio" & Chr(13) & Chr(10) & _
"Fläche = 543.965 Km²"
End Function
Private Function KText() As String
Return "Kanada" & Chr(13) & Chr(10) & _
"Einwohnerzahl = 30,9 Mio" & Chr(13) & Chr(10) & _
"Fläche = 9,97 Mio Km²"
End Function
Private Function JText() As String
Return "Japan" & Chr(13) & Chr(10) & _
"Einwohnerzahl = 126,5 Mio" & Chr(13) & Chr(10) & _
"Fläche = 377.801 Km²"
End Function
End Module
|
|