Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Kreis öffnen
Autor: Manfred44
Datum: 15.12.16 13:24
Ich bekomme leider keinen öffnenden Kreis hin. Woran könnte es liegen? Danke im Voraus für eure Bemühungen... Option Explicit Dim z% ' Zustandsvariable Dim x1!, y1!, x2!, y2! ' Eck-Koordinaten Dim x0!, y0! ' Speichervariable Dim X, Y Private Sub Form_Load() z = 1 ' Zustand 1 = Startzustand Picture1.AutoRedraw = True Picture1.DrawMode = 10 End Sub Private Sub Picture1_MouseDown(Button%, Shift%, X!, Y!) If z = 1 Then x1 = X: y1 = Y ' initialisieren x2 = X: y2 = Y Picture1.Circle (x1, y1)-(x2, y2) x0 = x1: y0 = y1 ' Merken l.o. Ecke End If z = 2 ' weiter mit Zustand 2 End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If z = 2 Then x1 = X: y1 = Y x2 = x0: y2 = y0 Picture1.Circle (x1, y1)-(x2, y2) x1 = X: y1 = Y x2 = X: y2 = Y Picture1.Circle (x1, y1)-(x2, y2) x0 = x2: y0 = y2 End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, As Single, Y As Single) z = 1 ' zurück zum Zustand 1 End Sub

Kreis öffnen	2.114	Manfred44	15.12.16 13:24
Re: Kreis öffnen	1.160	Zardoz	15.12.16 15:57
Re: Kreis öffnen	998	Manfred44	16.12.16 18:03
Re: Kreis öffnen	1.028	VB3-Guru	25.12.16 14:04

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