Couleurs de fond aleatoire ...

0/5 (5 avis)

Snippet vu 3 613 fois - Téléchargée 38 fois

Commenter

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

Signaler
KaViDee
Messages postés
262
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
1 février 2019
 -
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 !
Signaler
Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
 -
Je peux comprendre l'enthousiasme ke génère la production d'une source, reste à savoir l'utilité de celle-ci...
Signaler
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
 -
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
Signaler
bydavid
Messages postés
62
Date d'inscription
samedi 21 septembre 2002
Statut
Membre
Dernière intervention
5 août 2003
 -
C'est tout petit !!! Si y aurai 200-300 lignes de code d'accord , mais pour 9 lignes ...
Signaler
Vbsupernul
Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
 -
Il fauDRAIT:
-un zip
-et c'est tout...
S'inscrire maintenant

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.

Du même auteur (bydavid)