Ce code sert en outre à créer un effet de couleur dans une Form. Pour cela il vous faut simplement un Timer d'un interval de 1. Certe, certain trouverons ça nul, mais question personnel, je vois bien ça dans une démo de jeu. Pour finir, l'effet fait dévoiler le taux de raffraichissement lorsqu'on fixe des yeux la Form.
Source / Exemple :
Dim NiveauC As Integer
Dim Effet As Boolean
Const Vit = 10 'régule la vitesse, plus le nombre est grand, plus l'effet sera rapide
Private Sub Form_Load()
Effet = True
End Sub
Private Sub Timer1_Timer()
If Effet = True Then
NiveauC = NiveauC + Vit
If NiveauC >= 255 Then Effet = False
End If
If Effet = False Then
NiveauC = NiveauC - Vit
If NiveauC <= 0 Then Effet = True
End If
BackColor = RGB(NiveauC, 0, NiveauC) 'si vous désirez mettre un effet rouge, mettez RGB(NiveauC,0,0)
End Sub
Conclusion :
C'est tout, comme le code est simple, regarder mes annotations. A+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.