defaultvb.aspx.vb

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

Imports Telerik.WebControls

Namespace Telerik.UploadExamplesVBNet.RadUploadCustomization

    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 rbNone As System.Web.UI.WebControls.RadioButton
        Protected WithEvents rbDefault As System.Web.UI.WebControls.RadioButton
        Protected WithEvents rbAll As System.Web.UI.WebControls.RadioButton
        Protected WithEvents rbCustom As System.Web.UI.WebControls.RadioButton
        Protected WithEvents cbCheckBoxes As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbRemoveButtons As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbClearButtons As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbAddButton As System.Web.UI.WebControls.CheckBox
        Protected WithEvents cbDeleteSelectedButton 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
        End Sub
        Private Sub btnApplyChanges_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApplyChanges.Click
            If rbCustom.Checked Then
                upload1.ControlObjectsVisibility = ControlObjectsVisibility.None
                If cbCheckBoxes.Checked Then
                    upload1.ControlObjectsVisibility = ControlObjectsVisibility.CheckBoxes
                End If
                If cbRemoveButtons.Checked Then
                    upload1.ControlObjectsVisibility = upload1.ControlObjectsVisibility Or ControlObjectsVisibility.RemoveButtons
                End If
                If cbClearButtons.Checked Then
                    upload1.ControlObjectsVisibility = upload1.ControlObjectsVisibility Or ControlObjectsVisibility.ClearButtons
                End If
                If cbAddButton.Checked Then
                    upload1.ControlObjectsVisibility = upload1.ControlObjectsVisibility Or ControlObjectsVisibility.AddButton
                End If
                If cbDeleteSelectedButton.Checked Then
                    upload1.ControlObjectsVisibility = upload1.ControlObjectsVisibility Or ControlObjectsVisibility.DeleteSelectedButton
                End If
            ElseIf (rbNone.Checked) Then
                upload1.ControlObjectsVisibility = ControlObjectsVisibility.None
            ElseIf (rbDefault.Checked) Then
                upload1.ControlObjectsVisibility = ControlObjectsVisibility.Default
            Else
                upload1.ControlObjectsVisibility = ControlObjectsVisibility.All
            End If
            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 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