✔ Farbe mit Timer ändern...

[Mailyn]

Also, ich will, dass die Farbe von z.B einem Form schrittweise in z.B schwarz geändert wird!
Das geht u.a. so (dazu muss aber die Standartfarbe "Rot" sein!")

Private Sub Timer1_Timer()
			If Form1.BackColor = &H0& Then
			Timer1.Enabled = False
Else
			Form1.BackColor = Form1.BackColor - 1
End If
End Sub

Aber ich will, dass das immer geht, egal, welche Grundfarbe da ist!
Zum Beispiel von grün zu schwarz, oder so!

 

[Orakel]

Hallo Mailyn,

mal so aus der Hohlen Hand entwickelt:

Option Explicit

Private nRed            As Integer
Private nGreen          As Integer
Private nBlue           As Integer

Private Sub Form_Load()
    nRed = 20
    nGreen = 200
    nBlue = 100
    Me.BackColor = RGB(nRed, nGreen, nBlue)
End Sub

Private Sub Timer1_Timer()
    nRed = IIf((nRed - 1) < 0, 0, nRed - 1)
    nGreen = IIf((nGreen - 1) < 0, 0, nGreen - 1)
    nBlue = IIf((nBlue - 1) < 0, 0, nBlue - 1)
    Me.BackColor = RGB(nRed, nGreen, nBlue)
End Sub

Timer Intervall nicht zu hoch setzten, sonst wird die Farbabnahme zum Geduldspiel.

Gruß
Das Orakel

 

[Mailyn]

Okay! Geht super!