Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Linien Control
Autor: jens52
Datum: 08.11.04 18:02
Hallo Urot, versuchs mal damit. Form mit 2 Buttons. Option Explicit Private Sub Command1_Click() Dim x1 As Integer, x2 As Integer, x As Integer Dim y1 As Integer, y2 As Integer, y As Integer Dim xa As Integer, xe As Integer, ya As Integer, ye As Integer xa = 0 xe = Form1.Width '(y-y1)/(y2-y1) = (x-x1)/(x2-x1) 2Punktgleichungsform ' daraus errechnet sich die Geradengleichung diagonal durch den Command-Button ' jetzt nur noch die neuen Endwerte, die gewünscht sind einsetzen ' Ergebnis muss gespiegelt werden With Command1 x1 = .Left x2 = .Left + .Width y1 = -(.Top) y2 = -(.Top + .Height) End With ya = (xa - x1) / (x2 - x1) * (y2 - y1) + y1 ye = (xe - x1) / (x2 - x1) * (y2 - y1) + y1 Form1.Line (xa, -ya)-(xe, -ye) End Sub Private Sub Command2_Click() Command1.Left = Command1.Left + Int(1000 * Rnd - 500) Command1.Top = Command1.Top + Int(1000 * Rnd - 500) End Sub Private Sub Form_Load() Randomize End Sub Gruss Jens52

Linien Control	514	Urot	04.11.04 20:45
Re: Linien Control	234	travis24	08.11.04 15:05
Re: Linien Control	335	jens52	08.11.04 18:02

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