defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Minor Fields Of study:", minorsList))
         End If
         labelEducation.Text = sbText.ToString()
         sbText.Length = 0
         
         If CType(tabWizard.FindControl("tabProfessional"), Tab).Enabled Then
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Company name:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textCompanyName"), System.Web.UI.WebControls.TextBox).Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Address:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textCompanyAddress"), System.Web.UI.WebControls.TextBox).Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Contact person:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textContactPerson"), System.Web.UI.WebControls.TextBox).Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Position held:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textPosition"), System.Web.UI.WebControls.TextBox).Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Start date:", CType(multipageWizard.Controls(2).Controls(0).FindControl("listStartDateMonth"), System.Web.UI.WebControls.DropDownList).SelectedItem.Text + "/" + CType(multipageWizard.Controls(2).Controls(0).FindControl("listStartDateYear"), System.Web.UI.WebControls.DropDownList).SelectedItem.Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "End date:", CType(multipageWizard.Controls(2).Controls(0).FindControl("listEndDateMonth"), System.Web.UI.WebControls.DropDownList).SelectedItem.Text + "/" + CType(multipageWizard.Controls(2).Controls(0).FindControl("listEndDateYear"), System.Web.UI.WebControls.DropDownList).SelectedItem.Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Responsibilities:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textResponsibilities"), System.Web.UI.WebControls.TextBox).Text))
            sbText.Append([String].Format("<span class='label'>{0}</span> {1}<br />", "Projects Worked on:", CType(multipageWizard.Controls(2).Controls(0).FindControl("textProjects"), System.Web.UI.WebControls.TextBox).Text))
         End If
         labelEmployment.Text = sbText.ToString()
         
         
         labelMotivation.Text = CType(multipageWizard.FindControl("editorMotivation"), Telerik.WebControls.RadEditor).Xhtml
      End Sub 'UpdatePreview
       
      Protected Sub submitCV(sender As Object, e As System.EventArgs)
         UpdatePreview()
         Dim selectedTab As Telerik.WebControls.Tab = tabWizard.SelectedTab
         Dim tempTab As Telerik.WebControls.Tab
         If Not (selectedTab Is Nothing) Then
            Select Case selectedTab.ID
               Case "tabPersonal"
                  tempTab = CType(tabWizard.FindControl("tabEducation"), Tab)
                  If Not tempTab.Enabled Then
                     tempTab.Enabled = True
                     multipageWizard.PageViews(1).Controls.Add(LoadControl("Education.ascx"))
                  End If
                  CType(sender, Telerik.WebControls.CallbackButton).ControlsToUpdate.Add(labelPersonal)
                  tabWizard.SelectedIndex = 1
                  multipageWizard.SelectedIndex = 1
               Case "tabEducation"
                  tempTab = CType(tabWizard.FindControl("tabProfessional"), Tab)
                  If Not tempTab.Enabled Then
                     tempTab.Enabled = True
                     multipageWizard.PageViews(2).Controls.Add(LoadControl("Employment.ascx"))
                  End If
                  CType(sender, Telerik.WebControls.CallbackButton).ControlsToUpdate.Add(labelEducation)
                  tabWizard.SelectedIndex = 2
                  multipageWizard.SelectedIndex = 2
               Case "tabProfessional"
                  tempTab = CType(tabWizard.FindControl("tabMotivation"), Tab)
                  If Not tempTab.Enabled Then
                       tempTab.Enabled = True
                       multipageWizard.PageViews(3).FindControl("editorMotivation").Visible = True
                  End If
                  CType(sender, Telerik.WebControls.CallbackButton).ControlsToUpdate.Add(labelEmployment)

                  tabWizard.SelectedIndex = 3
                  multipageWizard.SelectedIndex = 3
               Case "tabMotivation"
                  Dim tTab As Tab
                  For Each tTab In  tabWizard.Tabs
                     tTab.Enabled = False
                  Next tTab
                  CType(sender, Telerik.WebControls.CallbackButton).Style.Add("display", "none")
                  CType(sender, Telerik.WebControls.CallbackButton).ControlsToUpdate.Add(CType(sender, Telerik.WebControls.CallbackButton))
                  CType(sender, Telerik.WebControls.CallbackButton).ControlsToUpdate.Add(labelMotivation)
                  tabWizard.SelectedIndex = - 1
                  multipageWizard.SelectedIndex = 4
            End Select
         End If
      End Sub 'submitCV
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/		Required method for Designer support - do not modify
      '/		the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
   End Class 'DefaultVB 
End Namespace 'Telerik.CallbackIntegarationExamplesVBNET.WizardCV