"Christian Kristoffersen" <_**NOSPAM**_dsl32328@vip.cybercity.dk> skrev i en
meddelelse news:akil4o$vcr$1@news.cybercity.dk...
> Hejsa alle
>
> Private Sub VScroll1_Change(Index As Integer)
> lblColor.BackColor = ??????
> End Sub
>
> Jeg har behov for at "grappe" værdien af VScroll1, og putte den over i
> lblColor.BackColor.
Når jeg har skullet demonstrere RGB-farver for nogen, har jeg lavet
følgende:
3 scroll-bars: Name = R, Name = G og Name = B
Alle med Min = 0, Max = 255
En picturebox.
I hvers Scroll og/eller Change-event:
Picture1.BackColor = RGB(R.Value, G.Value, B.Value)
Enkelt, men effektivt.
Man kan naturligvis også lave scrollbarene som en control-array, men så
forsvinder den pædagogiske virkning med R, G og B lidt....
--
mvh
Jens Vestergaard
www.railsoft.dk
--------
Indsæt v før snablen