Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 333 fois - Téléchargée 70 fois
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
14 juin 2003 à 00:29
2 mai 2001 à 17:03
Mais tu crois pô k'il fallait corriger & mettre:
If NiveauC = 0 Then ....
Car, sino, le prog' s'arrete & me dit k'à -10, il sait pô koi faire!!!
Bone prog'!!!!
Gogogogoooooooo!!
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.