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.6 Anzahl der Codezeilen einer Prozedur

17.5.7 Zu welcher Prozedur gehört eine Zeile?

Wenn Sie genau wissen möchten, welche Zeile eines Moduls zu welcher Prozedur gehört, probieren Sie einfach einmal folgende Prozedur aus. Die Prozedur erwartet als Parameter den Namen des zu untersuchenden Moduls. Sie durchläuft alle Zeilen des Moduls und gibt zu jeder Zeile die Zeilennummer und den Namen der Prozedur aus, zu der die aktuelle Zeile gehört. Dabei werden sowohl der Deklarationsbereich als auch Property Get-/Let-/Set-Prozeduren außer Acht gelassen. Für die Ausgabe der Property-Prozeduren ersetzen Sie die Konstante vbext_pk_Proc durch die der Property-Prozedur entsprechende Konstante.

Public Sub LinesAndProcedures(strModule As String)
    Dim objCodeModule As CodeModule
    Dim intLines As Integer
    Dim i As Integer

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

    intLines = objCodeModule.CountOfLines

    For i = 1 To intLines
        Debug.Print Format(i, "000"), _
            objCodeModule. ProcOfLine(i, vbext_pk_Proc)
    Next i

End Sub

Listing 17.5: Zeilennummer und Prozedur ausgeben

Nächster Abschnitt:

17.5.8 Ausgabe des kompletten Codes eines Moduls

© 2006-2008 André Minhorst Alle Rechte vorbehalten.