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
commenter svp
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
- Générateur de couleur aléatoire
- Couleur aléatoire - Meilleures réponses
- Générateur de couleur - Meilleures réponses
- Générateur de mot aléatoire - Guide
- Generateur de nombre aleatoire ✓ - Forum - PHP
- Delphi / Pascal : Générateur de mots de passe aléatoires - CodeS SourceS - Guide
- Générateur de personnage aléatoire anime - Guide
- Générateur de mélodie aléatoire - Guide
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
7127 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
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
7125 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.