Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

17.5.7 Zu welcher Prozedur gehört eine Zeile?

17.5.8 Ausgabe des kompletten Codes eines Moduls

Um den kompletten Quellcode eines Moduls auszugeben oder ihn in einer Variablen zu speichern, verwenden Sie die Lines-Eigenschaft in Verbindung mit der CountOfLines-Eigenschaft.

Die CountOfLines-Eigenschaft gibt die Anzahl Zeilen des Moduls zurück. Die Lines-Funktion erwartet die Nummern der ersten und der letzten auszugebenden Zeile und gibt den entsprechenden Inhalt des Moduls zurück. Folgendes Beispiel zeigt, wie Sie den Inhalt des aktuellen Codefensters im Testfenster ausgeben:

Debug.Print VBE.ActiveCodePane.CodeModule.Lines(1,VBE.ActiveCodePane.CodeModule.CountOfLines)

Die folgende Funktion zeigt, wie Sie mit der Lines-Funktion und der CountOfLines-Funktion den Inhalt eines per Parameter übergebenen Moduls ermitteln:

Public Function GetCompleteCode(strModule As String)

    Dim objCodeModule As CodeModule
    Dim lngLineCount As Long
    Dim strCompleteCode As String

    Set objCodeModule = _
        VBE.ActiveVBProject.VBComponents.Item(strModule).CodeModule

    With objCodeModule
        'Ermitteln der Zeilenanzahl
        lngLineCount = .CountOfLines
        'Einlesen der Zeilen von der ersten bis zur letzten Zeile
        strCompleteCode = .Lines(1, lngLineCount)
    End With
    GetCompleteCode = strCompleteCode

    Set objCodeModule = Nothing

End Function

Listing 17.6: Diese Funktion ermittelt den kompletten Code eines Moduls

Nächster Abschnitt:

17.5.9 Ermitteln der Position der aktuellen Markierung

© 2006-2008 André Minhorst Alle Rechte vorbehalten.