Page code behind example

Partial Public ClassEdit_Customers

        InheritsBaseApplicationPage

#Region "Section 1: Place your customizations here."

      Public Sub SetPageFocus()          

      Public Sub LoadData()

          LoadData_Base()

      End Sub

      Private FunctionEvaluateFormula(…) As String

          ReturnEvaluateFormula_Base(…)

      End Function

      Public SubPage_InitializeEventHandlers(…) Handles MyBase.Init

           Me.Page_InitializeEventHandlers_Base(sender,e)

      End Sub

      Public SubPage_PreRender(…) Handles Me.PreRender

          Me.Page_PreRender_Base(sender,e)

      End Sub

      Public Overrides Sub SaveData()

          Me.SaveData_Base()

      End Sub

      Public SubPage_PreInit(…) Handles Me.PreInit

              Me.PreInit_Base()

      End Sub

#Region "Ajax Functions"

        <Services.WebMethod()> _

        Public Shared FunctionGetRecordFieldValue(…) As Object()

            ReturnGetRecordFieldValue_Base(…)

        End Function

        <Services.WebMethod()> _

        Public Shared Function GetImage(…) As Object()

            ReturnGetImage_Base(…)

        End Function

#End Region

        Public SubCancelButton_Click(…)

          CancelButton_Click_Base(…)

        End Sub

        Public SubSaveButton_Click(…)

           SaveButton_Click_Base(…)

        End Sub                           

…

        Public SubSetCustomersRecordControl()

            SetCustomersRecordControl_Base()

        End Sub

        Public SubSetSaveButton()

            SetSaveButton_Base()

        End Sub             

#End Region

#Region "Section 2: Do not modify this section."

…

        Protected SubPage_InitializeEventHandlers_Base(…)                   

              AddHandler Me.CancelButton.Button.Click, AddressOf CancelButton_Click

              AddHandler Me.SaveButton.Button.Click, AddressOfSaveButton_Click

        End Sub

       Protected Overridable Sub Page_Load(…) Handles MyBase.Load

           Me.SetPageFocus()

           Me.Authorize("")

           If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack" OrElse ( Me.Request("__EVENTTARGET") = "isd_geo_location")) Then

                Me.LoadData()

            End If

        End Sub

        Public Shared FunctionGetRecordFieldValue_Base(…) As Object()

        Public Shared FunctionGetImage_Base(…) As Object()

        Public SubSetControl_Base(ByVal control As String)

            Select Case control

               Case "CustomersRecordControl"

                 SetCustomersRecordControl()

               Case "OrdersTableControl"

                 SetOrdersTableControl()

             End Select

         End Sub         

        Public SubSaveData_Base()

           Me.CustomersRecordControl.SaveData()

        End Sub

        Public SubPreInit_Base()

        Public SubPage_PreRender_Base(…)

        Public SubLoadData_Base()

            DbUtils.StartTransaction()

            Me.DataBind()

            SetCustomersTabContainer()

            SetOrdersTabPanel()

…         

               SetSaveButton()

…             

               DbUtils.EndTransaction()

        End Sub

…

        Public Overridable FunctionEvaluateFormula_Base(…) As String

        Public SubSetCustomersTabContainer_Base()          

        Public SubSetOrdersTabPanel_Base()          

        Public SubSetCustomersRecordControl_Base()          

…          

        Public SubSetSaveButton_Base()               

        Public SubCancelButton_Click_Base(…)

        Public SubSaveButton_Click_Base(…)

                DbUtils.StartTransaction

              If (Not Me.IsPageRefresh) Then        

                  Me.SaveData()

              End If       

               Me.CommitTransaction(…)

               DbUtils.EndTransaction

        End Sub   

#End Region

End Class