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.