Couleur de fond aleatoire (parfait) :)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 355 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
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
- Aleatoir
- Code parfait - Meilleures réponses
- Alleatoir - Meilleures réponses
- Couleurs de fond aleatoire ... - Codes sources - Visual Basic / VB.NET (Graphique)
- Javascript : Couleur de fond aleatoire + titre aleatoire *updated* - CodeS SourceS - Guide
- Couleurs de fond coulantes aléatoires :-) - Codes sources - Visual Basic / VB.NET (Graphique)
- Changer la couleur de fond quand on clique sur un bouton javascript - Forum - Javascript / DHTML
- Choix de la couleur du fond d'un site - Codes sources - Javascript (Graphique)
Commentaires
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
62une 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)
Merci beaucoup par avance , cela m'aiderai beaucoup pour mes debuts. ;-)
xav
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
62vbwhite 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 ;-)
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.