NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs メンバ
フォルダー削除のイベント用。
●コンストラクタ
名前 説明 NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgsを初期化します。
●プロパティの一覧
名前 説明 DeleteName 削除パス名を返します。 EndStyle 終了スタイルを返します。 DeleteStop 削除中止の設定をします。
●NSDDeleteFolderEventArgsコンストラクタの説明
構文:Public Sub New()
使用法:Dim ClsEvent As New NSDDeleteFolderEventArgs( DeleteName , EndStyle )
引数:
名前 型 引数渡しの方法 説明 DeleteName String 値渡し(ByVal) 削除パス名を渡します。 EndStyle NSDDeleteFolder_EndStyle 値渡し(ByVal) 終了スタイルを渡します。 使用例:
NSDFile.NSDDeleteFolder内で使用されるので使用例はありません。
●NSDDeleteFolderEventArgsプロパティの説明
名前:DeleteName
構文:Public ReadOnly Property DeleteName() As String
機能:削除パス名を返します。
Set値:なし。
Get値:削除パス名。
使用例:
Public Class Form1 ' フォルダー削除用. Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing ' フォルダー削除フラグ True:削除中 False:削除していません. Dim BlnCls_DeleteFolder As Boolean = False ' フォルダー削除用変数. Dim IntCls_DeleteFolder_FileCount As Integer = 0 ' 削除ファイル数. Dim IntCls_DeleteFolder_FolderCount As Integer = 0 ' 削除フォルダー数. ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' フォルダー削除の解放. If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.Dispose() Cls_DeleteFolder = Nothing End If Catch ex As Exception End Try End Sub ' フォルダー削除." Private Sub Button_Delete_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_Delete.Click Try Select Case BlnCls_DeleteFolder Case False ' 削除を行います. If MsgBox("フォルダーを削除します。" & vbCrLf _ & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then BlnCls_DeleteFolder = True Me.Label_FolderDelete1_1.Text = 0 Me.Label_FolderDelete2_1.Text = 0 IntCls_DeleteFolder_FileCount = 0 ' 削除ファイル数. IntCls_DeleteFolder_FolderCount = 0 ' 削除フォルダー数. Me.Button_Delete.Text = "中止" If (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder = New NSDFile.NSDDeleteFolder End If Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _ AddressOf EventVal_DeleteFolderOneFileCallback, _ AddressOf EventVal_DeleteFolderOneFolderCallback, _ AddressOf EventVal_DeleteFolderEndCallback) End If Case Else ' 削除を中止します. Me.Button_Delete.Text = "フォルダー削除" If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.StopDeleteFolder = True End If BlnCls_DeleteFolder = False End Select Catch ex As Exception End Try End Sub ' 1ファイル削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除ファイル数をカウントします. IntCls_DeleteFolder_FileCount += 1 Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0") : Dim Str_DeleteName As String = e.DeleteName : If (・・・・) Then e.DeleteStop = True End If Catch ex As Exception End Try End Sub ' 1フォルダー削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除フォルダー数をカウントします. IntCls_DeleteFolder_FolderCount += 1 Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0") Catch ex As Exception End Try End Sub ' フォルダー削除終了時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle)) Catch ex As Exception End Try End Sub End Class
名前:EndStyle
構文:Public ReadOnly Property EndStyle() As NSDDeleteFolder_EndStyle 機能:終了スタイルを返します。
Set値:なし。
Get値:終了スタイル(NSDDeleteFolder_EndStyle)。
使用例:
Public Class Form1 ' フォルダー削除用. Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing ' フォルダー削除フラグ True:削除中 False:削除していません. Dim BlnCls_DeleteFolder As Boolean = False ' フォルダー削除用変数. Dim IntCls_DeleteFolder_FileCount As Integer = 0 ' 削除ファイル数. Dim IntCls_DeleteFolder_FolderCount As Integer = 0 ' 削除フォルダー数. ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' フォルダー削除の解放. If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.Dispose() Cls_DeleteFolder = Nothing End If Catch ex As Exception End Try End Sub ' フォルダー削除." Private Sub Button_Delete_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_Delete.Click Try Select Case BlnCls_DeleteFolder Case False ' 削除を行います. If MsgBox("フォルダーを削除します。" & vbCrLf _ & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then BlnCls_DeleteFolder = True Me.Label_FolderDelete1_1.Text = 0 Me.Label_FolderDelete2_1.Text = 0 IntCls_DeleteFolder_FileCount = 0 ' 削除ファイル数. IntCls_DeleteFolder_FolderCount = 0 ' 削除フォルダー数. Me.Button_Delete.Text = "中止" If (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder = New NSDFile.NSDDeleteFolder End If Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _ AddressOf EventVal_DeleteFolderOneFileCallback, _ AddressOf EventVal_DeleteFolderOneFolderCallback, _ AddressOf EventVal_DeleteFolderEndCallback) End If Case Else ' 削除を中止します. Me.Button_Delete.Text = "フォルダー削除" If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.StopDeleteFolder = True End If BlnCls_DeleteFolder = False End Select Catch ex As Exception End Try End Sub ' 1ファイル削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除ファイル数をカウントします. IntCls_DeleteFolder_FileCount += 1 Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0") Catch ex As Exception End Try End Sub ' 1フォルダー削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除フォルダー数をカウントします. IntCls_DeleteFolder_FolderCount += 1 Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0") Catch ex As Exception End Try End Sub ' フォルダー削除終了時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle)) Catch ex As Exception End Try End Sub End Class
名前:DeleteStop
構文:Public Property DeleteStop() As Boolean 機能:削除中止の設定をします。
Set値:True :中止します。
False:中止しません。
Get値:Set値を参照。
使用例:
Public Class Form1 ' フォルダー削除用. Dim Cls_DeleteFolder As NSDFile.NSDDeleteFolder = Nothing ' フォルダー削除フラグ True:削除中 False:削除していません. Dim BlnCls_DeleteFolder As Boolean = False ' フォルダー削除用変数. Dim IntCls_DeleteFolder_FileCount As Integer = 0 ' 削除ファイル数. Dim IntCls_DeleteFolder_FolderCount As Integer = 0 ' 削除フォルダー数. ' FormClosing. Private Sub Form1_FormClosing(ByVal sender As Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs _ ) Handles Me.FormClosing Try ' フォルダー削除の解放. If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.Dispose() Cls_DeleteFolder = Nothing End If Catch ex As Exception End Try End Sub ' フォルダー削除." Private Sub Button_Delete_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs _ ) Handles Button_Delete.Click Try Select Case BlnCls_DeleteFolder Case False ' 削除を行います. If MsgBox("フォルダーを削除します。" & vbCrLf _ & "よろしいですか?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then BlnCls_DeleteFolder = True Me.Label_FolderDelete1_1.Text = 0 Me.Label_FolderDelete2_1.Text = 0 IntCls_DeleteFolder_FileCount = 0 ' 削除ファイル数. IntCls_DeleteFolder_FolderCount = 0 ' 削除フォルダー数. Me.Button_Delete.Text = "中止" If (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder = New NSDFile.NSDDeleteFolder End If Cls_DeleteFolder.DeleteFolder(Me.TextBox_Delete.Text, _ AddressOf EventVal_DeleteFolderOneFileCallback, _ AddressOf EventVal_DeleteFolderOneFolderCallback, _ AddressOf EventVal_DeleteFolderEndCallback) End If Case Else ' 削除を中止します. Me.Button_Delete.Text = "フォルダー削除" If Not (Cls_DeleteFolder Is Nothing) Then Cls_DeleteFolder.StopDeleteFolder = True End If BlnCls_DeleteFolder = False End Select Catch ex As Exception End Try End Sub ' 1ファイル削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFileCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除ファイル数をカウントします. IntCls_DeleteFolder_FileCount += 1 Dim Str_FileCount As String = Format(IntCls_DeleteFolder_FileCount, "###,##0") : Dim Str_DeleteName As String = e.DeleteName : If (・・・・) Then e.DeleteStop = True End If Catch ex As Exception End Try End Sub ' 1フォルダー削除時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderOneFolderCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try ' 削除フォルダー数をカウントします. IntCls_DeleteFolder_FolderCount += 1 Dim Str_FolderCount As String = Format(IntCls_DeleteFolder_FolderCount, "###,##0") Catch ex As Exception End Try End Sub ' フォルダー削除終了時に呼び出されるイベント関数. Private Sub EventVal_DeleteFolderEndCallback( ByVal sender As Object, _ ByVal e As NSDFile.NSDDeleteFolder.NSDDeleteFolderEventArgs) Try MsgBox(Cls_DeleteFolder.GetEndStyleMsg(e.EndStyle)) Catch ex As Exception End Try End Sub End Class
Copyright (C) 2010-2012 Nihon System Developer Corp. All Rights Reserved.