Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Flikern ausschalten
Autor: Ronny42DAch
Datum: 22.10.01 12:48
ich habe folgenden Code im Timer Die Animation sieht nicht schlecht aus blos ist ab und zu son Zeilenflickern störend. Wie kann ich das ausschalten? Private Sub Timer1_Timer() If Ambient.UserMode = False Then GoTo ende If ImgErdeshow.Picture = imgErde1.Picture Then ImgErdeshow.Picture = ImgErde2.Picture imgConnectshow.Picture = imgConnect0.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde2.Picture Then ImgErdeshow.Picture = ImgErde3.Picture imgConnectshow.Picture = imgConnect2.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde3.Picture Then ImgErdeshow.Picture = ImgErde4.Picture imgConnectshow.Picture = imgConnect0.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde4.Picture Then ImgErdeshow.Picture = ImgErde5.Picture imgConnectshow.Picture = imgConnect3.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde5.Picture Then ImgErdeshow.Picture = ImgErde6.Picture imgConnectshow.Picture = imgConnect0.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde6.Picture Then ImgErdeshow.Picture = ImgErde7.Picture imgConnectshow.Picture = imgConnect4.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde7.Picture Then ImgErdeshow.Picture = ImgErde8.Picture imgConnectshow.Picture = imgConnect0.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde8.Picture Then ImgErdeshow.Picture = ImgErde9.Picture imgConnectshow.Picture = imgConnect5.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde9.Picture Then ImgErdeshow.Picture = ImgErde10.Picture imgConnectshow.Picture = imgConnect0.Picture imgComputershow.Picture = imgComputerg.Picture 'ImgErdeshow.Refresh GoTo ende End If If ImgErdeshow.Picture = ImgErde10.Picture Then ImgErdeshow.Picture = imgErde1.Picture imgConnectshow.Picture = imgConnect1.Picture imgComputershow.Picture = imgComputern.Picture 'ImgErdeshow.Refresh GoTo ende End If ende: Refresh End Sub

Flikern ausschalten

131

Ronny42DAch

22.10.01 12:48

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