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
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.