Visual Basic Programmer'…arterly (Limited Edition)/Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso/code/ch24code/filevnts.cls

Text File | 1994-09-20 | 1.6 KB | 60 lines

Version 1.0 Class
Attribute VB_Name = "clsFileControl"
Attribute VB_Creatable = False
Attribute VB_Exposed = True
' clsFileControl class -- FILEVENTS.CLS
'
'   Creatable = False
'   Public = True
Option Explicit

Public Sub AfterAddFile(FileName As String)
    MsgBox "AfterAddFile"
End Sub

Public Sub AfterChangeFileName(FileType As String, NewName As String, OldName As String)
    MsgBox "AfterChangeFileName"
End Sub

Public Sub AfterFileClose(FileNames() As String)
    MsgBox "AfterChangeFileName"
End Sub

Public Sub AfterRemoveFile(FileNames() As String)
    MsgBox "AfterRemoveFile"
End Sub

Public Sub AfterWriteFile(FileName As String, Success As Integer)
    MsgBox "AfterWriteFile"
End Sub

Public Sub BeforeLoadFile(FileNames() As String)
    MsgBox "BeforeLoadFile"
End Sub

Public Sub DoGetAddFileName(FileNames() As String, Cancel As Boolean)
    MsgBox "DoGetAddFileName"
End Sub

Public Sub DoGetNewFileName(FileType As Integer, NewName As String, OldName As String, Cancel As Boolean)
    MsgBox "DoGetNewFileName"
End Sub

Public Sub DoGetOpenProjectName(ProjectName As String, NewName As String, OldName As String, Cancel As Boolean)
    MsgBox "DoGetOpenProjectName"
End Sub

Public Sub DoRequestChangeFileName(FileType As Integer, NewName As String, OldName As String, Cancel As Boolean)
    MsgBox "DoRequestChangeFileName"
End Sub

Public Sub RequestChangeFileName(FileType As Integer, NewName As String, OldName As String, Cancel As Boolean)
    MsgBox "RequestChangeFileName"
End Sub

Public Sub RequestWriteFile(FileName As String, Cancel As Boolean)
    MsgBox "RequestWriteFile"
End Sub