K
KJ
I have a custom datagrid control created with CreateChildControls()
My Image Button Event will not fire so I cannot raise it to the webform.
The ItemClick Event will not fire.
My code is below:
Protected Overrides Sub CreateChildControls()
dgItems.CellPadding = 2
dgItems.CellSpacing = 0
'dgItems.Width = 550px
' dgItems.BorderWidth = 1
dgItems.BorderColor = ColorTranslator.FromHtml("Black")
dgItems.AutoGenerateColumns = False
dgItems.ForeColor = ColorTranslator.FromHtml("Black")
' dgItems.Font.Size = 8
dgItems.Font.Name = "Arial"
dgItems.AllowSorting = True
' x.ItemStyle.BackColor = ColorTranslator.FromHtml("#FFF778")
x.ItemStyle.HorizontalAlign = HorizontalAlign.Center
s.HeaderText = "hasccp"
s.DataField = "hasccp"
k.HeaderText = "Number"
k.DataField = "Number"
l.HeaderText = "Type"
l.DataField = "Type"
e.HeaderText = "Name"
e.DataField = "Name"
x.ItemTemplate = New DataGridTemplate(ListItemType.Item, "Column1")
dgItems.Columns.AddAt(0, x)
dgItems.Columns.AddAt(1, s)
dgItems.Columns.AddAt(2, k)
dgItems.Columns.AddAt(3, l)
dgItems.Columns.AddAt(4, e)
dgItems.DataSource = RcpDS.Tables("MyStock")
dgItems.DataBind()
dgItems.EnableViewState = False
Controls.Add(dgItems)
End Sub
End Class
Public Class DataGridTemplate
Implements ITemplate
Dim ib As New ImageButton()
Dim templateType As ListItemType
Dim columnName As String
System.Web.UI.ImageClickEventArgs)
Sub New(ByVal type As ListItemType, ByVal ColName As String)
templateType = type
columnName = ColName
End Sub
Sub InstantiateIn(ByVal container As Control) _
Implements ITemplate.InstantiateIn
ib.ImageUrl = Select.gif"
ib.ToolTip = "Select Item"
ib.ImageAlign = ImageAlign.AbsBottom
ib.CommandName = "Select"
AddHandler ib.Click, AddressOf ItemClick
container.Controls.Add(ib)
End Sub
Public Sub ItemClick(ByVal sender As Object, _
ByVal e As System.Web.UI.ImageClickEventArgs)
End Sub
End Class
My Image Button Event will not fire so I cannot raise it to the webform.
The ItemClick Event will not fire.
My code is below:
Protected Overrides Sub CreateChildControls()
dgItems.CellPadding = 2
dgItems.CellSpacing = 0
'dgItems.Width = 550px
' dgItems.BorderWidth = 1
dgItems.BorderColor = ColorTranslator.FromHtml("Black")
dgItems.AutoGenerateColumns = False
dgItems.ForeColor = ColorTranslator.FromHtml("Black")
' dgItems.Font.Size = 8
dgItems.Font.Name = "Arial"
dgItems.AllowSorting = True
' x.ItemStyle.BackColor = ColorTranslator.FromHtml("#FFF778")
x.ItemStyle.HorizontalAlign = HorizontalAlign.Center
s.HeaderText = "hasccp"
s.DataField = "hasccp"
k.HeaderText = "Number"
k.DataField = "Number"
l.HeaderText = "Type"
l.DataField = "Type"
e.HeaderText = "Name"
e.DataField = "Name"
x.ItemTemplate = New DataGridTemplate(ListItemType.Item, "Column1")
dgItems.Columns.AddAt(0, x)
dgItems.Columns.AddAt(1, s)
dgItems.Columns.AddAt(2, k)
dgItems.Columns.AddAt(3, l)
dgItems.Columns.AddAt(4, e)
dgItems.DataSource = RcpDS.Tables("MyStock")
dgItems.DataBind()
dgItems.EnableViewState = False
Controls.Add(dgItems)
End Sub
End Class
Public Class DataGridTemplate
Implements ITemplate
Dim ib As New ImageButton()
Dim templateType As ListItemType
Dim columnName As String
System.Web.UI.ImageClickEventArgs)
Sub New(ByVal type As ListItemType, ByVal ColName As String)
templateType = type
columnName = ColName
End Sub
Sub InstantiateIn(ByVal container As Control) _
Implements ITemplate.InstantiateIn
ib.ImageUrl = Select.gif"
ib.ToolTip = "Select Item"
ib.ImageAlign = ImageAlign.AbsBottom
ib.CommandName = "Select"
AddHandler ib.Click, AddressOf ItemClick
container.Controls.Add(ib)
End Sub
Public Sub ItemClick(ByVal sender As Object, _
ByVal e As System.Web.UI.ImageClickEventArgs)
End Sub
End Class