LineTo-Funktion Diese Funktion zeichnet eine Linie vom aktuellen Punkt eines Devices zu den angegebenen Koordinaten.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  3.349

Deklaration:

Declare Function LineTo Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal x As Long, _
  ByVal y As Long) As Long

Beschreibung:
Diese Funktion zeichnet eine Linie vom aktuellen Punkt eines Devices zu den angegebenen Koordinaten.

Parameter:

hdc	Erwartet den Devicekontext des Gerätes, auf dem die Linie gezeichnet werden soll.
x	Erwartet die horizontale Koordinate, zu der die Linie gezeichnet werden soll.
y	Erwartet die vertikale Koordinate, zu der die Linie gezeichnet werden soll.

Rückgabewert:
Ist die Funktion erfolgreich, so wird der Wert "1" zurückgegeben, andernfalls derWert "0".

Beispiel:

Private Declare Function LineTo Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal x  As Long, _
  ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32.dll" ( _
  ByVal hdc As Long, _
  ByVal x As Long, _
  ByVal y As Long, _
  lpPoint As POITNAPI) As Long
 
Private Type POITNAPI
  x As Long
  y As Long
End Type

' Raute auf die Form zeichnen
Private Sub Form_Paint()
  Dim Retval As Long, Pt As POITNAPI
 
  ' Startpunkt setzen
  Me.Cls
  Me.ScaleMode = vbPixels
  Retval = MoveToEx(Me.hdc, 20, 20, Pt)
 
  ' Linien zeichnen
  Retval = LineTo(Me.hdc, Me.ScaleWidth / 4 * 2, 20)
  Retval = LineTo(Me.hdc, Me.ScaleWidth / 4 * 3, Me.ScaleHeight / 2)
  Retval = LineTo(Me.hdc, Me.ScaleWidth / 4 + 20, Me.ScaleHeight / 2)
  Retval = LineTo(Me.hdc, 20, 20)
End Sub