|
|
|
Junior Member
 
участник
Last Login: 24.03.2008 22:23
Сообщ.: 21,
Visits: 142
|
|
Есть ли такой компонент (палитра цветов) для Visual Basic 6?
Если да, то где можно его достать..
|
|
|
|
|
Junior Member
участник
Last Login: 24.03.2008 22:23
Сообщ.: 21,
Visits: 142
|
|
Вот то, что я искал:
CommonDialog1.ShowColor
=)
Но как там извлечь содержимое текстовых полей?
|
|
|
|
|
Supreme Being
участник
Last Login: 27.01.2008 1:11
Сообщ.: 152,
Visits: 1 701
|
|
Santus (11.08.2007)
Вот то, что я искал:
CommonDialog1.ShowColor
=)
Но как там извлечь содержимое текстовых полей?Не совсем понял о каких текстовых полях идёт речь, но если нужно выбрать цвет то: 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
|
|
|
|
|
Junior Member
участник
Last Login: 24.03.2008 22:23
Сообщ.: 21,
Visits: 142
|
|
Ну там самые важные поля - это Красный, Зеленый, Синий.
Сегодня (правда до сегодняшнего дня я толком не пробовал =) ) у меня получилось это сделать:
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 'находим красный
|
|
|
|
|
Supreme Being
участник
Last Login: 27.01.2008 1:11
Сообщ.: 152,
Visits: 1 701
|
|
Santus (16.08.2007)
Ну там самые важные поля - это Красный, Зеленый, Синий. Сегодня (правда до сегодняшнего дня я толком не пробовал =) ) у меня получилось это сделать:
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 'находим красный
А зачем это делать? CommonDialog1.Color слжит для выбора цвета. Так я думал
|
|
|
|
|
Junior Member
участник
Last Login: 24.03.2008 22:23
Сообщ.: 21,
Visits: 142
|
|
Alex77 (17.08.2007)
Азачем это делать?
CommonDialog1.Color слжит для выбора цвета. Так я думал
Для выбора цвета элементов формы? В моем случае этого не надо.
|
|
|
|