defaultvb.aspx.vb

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

Imports System.IO
Namespace Telerik.UploadExamplesVBNet.ProgressAreaCustomization

    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 cbDisplayTotalProgressBar As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayTotalProgressData As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayCurrentFileName As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayFileCountProgressBar As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayFileCountProgressData As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayTimeData As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDisplayCancelButton As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbEnableAbsolutePositioning As System.Web.UI.WebControls.CheckBox
        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 lblNoResults As System.Web.UI.WebControls.Label
        Protected WithEvents rptReqults 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 Page.IsPostBack Then
                InitCheckboxes()
            End If
        End Sub
        Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
            BindResults()
        End Sub
        Private Sub btnApplyChanges_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApplyChanges.Click
            ApplySettings()
        End Sub
        Private Sub InitCheckboxes()
            cbDisplayTotalProgressBar.Checked = progressArea1.DisplayTotalProgressBar
            cbDisplayTotalProgressData.Checked = progressArea1.DisplayTotalProgressData
            cbDisplayCurrentFileName.Checked = progressArea1.DisplayCurrentFileName
            cbDisplayFileCountProgressBar.Checked = progressArea1.DisplayFileCountProgressBar
            cbDisplayFileCountProgressData.Checked = progressArea1.DisplayFileCountProgressData
            cbDisplayTimeData.Checked = progressArea1.DisplayTimeData
            cbDisplayCancelButton.Checked = progressArea1.DisplayCancelButton
            cbEnableAbsolutePositioning.Checked = progressArea1.EnableAbsolutePositioning
        End Sub
        Private Sub ApplySettings()
            progressArea1.DisplayTotalProgressBar = cbDisplayTotalProgressBar.Checked
            progressArea1.DisplayTotalProgressData = cbDisplayTotalProgressData.Checked
            progressArea1.DisplayCurrentFileName = cbDisplayCurrentFileName.Checked
            progressArea1.DisplayFileCountProgressBar = cbDisplayFileCountProgressBar.Checked
            progressArea1.DisplayFileCountProgressData = cbDisplayFileCountProgressData.Checked
            progressArea1.DisplayTimeData = cbDisplayTimeData.Checked
            progressArea1.DisplayCancelButton = cbDisplayCancelButton.Checked
            progressArea1.EnableAbsolutePositioning = cbEnableAbsolutePositioning.Checked
        End Sub
        Private Sub BindResults()
            Dim resultsExist As Boolean = upload1.UploadedFiles.Count > 0 And Not progressArea1.RequestCancelled
            lblNoResults.Visible = Not resultsExist
            rptReqults.Visible = resultsExist
            If resultsExist Then
                rptReqults.DataSource = upload1.UploadedFiles
                rptReqults.DataBind()
            End If
        End Sub
    End Class

End Namespace