"Jan" <janf@ofir.dka> skrev i en meddelelse
news:3f6ab1f2$0$54817$edfadb0f@dread11.news.tele.dk...
> Hej
>
> Er der een som ligger inde med en stump kode som viser hvordan man ændrer
> baggrundsfarven på en SHAPE således at den ændre vertikalt fra grå til
hvid
> ?
>
> Jan
Hej Jan
Jeg er slet ikke nogen haj til VB, men jeg prøvede mig lige frem og fik
følgende resultat som måske kan gi' dig en ide til at komme videre !
Hvis der sidder en der ude som har en bedre metode ... skyd bare mit
eksempel i sænk
Givet: 1 form med 1 label, 1 horisontal scroll, 1 shape
Private Sub Form_Load()
Shape1.FillStyle = solid
Shape1.FillColor = &H0
HScroll1.Min = 128
HScroll1.Max = 255
End Sub
Private Sub HScroll1_scroll()
Dim color As String
color = "&h" & Hex(HScroll1.Value) & Hex(HScroll1.Value) &
Hex(HScroll1.Value)
Shape1.FillColor = color
Label1 = color
End Sub