In den beiden ersten Teilen unseres Workshops haben wir zwei universelle Routinen erstellt: eine Datensicherungsfunktion, welche alle Dateien und Ordner eines bestimmten Verzeichnisses auf ein auswählbares Speichermedium sichert und eine Wiederherstellungsfunktion, um die Daten der Datensicherung bei einem evtl. Datenverlust wiederherstellen zu können. Ziel des Workshops soll es jedoch sein, eine wirklich universelle Schnittstelle zwischen der Backup/Restore-Funktion und Ihren eigenen Anwendungen zu schaffen - am besten eignet sich hierfür eine ActiveX-DLL Komponente. Das Erstellen dieser ActiveX-DLL ist nun Aufgabe des dritten Teils unseres Workshops. Neues Projekt: ActiveX-DLL
Schnittstelle der ActiveX-DLL zur Aussenwelt Option Explicit Dim mDatenPath As String ' Daten-VerzeichnisDie Variable mDatenPath benötigen wir für die Übergabe an die Prozedur MakeBackup. Sie enthält das Verzeichnis der zu sichernenden Dateien und Ordner. Über die nachfolgenden Property (Eigenschaften) - Prozeduren kann das Datenverzeichnis aus Ihrer Anwendung heraus gesetzt bzw. ermittelt werden. Public Property Get DatenPath() As String DatenPath = mDatenPath End Property Public Property Let DatenPath(ByVal vNewValue As String) mDatenPath = vNewValue End PropertyNeben dem Datenverzeichnis muß der ActiveX-DLL noch mitgeteilt werden, in welcher Datei die Einstellungen der Laufwerksvorgaben gespeichert werden sollen. Auch dies realisieren wir wieder mit Property-Prozeduren. Public Property Get IniFile() As String IniFile = Module1.IniFile End Property Public Property Let IniFile(ByVal vNewValue As String) Module1.IniFile = vNewValue End PropertyUm die Datensicherungs- und Wiederherstellungsfunktion aus Ihrer Anwendung heraus aufrufen zu können, benötigen wir zwei öffentlichen Prozeduraufrufe, welche als Schnittstelle dienen. Public Sub MakeBackup(Optional ByVal SubOrdner As String = "") ' Backup erstellen Load BackupBox BackupBox.InitMain DatenPath, SubOrdner BackupBox.Show 1 Unload BackupBox End SubIn der Prozedur MakeBackup wird die Datensicherungsroutine aufgerufen, welche wir im ersten Teil dieses Workshops erstellt haben. Soll nicht das gesamte Datenverzeichnis, sondern nur ein darin einzelnes enthaltene Unterverzeichnis gesichert werden, so kann dies über den Parameter SubOrdner angebenen werden. Public Sub MakeRestore() ' Daten wiederherstellen Load RestoreBox RestoreBox.Tag = DatenPath RestoreBox.Show 1 Unload RestoreBox End SubIn der Prozedur MakeRestore wird die Wiederherstellungsroutine aufgerufen, welche wir im zweiten Teil dieses Workshops erstellt haben. Erstellen der ActiveX-DLL Dim cBackup As New cBackup cBackup.DatenPath = Pfad cBackup.IniFile = IniFile cBackup.MakeBackup SubOrdner Set cBackup = NothingAufruf der Wiederherstellungsroutine aus Ihrer Anwendung heraus Die Wiederherstellungsroutine wird folgendermaßen aufgerufen: Dim cBackup As New cBackup cBackup.DatenPath = Pfad cBackup.IniFile = IniFile cBackup.MakeRestore Set cBackup = NothingSo das war der dritte und letzte Teil unseres Workshops. Sie sollten jetzt in der Lage sein eine eigene Datensicherungs- und Wiederherstellungsfunktion in Ihre Anwendungen zu integrieren. Dieser Workshop wurde bereits 12.494 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
|||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |