Kolory(RGB)

Należy utworzyć nowy projekt, rozmieścić obiekty na formatce według wzoru
przedstawionego poniżej.

Aby wartość wpisywana w polu tekstowym wpływała na położenie odpowiadającego mu
suwaka należy zaprogramować procedurę Change danego TextBox’a według przykładu
podanego poniżej.

VScroll1.Value = Val(Text1.Text)

Należy skorzystać z funkcji Val() ponieważ właściwość Value reprezentowana przez liczbę a
Text jest łańcuchem tekstowym.


Wyświetlenie w TextBox’ie wartości ustawionej na danym suwaku realizuje się poprzez
wpisanie do procedury Change danego suwaka linijki:

Text1.Text = Str(VScroll1.Value)

Funkcja Str() zamienia wartość liczbową na łańcuch znaków.

Uzyskanie określonego koloru będzie możliwe poprzez wprowadzenie wartości
wyświetlanych w poszczególnych polach tekstowych jako argumenty funkcji RGB(red,
green, blue), która będzie zmieniała wartość właściwości BackColor wstawionego wcześniej
obiektu typu PictureBox.

Zakończenie działania programu realizuje komenda Unload Me.