Public Sub LoadUserControl(ByVal userControl As String) |
Dim myUserControl As UserControl |
Dim uc As String |
|
|
Select Case userControl |
Case "ucParentGuardian" |
uc = "~/controls/Journal/NewFamilyJournal_Parent_Guardian.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucParentGuardian" |
Me.phParentGuardian.Controls.Add(myUserControl) |
If Not Session("FirstTimeParentGuardian") Is Nothing Then |
Session.Remove("FirstTimeParentGuardian") |
End If |
|
|
Case "ucFamilyMembers" |
uc = "~/controls/Journal/NewFamilyJournal_FamilyMembers.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucFamilyMembers" |
Me.phFamilyMembers.Controls.Add(myUserControl) |
|
Case "ucOthersInHome" |
uc = "~/controls/Journal/NewFamilyJournal_OthersInHome.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucOthersInHome" |
Me.phOthersInHome.Controls.Add(myUserControl) |
|
|
Case "ucPrimaryContact" |
uc = "~/controls/Journal/NewFamilyJournal_PrimaryContact.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucPrimaryContact" |
Me.phContact.Controls.Add(myUserControl) |
|
Case "ucAdditionalContact" |
uc = "~/controls/Journal/NewFamilyJournal_AdditionalContact.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucAdditionalContact" |
Me.phAdditionalContact.Controls.Add(myUserControl) |
|
|
Case "ucEmergencyContact" |
uc = "~/controls/Journal/NewFamilyJournal_EmergencyContact.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucEmergencyContact" |
Me.phEmergencyContact.Controls.Add(myUserControl) |
|
Case "ucIncome" |
uc = "~/controls/Journal/NewFamilyJournal_Income.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucIncome" |
Me.phIncome.Controls.Add(myUserControl) |
|
Case "ucSchool" |
uc = "~/controls/Journal/NewFamilyJournal_School_ChildCare.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucSchool" |
Me.phSchool.Controls.Add(myUserControl) |
|
Case "ucComments" |
uc = "~/controls/Journal/NewFamilyJournal_Comments.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucComments" |
Me.phComments.Controls.Add(myUserControl) |
|
Case "ucAgency" |
uc = "~/controls/Journal/NewFamilyJournal_Agency.ascx" |
myUserControl = Page.LoadControl(uc) |
myUserControl.ID = "ucAgency" |
Me.phAgencyInformation.Controls.Add(myUserControl) |
|
End Select |
End Sub 'LoadUserControl |