defaultvb.aspx.vb

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

Namespace Telerik.UploadExamplesVBNet.TypeValidation

    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 txtExtensions As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtMimeTypes As System.Web.UI.WebControls.TextBox
        Protected WithEvents btnApplyChanges As System.Web.UI.WebControls.Button
        Protected WithEvents upload1 As Telerik.WebControls.RadUpload
        Protected WithEvents progressArea1 As Telerik.WebControls.RadUploadProgressArea
        Protected WithEvents lblNoValidResults As System.Web.UI.WebControls.Label
        Protected WithEvents rptValidResults As System.Web.UI.WebControls.Repeater
        Protected WithEvents lblNoInvalidResults As System.Web.UI.WebControls.Label
        Protected WithEvents rptInvalidResults As System.Web.UI.WebControls.Repeater
        Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button

        '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
            If Not IsPostBack Then
                upload1.AllowedFileExtensions = txtExtensions.Text.Split(",")
                upload1.AllowedMimeTypes = txtMimeTypes.Text.Split(",")
            End If
        End Sub

        Private Sub btnApplyChanges_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApplyChanges.Click
            upload1.AllowedFileExtensions = txtExtensions.Text.Split(",")
            upload1.AllowedMimeTypes = txtMimeTypes.Text.Split(",")
            BindResults()
        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 resultsExist As Boolean = (upload1.UploadedFiles.Count > 0 Or upload1.InvalidFiles.Count > 0) And Not progressArea1.RequestCancelled
            lblNoValidResults.Visible = Not resultsExist
            lblNoInvalidResults.Visible = Not resultsExist
            rptValidResults.Visible = resultsExist
            rptInvalidResults.Visible = resultsExist
            If resultsExist Then
                rptValidResults.DataSource = upload1.UploadedFiles
                rptValidResults.DataBind()
                rptInvalidResults.DataSource = upload1.InvalidFiles
                rptInvalidResults.DataBind()
            End If
        End Sub

    End Class

End Namespace