Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel
Imports System.Drawing
Public Class JHADataGrid
Inherits DataGrid
Private JHADataGrid As DataGrid
Private HeaderStyleProps As HeaderStyleProperties
Private AlternatingItemStyleProps As AlternatingItemStyleProperties
Public Sub New()
Dim i As Integer
Dim dgColumn As DataGridColumn
JHADataGrid = New DataGrid
HeaderStyleProps = New HeaderStyleProperties
AlternatingItemStyleProps = New AlternatingItemStyleProperties
JHADataGrid.ID = "JHADataGrid1"
[color=red]This is the area in question
For i = 1 To 3
JHADataGrid.Columns.Add(dgColumn)
Next
[/color]
End Sub
<DefaultValue(""), _
Category("HeaderStyle"), _
PersistenceMode(PersistenceMode.InnerProperty)> _
Public Shadows Property [HeaderStyle]() As HeaderStyleProperties
Get
Return HeaderStyleProps
End Get
Set(ByVal Value As HeaderStyleProperties)
HeaderStyleProps = Value
End Set
End Property
<DefaultValue(""), _
Category("AlternatingItemStyle"), _
PersistenceMode(PersistenceMode.InnerProperty)> _
Public Shadows Property [AlternatingItemStyle]() As AlternatingItemStyleProperties
Get
Return AlternatingItemStyleProps
End Get
Set(ByVal Value As AlternatingItemStyleProperties)
AlternatingItemStyleProps = Value
End Set
End Property
Protected Overrides Sub render(ByVal writer As HtmlTextWriter)
EnsureChildControls()
MyBase.Render(writer)
End Sub
Protected Overrides Sub CreateControlHierarchy(ByVal useDataSource As Boolean)
End Sub
Protected Overrides Sub PrepareControlHierarchy()
End Sub
'Hide the Font property in the properties window
<Browsable(False), _
EditorBrowsable(EditorBrowsableState.Never)> _
Public Overrides ReadOnly Property Font() As FontInfo
Get
Return MyBase.Font
End Get
End Property
End Class