Couleur de fond aleatoire (parfait) :)

0/5 (12 avis)

Snippet vu 5 123 fois - Téléchargée 37 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
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
27 sept. 2004 à 11:54
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

26 sept. 2004 à 23:07
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

2 juin 2003 à 14:57
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
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
25 mai 2003 à 23:59
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

25 mai 2003 à 21:48
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 ;
Afficher les 12 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.