Couleur de fond aleatoire (parfait) :)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 716 fois - Téléchargée 36 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
- Aleatoir - Meilleures réponses
- Code parfait - Meilleures réponses
- Générer couleur aléatoire javascript - Guide
- Générateur de mot aléatoire - Guide
- Générateur de chanson aléatoire - Guide
- Visual Basic / VB.NET : Générateur de couleur - CodeS SourceS - Guide
- Genhtmlcolors, un prog qui visionne et génére des couleurs html (fo pas croire, il est intéressant!) - Codes sources - Visual Basic / VB.NET (Divers)
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
69une 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
69vbwhite 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.