Afficher un effet dans une form

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 083 fois - Téléchargée 68 fois

Contenu du snippet

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+

A voir également

Ajouter un commentaire

Commentaires

J'arrive 1 peu à la bourre avec mon comment'...
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!!
z980x
Messages postés
898
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2 -
putain c'ets class ! 10 !

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.