defaultvb.aspx.vb

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

Namespace Telerik.UploadExamplesVBNet.SizeValidation

    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 txtSize 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
                If isNumber(txtSize.Text) Then
                    upload1.MaxFileSize = Integer.Parse(txtSize.Text)
                End If
            End If
        End Sub


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

        Private Function isNumber(ByVal input As String) As Boolean
            If input.Length = 0 Then
                Return False
            End If

            Dim i As Integer
            For i = 0 To input.Length - 1
                If Not Char.IsNumber(input.Chars(i)) Then
                    Return False
                End If
            Next
            Return True
        End Function

        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


        Private Sub btnApplyChanges_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApplyChanges.Click
            If (isNumber(txtSize.Text)) Then
                upload1.MaxFileSize = Integer.Parse(txtSize.Text)
            Else
                upload1.MaxFileSize = 10240
                txtSize.Text = "10240"
            End If
            BindResults()

        End Sub
    End Class

End Namespace