NSDFile.NSD_Asynchronization_DispControl メンバ

非同期処理中で値を変更するコントロールの設定。


●コンストラクタ

名前 説明
NSDFile.NSD_Asynchronization_DispControl NSDFile.NSD_Asynchronization_DispControlを初期化します。

●プロパティの一覧

名前 説明
Control コントロール情報リストを返します。

●メソッドの一覧

名前 引数 戻り値 説明
Dispose なし なし リソースの解放を行います。
AddProgressBar ( Object ) Boolean型 プログレスバーを追加します。
( Object , NSD_DispControl_ControlKind ) Boolean型 表示用コントロール種類を指定してプログレスバーを追加します。
AddControl ( Object , NSD_DispControl_Style , NSD_DispControl_TextStyle , String , String , String ) Boolean型 コントロールを追加します。
( Object , NSD_DispControl_Style , NSD_DispControl_TextStyle , String , String , String , NSD_DispControl_ControlKind ) Boolean型 表示用コントロールを指定してコントロールを追加します。

NSD_Asynchronization_DispControlコンストラクタの説明

構文:Public Sub New()

使用法:Dim Cls_NSDADC As New NSD_Asynchronization_DispControl

引数:なし。

使用例:

Public Class Form1
    Dim Cls_NSDADC As New NSDFile.NSD_Asynchronization_DispControl
        :
End Class

NSD_Asynchronization_DispControlプロパティの説明

名前:Control
構文:Public ReadOnly Property Control() As System.Collections.ArrayList

機能:コントロール情報リストを返します。

Set値:なし。

Get値:NSD_DispControlのリストを返します。

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' Loadイベント."
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs _
                           ) Handles Me.Load
        Try
            ' コピーファイル用コントロールを設定.
            ' プログレスバーをセット.
            Cls_CopyFolderDispControl.AddProgressBar(Me.ProgressBar_Copy, _
                                                     NSDFile.NSD_DispControl_ControlKind.SelectCopyFile)
            ' コピーサイズ表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_CopySize, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFile_SourceSizeAndCopySize + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_Kanma + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_UnitChange, _
                                                 "1ファイルのコピー状況", _
                                                 " [", _
                                                 "]", _
                                                 NSDFile.NSD_DispControl_ControlKind.SelectCopyFile)
            ' コピー状況のパーセント表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_Parsent, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFile_Parsent, _
                                                 "", _
                                                 "(", _
                                                 "%)", _
                                                 NSDFile.NSD_DispControl_ControlKind.SelectCopyFile)
            ' フォルダー用コントロールを設定.
            ' プログレスバーをセット.
            Cls_CopyFolderDispControl.AddProgressBar(Me.ProgressBar_Folder, _
                                                     NSDFile.NSD_DispControl_ControlKind.SelectCopyFolder)
            ' コピーサイズ表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_CopyFileCount, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFolder_FileCountAndAllFileCount + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_Kanma, _
                                                 "全体のコピー状況", _
                                                 " [", _
                                                 "]", _
                                                 NSDFile.NSD_DispControl_ControlKind.SelectCopyFolder)
            ' コピー状況のパーセント表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_CopyFileCountParsent, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFolder_Parsent, _
                                                 "", _
                                                 "(", _
                                                 "%)", _
                                                 NSDFile.NSD_DispControl_ControlKind.SelectCopyFolder)
        Catch ex As Exception
        End Try
    End Sub

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button1_Click( ByVal sender As System.Object, _
                               ByVal e As System.EventArgs _
                               ) Handles Button1.Click
        Try
            For Each OneControl As NSDFile.NSD_DispControl In Cls_CopyFolderDispControl.Control
                :
            Next
        Catch ex As Exception
        End Try
    End Sub
End Class

NSD_Asynchronization_DispControlメソッド の説明

名前:Dispose
構文:Public Overridable Sub Dispose() Implements IDisposable.Dispose

機能:リソースの解放を行います。

機能:リソースの解放を行います。

※終了時に必ず呼び出します。

引数:なし。

戻り値:なし。

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:AddProgressBar
機能:プログレスバーを追加します。
@プログレスバーを追加します。

構文:Public Function AddProgressBar( PBar ) As Boolean

引数:

 

名前 引数渡しの方法 説明
PBar Object 値渡し(ByVal) 追加するプログレスバーを渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' Loadイベント."
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs _
                           ) Handles Me.Load
        Try
            ' プログレスバーをセット.
            Cls_CopyFolderDispControl.AddProgressBar(Me.ProgressBar_Copy)
              :
        Catch ex As Exception
        End Try
    End Sub

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

A表示用コントロール種類を指定してプログレスバーを追加します。

構文:Public Function AddProgressBar( PBar , ControlKind ) As Boolean

引数:

 

名前 引数渡しの方法 説明
PBar Object 値渡し(ByVal) 追加するプログレスバーを渡します。
ControlKind NSD_DispControl_ControlKind 値渡し(ByVal) 表示コントロールの種類を渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' Loadイベント."
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs _
                           ) Handles Me.Load
        Try
            ' プログレスバーをセット.
            Cls_CopyFolderDispControl.AddProgressBar(Me.ProgressBar_Copy, _
                                                     NSDFile.NSD_DispControl_ControlKind.SelectCopyFile)
            ' プログレスバーをセット.
            Cls_CopyFolderDispControl.AddProgressBar(Me.ProgressBar_Folder, _
                                                     NSDFile.NSD_DispControl_ControlKind.SelectCopyFolder)
        Catch ex As Exception
        End Try
    End Sub

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class
名前:AddControl
機能:コントロールを追加します。
@コントロールを追加します。

構文:Public Function AddControl( Control , ControlStyle , DispStyle , SourceText , AddBeforeText , AddAfterText ) As Boolean

引数:

 

名前 引数渡しの方法 説明
Control Object 値渡し(ByVal) 追加するコントロールを渡します。
ControlStyle NSD_DispControl_Style 値渡し(ByVal) コントロールのスタイルを渡します。
DispStyle NSD_DispControl_TextStyle 値渡し(ByVal) 表示用コントロールのテキストスタイルを渡します。
SourceText String 値渡し(ByVal) 元のテキストを渡します。
AddBeforeText String 値渡し(ByVal) 値の前に追加する文字列を渡します。
AddAfterText String 値渡し(ByVal) 値の後に追加する文字列を渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' Loadイベント."
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs _
                           ) Handles Me.Load
        Try
            ' 表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_CopySize, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFile_SourceSizeAndCopySize + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_Kanma + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_UnitChange, _
                                                 "1ファイルのコピー状況", _
                                                 " [", _
                                                 "]")
        Catch ex As Exception
        End Try
    End Sub

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

 

A表示用コントロールを指定してコントロールを追加します。

構文:Public Function AddControl( Control , ControlStyle , DispStyle , SourceText , AddBeforeText , AddAfterText , ControlKind ) As Boolean

引数:

 

名前 引数渡しの方法 説明
Control Object 値渡し(ByVal) 追加するコントロールを渡します。
ControlStyle NSD_DispControl_Style 値渡し(ByVal) コントロールのスタイルを渡します。
DispStyle NSD_DispControl_TextStyle 値渡し(ByVal) 表示用コントロールのテキストスタイルを渡します。
SourceText String 値渡し(ByVal) 元のテキストを渡します。
AddBeforeText String 値渡し(ByVal) 値の前に追加する文字列を渡します。
AddAfterText String 値渡し(ByVal) 値の後に追加する文字列を渡します。
ControlKind NSD_DispControl_ControlKind 値渡し(ByVal) 表示コントロールの種類を渡します。

戻り値:Boolean

戻り値の説明:

True:成功 False:失敗

使用例:

Public Class Form1
    Dim Cls_CopyFolderDispControl As New NSDFile.NSD_Asynchronization_DispControl   ' コピーフォルダー用.

    ' Loadイベント."
    Private Sub Form1_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs _
                           ) Handles Me.Load
        Try
            ' コピーサイズ表示用ラベルをセット.
            Cls_CopyFolderDispControl.AddControl(Me.Label_CopySize, _
                                                 NSDFile.NSD_DispControl_Style.ChangeText, _
                                                 NSDFile.NSD_DispControl_TextStyle.CopyFile_SourceSizeAndCopySize + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_Kanma + _
                                                 NSDFile.NSD_DispControl_TextStyle.Plus_UnitChange, _
                                                 "1ファイルのコピー状況", _
                                                 " [", _
                                                 "]", _
                                                 NSDFile.NSD_DispControl_ControlKind.SelectCopyFile)
        Catch ex As Exception
        End Try
    End Sub

    ' FormClosing.
    Private Sub Form1_FormClosing(ByVal sender As Object, _
                                  ByVal e As System.Windows.Forms.FormClosingEventArgs _
                                  ) Handles Me.FormClosing
        Try
            ' コピーフォルダー用コントロールの解放処理.
            If Not (Cls_CopyFolderDispControl Is Nothing) Then
                Cls_CopyFolderDispControl.Dispose()
                Cls_CopyFolderDispControl = Nothing
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.