Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

und die die es mal werden wollen!
Autor: Ronny42DAch
Datum: 08.01.02 19:42
Ich schreib das eben mal auch wenn das nicht unbedingt das ist was man sonnst so schreibt kenne Ich noch von Meinem Schneider Euro PC und Schulinformatik erste Variante klappt Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If keycode = vbKeyA Then CurrentX = a 'denke mal ist sowas wie "LocalPrint" CurrentY = b Print " " a = a + 1 CurrentX = a CurrentY = b Print "*" End If End Sub die ZwieteVariante ist nicht unbedingt nötig der EuroPC hatte aber bloss ca. 10MHz und zeichnet das löschen und schreiben erst nach der Berechnung was aber nicht heisst das das heute nicht sinnvoll ist! zweit Variante etwas sauberer Bildaufbau Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If keycode = vbKeyA Then Dim lasta as Long Dim lastb as Long lasta=a lastb=b a = a + 1 CurrentX = lasta CurrentY = lastb Print " " CurrentX = a CurrentY = b Print "*" End If End Sub MFG Ronny

alle ihr profis	94	Mr nichtswisser	08.01.02 16:48
und die die es mal werden wollen!	71	Ronny42DAch	08.01.02 19:42
Re: alle ihr profis	52	Mr nichtswisser	10.01.02 14:09
Re: alle ihr profis	49	Mr nichtswisser	10.01.02 17:25

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