Petit prog de couleur rgb

Soyez le premier à donner votre avis sur cette source.

Vue 4 117 fois - Téléchargée 380 fois

Description

'#################################################################
' ce petit prog tout simple peut etre util pour ceux qui voudrais
' donner une couleur bien pariculière a un objet ou text avec la
' fonction RGB (Rouge Vert Bleu) cela permet de faire des test de
'couleur et de choisir la bonne combinaison
' je touve ca mieux ques les couleurs standard de VB en Hex

'#################################################################

Source / Exemple :


'#################################################################
' ce petit prog tout simple peut etre util pour ceux qui voudrais
' donner une couleur bien pariculière a un objet ou text avec la
' fonction RGB (Rouge Vert Bleu) cela permet de faire des test de
'couleur et de choisir la bonne combinaison
' je touve ca mieux ques les couleurs standard de VB en Hex

'#################################################################
Private Sub Command1_Click()
End
End Sub

Private Sub Slider1_Scroll(Index As Integer)
'Le Shape prend la combinaison de couleurs Rouge Vert Bleu
' Defini par les sliders ou les textbox
Shape1.BackColor = RGB(Slider1(0), Slider1(1), Slider1(2))
Text1(0) = Slider1(0)
Text1(1) = Slider1(1)
Text1(2) = Slider1(2)
End Sub

Private Sub Text1_Change(Index As Integer)
Shape1.BackColor = RGB(Text1(0), Text1(1), Text1(2))
Slider1(0) = Text1(0)
Slider1(1) = Text1(1)
Slider1(2) = Text1(2)

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

Alan71
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
code d'une très grande utilité... lol

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.