Couleur de fond aleatoire (parfait) :)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 244 fois - Téléchargée 35 fois

Contenu du snippet

bon... c pas du nouveau mais je suis debutant et je voulais tester les
public sub Allo()
'code
end sub
Commenter beaucoup svp

Source / Exemple :


Public Sub CouleurFond(Form As Form)
Dim Rouge As Integer                    'Déclare la variable Rouge
Dim Vert As Integer                     'Déclare la variable Vert
Dim Bleu As Integer                     'Déclare la variable Bleu

Randomize Timer                         'Pour avoir un nombre aleatoir parfait
Rouge = Int(Rnd * 255)                  'Rouge vaut un nombre aleatoir compris entre 0 et 255
Vert = Int(Rnd * 255)                   'Vert vaut un nombre aleatoir compris entre 0 et 255
Bleu = Int(Rnd * 255)                   'Bleu vaut un nombre aleatoir compris entre 0 et 255

Form.BackColor = RGB(Rouge, Vert, Bleu) 'La couleur de l'arrière plan = une couleur RGB aleatoire
End Sub

'Pour apeler:
CouleurFond me 'ou autre

Conclusion :


commenter svp

A voir également

Ajouter un commentaire

Commentaires

Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
public sub :

une procedure, un bout de code que l'on peut rappelr en utilisant son nom...

le 'ME' est une variable qui est la fenetre courante (par ex: Form1)
Crax55
Messages postés
9
Date d'inscription
samedi 25 septembre 2004
Statut
Membre
Dernière intervention
26 septembre 2004
-
Je suis un debutant , et je voulai savoir si quelqu'un pourrait me renseigner sur ce qu'est un PUBLIC SUB et la signification de Couleur Fond Me (surtout le Me)
Merci beaucoup par avance , cela m'aiderai beaucoup pour mes debuts. ;-)
xav
leMiniGrand
Messages postés
11
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
17 octobre 2003
-
regarde une de mes sources y a une fenetre qui rebondit contre les bords de l ecran et qui change de couleur aleatoirement mais progressivement c est deja un peu plus ardu
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
ca n'equivaut pas a ce que j'ai mis !!
vbwhite evite de connaitre la couleur par coeur, mais bon, chacun ses goûts , a la limite, tu evite une addition.......

et encore, j'ai utilisé abs, et pas int , pour une raison simple ! un integer est trop court, pour une couleur ;-)
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010
-
Il y a plus simple :
Me.BackColor = int(rnd * 16777216)
Ce qui équivaut à ce que Renfield a mis...
Mais bon pour un débutant c'est déjà pas mal, je mettrais 7/10 pour encourager ;

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.