defaultvb.aspx.vb

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

Imports Telerik.WebControls

Namespace Telerik.UploadExamplesVBNet.OnlineJobEngine

    Public Class DefaultVB
        Inherits Telerik.QuickStart.XhtmlPage

#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub
        Protected WithEvents pnlJobApplicationForm As Panel
        Protected WithEvents txtFirstName As TextBox
        Protected WithEvents firstNameRequiredValidator As RequiredFieldValidator
        Protected WithEvents txtLastName As TextBox
        Protected WithEvents lastNameRequiredValidator As RequiredFieldValidator
        Protected WithEvents txtAddress As TextBox
        Protected WithEvents txtPhone As TextBox
        Protected WithEvents uploadCV As RadUpload
        Protected WithEvents lblNoCV As Label
        Protected WithEvents lblInvalidCV As Label
        Protected WithEvents uploadPhoto As RadUpload
        Protected WithEvents lblNoPhoto As Label
        Protected WithEvents lblInvalidPhoto As Label
        Protected WithEvents uploadReferences As RadUpload
        Protected WithEvents rptInvalidReferences As Repeater
        Protected WithEvents uploadWorkSamples As RadUpload
        Protected WithEvents rptInvalidWorkSamples As Repeater
        Protected WithEvents progressArea1 As RadUploadProgressArea
        Protected WithEvents btnSubmit As Button
        Protected WithEvents lblApplicationSent As Label

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here
        End Sub

        Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
            BindResults()
        End Sub

        Private Sub BindResults()
            Dim isFormValid As Boolean = True
            If uploadCV.UploadedFiles.Count = 0 Then
                lblNoCV.Visible = True
                isFormValid = False
            End If
            If uploadCV.InvalidFiles.Count > 0 Then
                lblInvalidCV.Visible = True
                isFormValid = False
            End If
            If uploadPhoto.InvalidFiles.Count > 0 Then
                lblInvalidPhoto.Visible = True
                isFormValid = False
            End If
            If uploadPhoto.UploadedFiles.Count = 0 Then
                lblNoPhoto.Visible = True
                isFormValid = False
            End If
            If uploadReferences.InvalidFiles.Count > 0 Then
                rptInvalidReferences.Visible = True
                rptInvalidReferences.DataSource = uploadReferences.InvalidFiles
                rptInvalidReferences.DataBind()
                isFormValid = False
            End If
            If uploadWorkSamples.InvalidFiles.Count > 0 Then
                rptInvalidWorkSamples.Visible = True
                rptInvalidWorkSamples.DataSource = uploadWorkSamples.InvalidFiles
                rptInvalidWorkSamples.DataBind()
                isFormValid = False
            End If
            If isFormValid Then
                pnlJobApplicationForm.Visible = False
                lblApplicationSent.Visible = True
            End If
        End Sub

    End Class

End Namespace