submitCell = New TableCell


Dim submitBtn As Button = New Button


submitBtn.GetType.GetEvent("Click").AddEventHandler(submitBtn, New EventHandler(AddressOf Me.Save))


submitBtn.Text = "Submit"


submitCell.Controls.Add(submitBtn)





tr.Cells.Add(submitCell)


t.Rows.Add(tr)

Public Sub Save(ByVal sender As Object, ByVal e As EventArgs)


            System.Diagnostics.Debug.WriteLine("in save")


End Sub

Imports System.ComponentModel


Imports System.Web.UI


Imports System.Web.UI.WebControls





Namespace DynamicForm





    <DefaultProperty("Text"), ToolboxData("<{0}:Form runat=server></{0}:Form>")> Public Class Form


        Inherits System.Web.UI.WebControls.Panel





#Region "Variables"





        Private _text As String





#End Region





#Region "Properties"





        <Bindable(True), Category("Appearance"), DefaultValue("")> Property [Text]() As String


            Get


                Return _text


            End Get





            Set(ByVal Value As String)


                _text = Value


            End Set


        End Property





#End Region





#Region "Methods"





        Public Sub GenerateForm(ByVal accomplishmentCode As String)





            Try





                Dim ac As BusinessLogic.Collections.AttributeCollection = BusinessLogic.Data.Attribute.GetAttributes(accomplishmentCode)





                ' check to make sure there are attributes to add


                If ac.Count <> 0 Then





                    Dim t As Table = New Table


                    t.BorderStyle = BorderStyle.Dashed


                    Dim tr As TableRow





                    ' loop through AttributeCollection and build html 


                    ' from it


                    For Each a As BusinessLogic.Data.Attribute In ac





                        tr = New TableRow


                        tr.BorderStyle = BorderStyle.Solid


                        Dim displayLabelCell As TableCell


                        Dim inputCell As TableCell





                        ' add display label to page


                        displayLabelCell = New TableCell


                        Dim displayLabel As Label = New Label


                        displayLabel.Text = a.Name


                        displayLabelCell.Controls.Add(displayLabel)





                        ' add input control to page


                        Select Case a.ControlType()





                            Case "TextBox"


                                inputCell = New TableCell





                                Dim tb As TextBox = New TextBox


                                tb.ID = a.AttributeId


                                tb.Width = Unit.Parse(a.Width.ToString())


                                tb.Height = Unit.Parse("22")


                                inputCell.Controls.Add(tb)





                        End Select





                        tr.Cells.Add(displayLabelCell)


                        tr.Cells.Add(inputCell)


                        t.Rows.Add(tr)





                    Next





                    ' add buttons for submit and reset


                    tr = New TableRow


                    Dim submitCell As TableCell


                    Dim resetCell As TableCell





                    submitCell = New TableCell


                    Dim submitBtn As Button = New Button


                    submitBtn.ID = "SubmitButton"


                    submitBtn.Text = "Submit"


                    submitBtn.GetType.GetEvent("Click").AddEventHandler(submitBtn, New EventHandler(AddressOf Me.SaveForm))


                    submitCell.Controls.Add(submitBtn)





                    resetCell = New TableCell


                    Dim resetBtn As Button = New Button


                    resetBtn.ID = "ResetButton"


                    resetBtn.Text = "Reset"


                    resetBtn.GetType.GetEvent("Click").AddEventHandler(resetBtn, New EventHandler(AddressOf Me.ResetForm))


                    resetCell.Controls.Add(resetBtn)





                    tr.Cells.Add(submitCell)


                    tr.Cells.Add(resetCell)


                    t.Rows.Add(tr)





                    Me.Controls.Add(t)





                Else


                    Me.Text = "No attributes to load"


                End If





            Catch ex As Exception


                System.Diagnostics.Debug.WriteLine("Exception in Form.GenerateForm(): " & ex.ToString())


            End Try





        End Sub





        Public Sub SaveForm(ByVal sender As Object, ByVal e As EventArgs)





            System.Diagnostics.Debug.WriteLine("in save")





            Try





                ' rip out table control


                Dim t As Table


                t = Me.Controls(0) ' should only be one control in the container





                For Each r As TableRow In t.Rows





                    For Each cell As TableCell In r.Cells


                        For Each c As Control In cell.Controls





                            If TypeOf c Is TextBox Then


                                Dim textBox As TextBox


                                textBox = c


                                System.Diagnostics.Debug.WriteLine("ID: " & textBox.ID & vbTab & "Value: " & textBox.Text)


                            End If





                        Next


                    Next





                Next





            Catch ex As Exception


                System.Diagnostics.Debug.WriteLine("Exception in Form.Save(): " & ex.ToString())


            End Try





        End Sub





#End Region





    End Class





End Namespace