Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ob mir hiermit nochmal jemand helfen könnte?
Autor: Martin01
Datum: 01.07.03 22:28
'Wer es auch x möchte: 'PackC.cls 'Läuft seit Wochen bei mir schon sehr schön, ob auch beim keeper???? ' Option Explicit Option Compare Text ' .Add... Eine Datei hinzufügen ' .From... Eine Datei schreiben 'Pack-Datei: 'Version * 'DrivePath * 'FileName * 'Comment01 * 'Comment02 * 'Comment03 * 'Lenght * 'Attribute * <- Datei 'File s <- Inhalt 'Version * 'DrivePath * 'FileName * 'Comment01 * 'Comment02 * 'Comment03 * 'Lenght * 'Attribute * <- Datei 'File s <- Inhalt '... '* = Type-Variable 's = String-Variable Private propPackName As String 'Ja/Nein, Status... Public Enum eToDo 'Msgbox Hier Cancel = vbCancel '2 Schaltfläche Abbrechen gedrückt << Nicht weiter, Abbruch Yes = vbYes '6 Schaltfläche Ja gedrückt << Aktuelle Datei bearbeiten No = vbNo '7 Schaltfläche Nein gedrückt << Aktuelle Datei nicht End Enum 'Nummer Rückgabe von Add und From 'Unsere: Public Enum eReturn Cancel = -vbCancel 'Anwender Abbruch Yes = -vbYes 'Anwender ja No = -vbNo 'Anwender nein VersionError = -200 'Versionnummer Fehler OK = 0 'OK End Enum 'Sonst VB-Laufzeitfehler Private Type FileT Version As Long DrivePath As String FileName As String Comment01 As String Comment02 As String Comment03 As String Lenght As Long Attri As Long ' = VbFileAttribute End Type Private Const TVersion As Long = 563 'Asc("y")+Asc("x")+Asc("c")+asc(" ")+asc("1")+asc(".")+asc(0)+asc(0) Private TFile As FileT Private FFPack As Integer Private ToDo As eToDo Public Event DoAdd(ByRef DrivePath As String, ByRef FileName As String, _ ByRef Comment01 As String, ByRef Comment02 As String, ByRef Comment03 As String, _ ByVal Lenght As Long, ByRef Attri As VbFileAttribute, _ ByRef ToDo As eToDo) Public Event DoFrom(ByRef DrivePath As String, ByRef FileName As String, _ ByRef Comment01 As String, ByRef Comment02 As String, ByRef Comment03 As String, _ ByVal Lenght As Long, ByRef Attri As VbFileAttribute, _ ByRef ToDo As eToDo)

ob mir hiermit nochmal jemand helfen könnte?	965	keeper	04.06.03 17:25
ich habe es jetzt in etwa	646	keeper	07.06.03 11:55
Re: ob mir hiermit nochmal jemand helfen könnte?	279	Martin01	13.06.03 15:34
Re: ob mir hiermit nochmal jemand helfen könnte?	737	keeper	13.06.03 15:52
Re: ob mir hiermit nochmal jemand helfen könnte?	208	Martin01	01.07.03 22:28
Re: ob mir hiermit nochmal jemand helfen könnte?	303	Martin01	01.07.03 22:29
Re: ob mir hiermit nochmal jemand helfen könnte?	252	Martin01	01.07.03 22:29
Re: ob mir hiermit nochmal jemand helfen könnte?	249	Martin01	01.07.03 22:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen