Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Linien
Autor: Matthias
Datum: 18.09.01 11:37
Hi Eugen Erstelle ein neues Projekt, zeichen eine Linie und setzte folgende Eigenschften der Linie: visible=false index=0 Und füge diesen Code hinzu: Public x2, y2, i Private Sub Form_Click() Load line1(i) line1(i).X1 = x2 line1(i).x2 = x2 line1(i).Y1 = y2 line1(i).y2 = y2 line1(i).Visible = True i = i + 1 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) y2 = Y x2 = X line1(i - 1).x2 = X line1(i - 1).y2 = Y End Sub Private Sub Form_Load() i = 1 End Sub Matthias

Linien	51	Eugen	14.09.01 20:16
Re: Linien	11	Matthias	18.09.01 11:37
Re: Linien	11	Eugen	18.09.01 13:24
Re: Linien	10	Matthias	18.09.01 14:01
Re: Linien	10	Eugen	18.09.01 15:16
Re: Linien	15	Matthias	18.09.01 15:22
Re: Linien	13	Eugen	18.09.01 15:27

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