0/5 (12 avis)
Snippet vu 5 123 fois - Téléchargée 37 fois
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
27 sept. 2004 à 11:54
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)
26 sept. 2004 à 23:07
Merci beaucoup par avance , cela m'aiderai beaucoup pour mes debuts. ;-)
xav
2 juin 2003 à 14:57
25 mai 2003 à 23:59
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 ;-)
25 mai 2003 à 21:48
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.