DevExpress の ASPxUploadControl での自動アップロード設定

DevExpress の ASPxUploadControl での自動アップロード設定のサンプルです。

現状の画面デザインはこのようになっています。
ファイルをアップロードするためには、ファイル選択後にアップロードボタンをクリックする必要があります。
今回は、ファイル選択後すると自動でアップロードするようにします。

↓

＜自動アップロード設定＞

「AutoStartUpload=”True”」を設定します。

【サンプルプログラム】

<form id="form1" runat="server">
<div>
    <dx:ASPxUploadControl ID="ASPxUploadControl1" runat="server" UploadMode="Auto" 
        Width="400px" AddUploadButtonsHorizontalPosition="Right" 
        ShowProgressPanel="True" ShowUploadButton="True" Theme="RedWine" 
        NullText="ファイル未選択" AutoStartUpload="True">
        <ValidationSettings AllowedFileExtensions=".xlsx, .txt" MaxFileSize="6000000" 
            NotAllowedFileExtensionErrorText="アップロード対象ファイルは「エクセル、テキスト」ファイルです。" 
            MaxFileSizeErrorText="アップロード対象ファイルのファイルサイズの上限は {0} バイトです。">
        </ValidationSettings>
        <BrowseButton Text="ファイル選択">
        </BrowseButton>
        <RemoveButton Text="取り消し">
        </RemoveButton>
        <UploadButton Text="申請">
        </UploadButton>
        <AdvancedModeSettings EnableFileList="True" EnableMultiSelect="True">
        </AdvancedModeSettings>
    </dx:ASPxUploadControl>
</div>
</form>

<div>

<dx:ASPxUploadControl ID="ASPxUploadControl1" runat="server" UploadMode="Auto"

Width="400px" AddUploadButtonsHorizontalPosition="Right"

ShowProgressPanel="True" ShowUploadButton="True" Theme="RedWine"

NullText="ファイル未選択" AutoStartUpload="True">

<ValidationSettings AllowedFileExtensions=".xlsx, .txt" MaxFileSize="6000000"

NotAllowedFileExtensionErrorText="アップロード対象ファイルは「エクセル、テキスト」ファイルです。"

MaxFileSizeErrorText="アップロード対象ファイルのファイルサイズの上限は {0} バイトです。">

</ValidationSettings>

</BrowseButton>

</RemoveButton>

</UploadButton>

</AdvancedModeSettings>

</dx:ASPxUploadControl>

</div>

</form>

【サンプルプログラム（VB.Net）】

Private Sub ASPxUploadControl1_FileUploadComplete(sender As Object, e As DevExpress.Web.FileUploadCompleteEventArgs) Handles ASPxUploadControl1.FileUploadComplete
    '保存パス
    Dim mySavePath As String = "D:¥10_PG¥99_サンプル¥VB.net¥2010¥DevExpress¥ASPxUploadControl¥02_Data_Out"

    'アップロードファイル名取得
    Dim myUploadedFile As String = e.UploadedFile.FileName
    '保存ファイルパス取得
    Dim mySaveFilePath As String = IO.Path.Combine(mySavePath, myUploadedFile)

    'ファイル保存
    e.UploadedFile.SaveAs(mySaveFilePath)
End Sub

Private Sub ASPxUploadControl1_FileUploadComplete(sender As Object, e As DevExpress.Web.FileUploadCompleteEventArgs) Handles ASPxUploadControl1.FileUploadComplete

'保存パス

Dim mySavePath As String = "D:¥10_PG¥99_サンプル¥VB.net¥2010¥DevExpress¥ASPxUploadControl¥02_Data_Out"

'アップロードファイル名取得

Dim myUploadedFile As String = e.UploadedFile.FileName

'保存ファイルパス取得

Dim mySaveFilePath As String = IO.Path.Combine(mySavePath, myUploadedFile)

'ファイル保存

e.UploadedFile.SaveAs(mySaveFilePath)

End Sub

それでは、実行して動作確認を行います。

↓

※ファイル選択後、自動でファイルアップロード

無事にファイルアップロードの自動アップロードが設定できました。

MENU

最近の投稿

人気記事

MENU

DevExpress の ASPxUploadControl での自動アップロード設定

関連記事はこちら:

最近の投稿

人気記事