Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

@ MADMAX ----> Habs Hingekriegt !
Autor: Boris
Datum: 29.05.02 15:37
So gehts: Sub Command1_Click() Randomize Timer For x = 1 To 800 'Das ist die Auflösung!!! For y = 1 To 550 'Das ist die Auflösung!!! Picture1.PSet (x, y), Int(Rnd * 16700000 + 1) 'Das sind die Farben! Next DoEvents Next End Sub Private Sub Command2_Click() End End Sub fg boris

@ MADMAX ----> Habs Hingekriegt !	73	Boris	29.05.02 15:37
selbe ergebnis nur ca 100 mal schneller	59	Piekarek	29.05.02 20:19

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