NSDFile.NSDFileFolderListEventArgs メンバ
ファイル、フォルダーリストのイベント用。
●コンストラクタ
名前 説明 NSDFile.NSDFileFolderListEventArgs NSDFile.NSDFileFolderListEventArgsを初期化します。
●プロパティの一覧
名前 説明 List ファイルまたはフォルダーリストを返します。 AddPath 追加したパス名を返します。 SearchStop 検索中止の設定をします。
●NSDFileFolderListEventArgsコンストラクタの説明
構文:Public Sub New()
使用法:Dim ClsEvent As New NSDFileFolderListEventArgs( ArrayList , AddPathName )
引数:
名前 型 引数渡しの方法 説明 ArrayList System.Collections.ArrayList 値渡し(ByVal) FileInfoまたはDirectoryInfoのリストを渡します。 AddPathName String 値渡し(ByVal) 追加したパス名を渡します。 使用例:
NSDFile内で使用されるので使用例はありません。
●NSDFolderSizeEventArgsプロパティの説明
名前:List
構文:Public ReadOnly Property List() As System.Collections.ArrayList
機能:ファイルまたはフォルダーリストを返します。
Set値:なし。
Get値:FileInfoまたはDirectoryInfoのリスト。
使用例:
Public Class Form1 ' NSDFileを初期化. Dim Cls_File As New NSDFile ' ファイルリストの取得フラグ True:取得中 False:取得していません. Dim BlnCls_GetFileFolder As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDFileの解放. If Not (Cls_File Is Nothing) Then Cls_File.Dispose() Cls_File = Nothing End If Catch ex As Exception End Try End Sub ' リストを取得します. Private Sub Button_GetFile_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetFile.Click Try Select Case BlnCls_GetFileFolder Case False ' リストを取得します. Me.ListBox1.Items.Clear Me.Label_ListCount.Text = "取得件数:0" ' ファイルリスト取得. BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _ Me.TextBox_SearchPattern.Text, _ True , _ 0, _ 0, _ IO.FileAttributes.System , _ AddressOf GetFileListOneAdd_Callback, _ AddressOf GetFileListOneFolderEnd_Callback, _ AddressOf GetFileListOneAllFolderEnd_Callback, _ AddressOf GetFileListEnd_Callback) If BlnCls_GetFileFolder Then Me.Button_GetFile.Text = "中止" Else MsgBox("リストが取れません。") End If Case True ' リストの取得を中止します. Me.Button_GetFile.Text = "リストの取得" Cls_File.StopGetFileList = True BlnCls_GetFileFolder = False End Select Catch ex As Exception End Try End Sub ' 稼動有無で処理を分けます. Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_GetFile_OK.Click Try Select Case Cls_File.IsGetFileRunning Case NSDFile.NSD_File_Run_Style.NotRunning ' 稼動していません. Case NSDFile.NSD_File_Run_Style.Running ' 稼働中です. End Select Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数. Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try With e.List ' ファイル取得. Dim FI As System.IO.FileInfo = .Item(.Count - 1) Dim Str_FullName As String = FI.FullName ' リストボックスに追加します. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} ) Else Me.AddFileList(Str_FullName) End If : ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます. Dim Str_FileName As String = e.AddPath : End With Catch ex As Exception End Try End Sub ' 1フォルダーのファイル取得後に呼び出されるイベント関数. Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : Catch ex As Exception End Try End Sub ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数. Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数. Private Sub GetFileListEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try ' ボタンのテキストを設定. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} ) Else Me.SetButton_FileList("リストの取得") End If MsgBox("検索が終了しました。") BlnCls_GetFileFolder = False Catch ex As Exception End Try End Sub ' ファイル、フォルダー取得用リストボックスに追加します. Public Sub AddFileList(ByVal StrVal_FileName As String) Try Me.ListBox1.Items.Add(StrVal_FileName) Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count Catch ex As Exception End Try End Sub ' リスト取得用ボタンのテキスト設定. Public Sub SetButton_FileList(ByVal StrVal_Text As String) Try Me.Button_GetFile.Text = StrVal_Text Catch ex As Exception End Try End Sub End Class
名前:AddPath
構文:Public ReadOnly Property AddPath() As String 機能:追加したパス名を返します。
Set値:なし。
Get値:追加したパス名。
使用例:
Public Class Form1 ' NSDFileを初期化. Dim Cls_File As New NSDFile ' ファイルリストの取得フラグ True:取得中 False:取得していません. Dim BlnCls_GetFileFolder As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDFileの解放. If Not (Cls_File Is Nothing) Then Cls_File.Dispose() Cls_File = Nothing End If Catch ex As Exception End Try End Sub ' リストを取得します. Private Sub Button_GetFile_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetFile.Click Try Select Case BlnCls_GetFileFolder Case False ' リストを取得します. Me.ListBox1.Items.Clear Me.Label_ListCount.Text = "取得件数:0" ' ファイルリスト取得. BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _ Me.TextBox_SearchPattern.Text, _ True , _ 0, _ 0, _ IO.FileAttributes.System , _ AddressOf GetFileListOneAdd_Callback, _ AddressOf GetFileListOneFolderEnd_Callback, _ AddressOf GetFileListOneAllFolderEnd_Callback, _ AddressOf GetFileListEnd_Callback) If BlnCls_GetFileFolder Then Me.Button_GetFile.Text = "中止" Else MsgBox("リストが取れません。") End If Case True ' リストの取得を中止します. Me.Button_GetFile.Text = "リストの取得" Cls_File.StopGetFileList = True BlnCls_GetFileFolder = False End Select Catch ex As Exception End Try End Sub ' 稼動有無で処理を分けます. Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_GetFile_OK.Click Try Select Case Cls_File.IsGetFileRunning Case NSDFile.NSD_File_Run_Style.NotRunning ' 稼動していません. Case NSDFile.NSD_File_Run_Style.Running ' 稼働中です. End Select Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数. Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try With e.List ' ファイル取得. Dim FI As System.IO.FileInfo = .Item(.Count - 1) Dim Str_FullName As String = FI.FullName ' リストボックスに追加します. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} ) Else Me.AddFileList(Str_FullName) End If : ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます. Dim Str_FileName As String = e.AddPath : End With Catch ex As Exception End Try End Sub ' 1フォルダーのファイル取得後に呼び出されるイベント関数. Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : Catch ex As Exception End Try End Sub ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数. Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数. Private Sub GetFileListEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try ' ボタンのテキストを設定. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} ) Else Me.SetButton_FileList("リストの取得") End If MsgBox("検索が終了しました。") BlnCls_GetFileFolder = False Catch ex As Exception End Try End Sub ' ファイル、フォルダー取得用リストボックスに追加します. Public Sub AddFileList(ByVal StrVal_FileName As String) Try Me.ListBox1.Items.Add(StrVal_FileName) Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count Catch ex As Exception End Try End Sub ' リスト取得用ボタンのテキスト設定. Public Sub SetButton_FileList(ByVal StrVal_Text As String) Try Me.Button_GetFile.Text = StrVal_Text Catch ex As Exception End Try End Sub End Class
名前:SearchStop
構文:Public Property SearchStop() As Boolean 機能:検索中止の設定をします。
Set値:True :検索を中止します。
False:検索を中止しません。
Get値:Set値を参照。
使用例:
Public Class Form1 ' NSDFileを初期化. Dim Cls_File As New NSDFile ' ファイルリストの取得フラグ True:取得中 False:取得していません. Dim BlnCls_GetFileFolder As Boolean = False ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' NSDFileの解放. If Not (Cls_File Is Nothing) Then Cls_File.Dispose() Cls_File = Nothing End If Catch ex As Exception End Try End Sub ' リストを取得します. Private Sub Button_GetFile_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_GetFile.Click Try Select Case BlnCls_GetFileFolder Case False ' リストを取得します. Me.ListBox1.Items.Clear Me.Label_ListCount.Text = "取得件数:0" ' ファイルリスト取得. BlnCls_GetFileFolder = Cls_File.GetFileList(Me.TextBox1.Text, _ Me.TextBox_SearchPattern.Text, _ True , _ 0, _ 0, _ IO.FileAttributes.System , _ AddressOf GetFileListOneAdd_Callback, _ AddressOf GetFileListOneFolderEnd_Callback, _ AddressOf GetFileListOneAllFolderEnd_Callback, _ AddressOf GetFileListEnd_Callback) If BlnCls_GetFileFolder Then Me.Button_GetFile.Text = "中止" Else MsgBox("リストが取れません。") End If Case True ' リストの取得を中止します. Me.Button_GetFile.Text = "リストの取得" Cls_File.StopGetFileList = True BlnCls_GetFileFolder = False End Select Catch ex As Exception End Try End Sub ' 稼動有無で処理を分けます. Private Sub Button_GetFile_OK_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button_GetFile_OK.Click Try Select Case Cls_File.IsGetFileRunning Case NSDFile.NSD_File_Run_Style.NotRunning ' 稼動していません. Case NSDFile.NSD_File_Run_Style.Running ' 稼働中です. End Select Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーを1件取得した時に呼び出されるイベント関数. Private Sub GetFileListOneAdd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try With e.List ' ファイル取得. Dim FI As System.IO.FileInfo = .Item(.Count - 1) Dim Str_FullName As String = FI.FullName ' リストボックスに追加します. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf AddFileList), New Object() {Str_FullName} ) Else Me.AddFileList(Str_FullName) End If : ' ファイルのフルパス名だけ必要な場合は、AddPathで取得できます. Dim Str_FileName As String = e.AddPath : End With Catch ex As Exception End Try End Sub ' 1フォルダーのファイル取得後に呼び出されるイベント関数. Private Sub GetFileListOneFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : If (・・・・) Then : e.SearchStop = True : Else : End If Catch ex As Exception End Try End Sub ' 1フォルダーのフォルダー取得後に呼び出されるイベント関数. Private Sub GetFileListOneAllFolderEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try : Catch ex As Exception End Try End Sub ' ファイルまたはフォルダーリスト取得終了時に呼び出されるイベント関数. Private Sub GetFileListEnd_Callback(ByVal sender As Object, _ ByVal e As NSDFile.NSDFileFolderListEventArgs) Try ' ボタンのテキストを設定. If Me.InvokeRequired Then Me.Invoke(New SetName_Invoke(AddressOf SetButton_FileList), New Object() {"リストの取得"} ) Else Me.SetButton_FileList("リストの取得") End If MsgBox("検索が終了しました。") BlnCls_GetFileFolder = False Catch ex As Exception End Try End Sub ' ファイル、フォルダー取得用リストボックスに追加します. Public Sub AddFileList(ByVal StrVal_FileName As String) Try Me.ListBox1.Items.Add(StrVal_FileName) Me.Label_ListCount.Text = "取得件数:" & Me.ListBox1.Items.Count Catch ex As Exception End Try End Sub ' リスト取得用ボタンのテキスト設定. Public Sub SetButton_FileList(ByVal StrVal_Text As String) Try Me.Button_GetFile.Text = StrVal_Text Catch ex As Exception End Try End Sub End Class
Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.