defaultvb.aspx.vb

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

Namespace Telerik.UploadExamplesVBNet.Localization

    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 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 rblLanguages As System.Web.UI.WebControls.RadioButtonList
        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
            'Put user code to initialize the page here
        End Sub

        Private Sub rblLanguages_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rblLanguages.SelectedIndexChanged
            upload1.Language = rblLanguages.SelectedItem.Value
            progressArea1.Language = rblLanguages.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 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