defaultvb.aspx.vb

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

Imports System.IO
Namespace Telerik.UploadExamplesVBNet.Skinning

    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 ddlSkins As System.Web.UI.WebControls.DropDownList
        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
        Protected WithEvents rblEnableFileInputSkinning As RadioButtonList

        '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
                BindSkins()
            End If
        End Sub
        Private Sub ddlSkins_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSkins.SelectedIndexChanged
            upload1.Skin = ddlSkins.SelectedItem.Value
            progressArea1.Skin = ddlSkins.SelectedItem.Value
            BindResults()
        End Sub
        Private Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
            BindResults()
        End Sub
        Private Sub BindSkins()
            Dim skins() As String = Directory.GetDirectories(Server.MapPath("~/RadControls/Upload/Skins"))
            ddlSkins.SelectedIndex = -1
            Dim skin As String
            For Each skin In skins
                Dim li As ListItem = New ListItem(Path.GetFileName(skin))
                If skin = upload1.Skin Then
                    li.Selected = True
                End If
                ddlSkins.Items.Add(li)
            Next


        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

        Private Sub rblEnableFileInputSkinning_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rblEnableFileInputSkinning.SelectedIndexChanged
            upload1.EnableFileInputSkinning = Boolean.Parse(rblEnableFileInputSkinning.SelectedItem.Value)
            BindResults()
        End Sub
    End Class

End Namespace