Есть ли компонент палитра для VB6?
Формулировка задачи:
Есть ли такой компонент (палитра цветов) для Visual Basic 6?
Если да, то где можно его достать..
Решение задачи: «Есть ли компонент палитра для VB6?»
textual
Листинг программы
Dim pcol As Single CommonDialog1.ShowColor pcol = (CommonDialog1.Color / 65536) If pcol < 1 Then 'находим синий BT.Text = 0 Else BT.Text = Int(pcol) End If pcol = ((CommonDialog1.Color - BT.Text * 65536) / 256) If pcol < 1 Then 'находим зеленый GT.Text = 0 Else GT.Text = Int(pcol) End If RT.Text = CommonDialog1.Color - BT.Text * 65536 - GT.Text * 256 'находим красный