Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Visual Basic Schleife
Autor: OldMan
Datum: 02.02.06 08:27
Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub for x = 0 to 9 if x <> 0 then ' wenn die schleife gerade begonnen hat ' das element 0 - 1 (-1) gibt es nicht Shape1(x - 1).BackColor = "Schwarz" End if Shape1(x).BackColor = "Rot" delay 1 next x ' um zu verhindern dass das letzte element Rot bleibt shape1(9).BackColor = "Schwarz" Damit wird nicht sofort alles Schwarz.

Visual Basic Schleife	1.037	mimi	31.01.06 19:40
Re: Visual Basic Schleife	657	OldMan	31.01.06 20:34
Re: Visual Basic Schleife	609	mimi	01.02.06 13:29
Re: Visual Basic Schleife	722	OldMan	01.02.06 13:56
Re: Visual Basic Schleife	591	mimi	01.02.06 14:01
Re: Visual Basic Schleife	591	mimi	01.02.06 16:36
Re: Visual Basic Schleife	649	spike24	01.02.06 23:58
Re: Visual Basic Schleife	648	OldMan	02.02.06 08:27
Re: Visual Basic Schleife	627	spike24	02.02.06 09:41
Re: Visual Basic Schleife	649	mimi	02.02.06 14:23

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