Zmieniacz kolorów

Program pokazujący zależność kolorów miedzy podstawowymi barwami: czerwoną, zieloną i niebieską.

obrazeczek głowny etykiety


Dim red, green, blue As Integer

Private Sub Hblue_Change()
blue = Hblue.Value
rysunek.BackColor = RGB(red, green, blue)
niebieski.Caption = "niebieski" + CStr(blue)
End Sub

Private Sub hgreen_Change()
green = hgreen.Value
rysunek.BackColor = RGB(red, green, blue)
zielony.Caption = "zielony" + CStr(green)
End Sub

Private Sub hred_Change()
red = hred.Value
rysunek.BackColor = RGB(red, green, blue)
czerwony.Caption = "czerwony" + CStr(red)
End Sub
Pobierz program download