Couleurs de fond aleatoire ...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 838 fois - Téléchargée 40 fois

Contenu du snippet

Couleurs de fond aleatoire ...

Il faut ;

1 Timer ( Interval = 100)
1 Form (Form1)
1 Bouton (Command1)

Source / Exemple :


Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Rouge = (255 - 0 + 1) * Rnd + 0 ' Choissi aleatoirement un chiffre entre 0 et 255
Vert = (255 - 0 + 1) * Rnd + 0
Bleu = (255 - 0 + 1) * Rnd + 0

Form1.BackColor = RGB(Rouge, Vert, Bleu) ' applique la couleur

End Sub

A voir également

Ajouter un commentaire Commentaires
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 juin 2008

17 nov. 2002 à 19:22
tu peux faire + simple :

Rouge = Int(Rnd * 255)
Vert = Int(Rnd * 255)
Bleu = Int(Rnd * 255)

C vrai que c simplet mais y'en a que ça peut aider !
Et puis miko500 à raison, un petit coulement ça ferait + joli !
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

17 nov. 2002 à 18:40
Je peux comprendre l'enthousiasme ke génère la production d'une source, reste à savoir l'utilité de celle-ci...
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005

17 nov. 2002 à 18:24
c'est bien si tu veux regarder les couleurs, mais je sais pas,il y a comme un truc qui manque...il faudrait que les couleurs coulent, quelqu'un me suit ? lol
bydavid
Messages postés
62
Date d'inscription
samedi 21 septembre 2002
Statut
Membre
Dernière intervention
5 août 2003

17 nov. 2002 à 18:04
C'est tout petit !!! Si y aurai 200-300 lignes de code d'accord , mais pour 9 lignes ...
Vbsupernul
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

17 nov. 2002 à 17:57
Il fauDRAIT:
-un zip
-et c'est tout...

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.