Есть ли компонент палитра для 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 'находим красный

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.692 из 5
Похожие ответы