Effect sur votre form :-p

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 594 fois - Téléchargée 45 fois

Contenu du snippet

ba sa fait un effect pas mal sur la form (merci a skyraider qui ma donner lider et je lé ameliorer)

Source / Exemple :


Dim r, g, b
Dim baisse

Private Sub Timer1_Timer()
'Stop
If baisse = False Then
If r <> 255 Then r = r + 5: GoTo yy
If g <> 255 Then g = g + 5:  r = r: GoTo yy
If b <> 255 Then b = b + 5: r = r: g = g: GoTo yy
yy:
Else
If r <> 0 Then r = r - 5: GoTo yyr
If g <> 0 Then g = g - 5:  r = r: GoTo yyr
If b <> 0 Then b = b - 5: r = r: g = g: GoTo yyr
yyr:
End If
BackColor = RGB(r, g, b)
If r = 255 And g = 255 And b = 255 Then
baisse = True
ElseIf r = 0 And g = 0 And b = 0 Then
baisse = False
End If
End Sub

Conclusion :


metter le timer a la vitesse voulu pour que le changement soit rapide ou moin (je vous conseil 1)
merci de laisser vos commentaires

A voir également

Ajouter un commentaire Commentaires
Messages postés
8
Date d'inscription
vendredi 17 mai 2002
Statut
Membre
Dernière intervention
6 octobre 2004

D equel effet tu parle intello2001, ce n'est qu'une écran noir.
Messages postés
102
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
9 septembre 2003

je le ferai la prochaine fois mais la avoue que c'est super compréenssible :-)
Messages postés
8
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
13 décembre 2002

Quelques règles sans doute à retenir pour écrire un code lisible et compréhensible de tous :
-Déclarer ses variables clairement
-Faire référence correctement aux contrôles utilisés. Ici BackColor tout seul c'est bien mais fais le dans un code de 10 formes, 15 modules et le reste!!!
-Identer (voir au dico!!!) son code afin de le rendre facilement lisible
Comme ça la prochaine fois on ne mettra plus ce genre de commentaire qui t'agace!
Slt!! >;-)
Messages postés
102
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
9 septembre 2003

mais backcolor et form1.backcolor c pareil et declarer les variable que tu dit ne sert a rien mais merci de le preciser les prochaine fois je le ferai ;-) !
Messages postés
232
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
27 octobre 2007

ca doit certainement être un oubli, mais tu as oublie de preciser que baisse doit être boolean, car tu testes si il a la valeur false-->dim baisse as boolean
Ensuite, r,g,b doivent être declare entier-->dim r,g,b as integer
enfin, si la form s appelle form1, on doit avoir form1.backcolor, et non backcolor.
voila,ca n a l air de rien, mais c important, sinon, comment veut tu que l on teste le code? il faut que l on regarde ce que tu as fait, et que l on le decortique...
mais bon, c pas grave, et pis l effet est sympa, allez 6/10
[8)]
Afficher les 7 commentaires

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.