Rubrik: Grafik & Zeichnen | 22.03.05 |
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: 11.874 |
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