Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

parallele Linien
Autor: LesPaul
Datum: 14.11.08 16:11
moin, zeichne in einer PictureBox Linien, wobei X1 und Y1 jeweils fest vorgegeben sind, X2 und Y2 werden automatisch an ein Icon angehängt, welches dann per MoveControl beliebig verschoben wird. Dabei wird die Länge der Linie berechnet. Jetzt würde ich gerne zwei parallel laufende Linien mit einem festen Abstand automatisch dazufügen. Kein Problem bei horizontalen und vertikalen Linien, aber bei schrägen? hoffe jemand hat eine Idee, LesPaul Hier der einfache Code Private Sub Kreuz_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MoveControl Kreuz, Button, Shift, X, Y Call LZeichnen End Sub Private Sub LZeichnen() Dim laenge As Single Dim XEnde As Single Dim YEnde As Single Dim x_m, y_m As Double Dim x_p, y_p As Double Linie1.X2 = Kreuz.Left + 240 Linie1.Y2 = Kreuz.Top + 240 XEnde! = Kreuz.Left + 240 YEnde! = Kreuz.Top + 240 x_m = Linie1.X1 x_p = Linie1.X2 y_m = Linie1.Y1 y_p = Linie1.Y2 laenge! = Format(CStr(Sqr((x_p - x_m) ^ 2 + (y_p - y_m) ^ 2)), "###0.00") ... End Sub

parallele Linien	1.320	LesPaul	14.11.08 16:11
Re: parallele Linien	635	LesPaul	15.11.08 16:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen