Эта программа показывает вам цвета RGB. Вы можете менять значения каждого цвета от 0 - 255 и вы увидите специально смешанный цвет после щелчка по клавише.
Из 3х десятичный и одного шестнадцатеричного числа построена строка с использованием такого кода:
sHEX = Hex$(r,2) & Hex$(g,2) & Hex$(b,2)
sHEX = "&H" & sHEX & "&"
Чтобы программа работала, вам нужно: 1 commandbutton, 1 drawingarea, 3 textboxes и 3 textlabels.
Как это выглядит ? Смотрите здесь ( in German )
Код:
PUBLIC SUB Button1_Click()
DIM sHex AS String
DIM r AS Integer
DIM g AS Integer
DIM b AS Integer
IF Textbox1.text = "" THEN Textbox1.Text = 0
IF Textbox2.text = "" THEN Textbox2.Text = 0
IF Textbox3.text = "" THEN Textbox3.Text = 0
r = Val(Textbox1.Text)
g = Val(Textbox2.Text)
b = Val(Textbox3.Text)
sHEX = Hex$(r,2) & Hex$(g,2) & Hex$(b,2)
sHEX = "&H" & sHEX & "&"
DrawingArea1.BackColor = Val(sHEX)
END
-- ReinerHoffmann - 01 Feb 2004