Soyez le premier à donner votre avis sur cette source.
Vue 4 308 fois - Téléchargée 395 fois
'################################################################# ' 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
8 sept. 2002 à 21:04
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.