Релиб / Программирование / Visual Basic / Палитра / Latest Posts

RE: Палитра

Santus — Sat, 18 Aug 2007 17:58:12 GMT

[quote][b]Alex77 (17.08.2007)[/b]
Азачем это делать?

CommonDialog1.Color слжит для выбора цвета. Так я думал[/quote]
Для выбора цвета элементов формы? В моем случае этого не надо.

RE: Палитра

Alex77 — Fri, 17 Aug 2007 01:29:07 GMT

[quote][b]Santus (16.08.2007)[/b][hr]Ну там самые важные поля - это Красный, Зеленый, Синий.
Сегодня (правда до сегодняшнего дня я толком не пробовал =) ) у меня получилось это сделать:
[code]
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 'находим красный
[/code][/quote]

А зачем это делать?

CommonDialog1.Color слжит для выбора цвета. Так я думал

RE: Палитра

Santus — Thu, 16 Aug 2007 18:56:28 GMT

Ну там самые важные поля - это Красный, Зеленый, Синий.
Сегодня (правда до сегодняшнего дня я толком не пробовал =) ) у меня получилось это сделать:
[code]
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 'находим красный
[/code]

RE: Палитра

Alex77 — Mon, 13 Aug 2007 23:50:06 GMT

[quote][b]Santus (11.08.2007)[/b][hr]Вот то, что я искал:
CommonDialog1.ShowColor
=)

Но как там извлечь содержимое текстовых полей?[/quote]

Не совсем понял о каких текстовых полях идёт речь, но если нужно выбрать цвет то:

Private Sub mnuColor_Click() ' Выбор цвета

On Error GoTo ErrorHandler

With CommonDialog1
.CancelError = True
.Flags = cdlCCRGBInit
.Action = 3
End With

rtbExample.BackColor = CommonDialog1.Color

Exit Sub

ErrorHandler:

If Err.Number = 32755 Then

Exit Sub

End If

End Sub

RE: Палитра

Santus — Sat, 11 Aug 2007 17:08:41 GMT

Вот то, что я искал:
CommonDialog1.ShowColor
=)

Но как там извлечь содержимое текстовых полей?

Палитра

Santus — Fri, 10 Aug 2007 23:58:27 GMT

Есть ли такой компонент (палитра цветов) для Visual Basic 6?
Если да, то где можно его достать..