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.8 Ausgabe des kompletten Codes eines Moduls

17.5.9 Ermitteln der Position der aktuellen Markierung

Weiter oben wurde eine Funktion zum Hinzufügen einer Fehlerbehandlung zur aktuell markierten Prozedur per Mausklick erwähnt. Eine Voraussetzung für die Umsetzung dieser Funktion ist die aktuelle Position der Einfügemarke. Die für diese Ermittlung notwendige Funktion liefert direkt Informationen über den kompletten markierten Bereich. Sollte kein Bereich markiert sein und sich nur die Einfügemarke an einer bestimmten Position befinden, handelt es sich um einen Sonderfall: Die Markierung erstreckt sich dann über 0 Zeichen und 0 Zeilen.

Für die Kennzeichnung des markierten Bereichs sind vier Werte erforderlich, daher wird das Ergebnis nicht als Funktionswert, sondern per Parameter zurückgegeben. Diese müssen Sie vorher als Long-Variablen deklarieren. Die folgende Prozedur zeigt, wie Sie die Parameter der aktuellen Markierung ermitteln (siehe auch Abbildung 17.10).

Public Function GetSelectionParameters()

    Dim objCodePane As CodePane
    Dim lngStartLine As Long
    Dim lngEndLine As Long
    Dim lngStartColumn As Long
    Dim lngEndColumn As Long

    Set objCodePane = VBE.ActiveCodePane

'Lesen der Parameter des markierten Bereichs
    objCodePane. GetSelection lngStartLine, lngStartColumn, _
        lngEndLine, lngEndColumn

    Debug.Print "Erste Zeile: " & lngStartLine
    Debug.Print "Erstes Zeichen: " & lngStartColumn
    Debug.Print "Letzte Zeile: " & lngEndLine
    Debug.Print "Letztes Zeichen: " & lngEndColumn

    Set objCodePane = Nothing

End Function

Listing 17.7: Ausgabe der Parameter des aktuell markierten Bereichs im Codefenster

Abbildung 17.10: Ausgabe der Parameter der aktuellen Markierung im Direktbereich

Nächster Abschnitt:

17.5.10 Ermitteln des Inhalts der aktuellen Markierung

© 2006-2008 André Minhorst Alle Rechte vorbehalten.