LineTo

Aus API-Wiki
Version vom 10. September 2008, 15:59 Uhr von Nils Thomsen (Diskussion | Beiträge)

(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Wechseln zu: Navigation, Suche

Die API-Funktion LineTo zeichnet eine Linie vom aktuellen Punkt zum angegebenen Punkt (X,Y).

Declare Function LineTo Lib "gdi32" ( _
                 ByVal hDC As Long, _
                 ByVal X As Long, _
                 ByVal Y As Long) As Long

Parameter:

hDC

Handle eines Device Contextes

X

X-Endpunktkoordinate der Linie

Y

Y-Endpunktkoordinate der Linie

Rückgabe(n):

War die Funktion erfolgreich, so erfolgt eine Übergabe eines Wertes ungleich 0. Sollte die Funktion fehlschlagen, so kann die Fehlerursache mittels GetLastError festgestellt werden.

Beispiel:

Dim lngReturn As Long

lngReturn = LineTo(Picture1.hDC, 100, 100)

Hinweise:

Soll eine Linie von einem neu definierten Punkt (X1 = 50, Y1 = 50) zu einem weiteren Punkt (X2 = 100, Y2 = 100) gezeichnet werden, so muß die aktuelle Position zunächst mit Hilfe des Befehls MoveToEx gesetzt werden. Die Befehlsfolge lautet dann:

Dim lngReturn As Long
Dim tPointApi As PointApi

lngReturn = MoveToEx(Picture1.hDC, 50, 50, tPointApi)
lngReturn = LineTo(Picture1.hDC, 100, 100)

Betriebssystem:

Die API-Funktion LineTo ist unter folgenden Betriebssystemen funktionsfähig:

  • Windows 95 oder später
  • Windows NT 3.1 oder später