Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
Santus
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 22
1

Есть ли компонент палитра для VB6?

11.08.2007, 03:58. Просмотров 2763. Ответов 5
Метки нет (Все метки)

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

Если да, то где можно его достать..
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.08.2007, 03:58
Ответы с готовыми решениями:

Есть ли компонент-панель для VB?
Задача формулируется так: нужно форму поделить на две части с возможностью в...

Есть ли компонент для просомтра изобр. как и при просмотре мини-изображений в ADCsee???
Есть ли компонент для просомтра изобр. как и при просмотре мини-изображений в...

Есть ли у кого вопросы к MS экзаменам по VB6 (70-175 и 70-176)
Есть ли у кого информация о вопросах на microsoft экзаменах по VB6 или дайте...

Windows 2000 Rus VB6, VB6 Resource Editor отсутствует
В Windows 2000 Rus + SP3 проинсталлировал Visual Studio 6 + MSDN Full (вся...

Контроль длины Label. А также VB6 Portable vs VB6 Installed.
Исходя из заголовка темы, вопроса 2: 1.) Как определить, что в Label уже не...

5
Santus
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 22
11.08.2007, 21:08  [ТС] 2
Вот то, что я искал:

CommonDialog1.ShowColor

=)



Но как там извлечь содержимое текстовых полей?
0
Alex77
14.08.2007, 03:50 3
Santus (11.08.2007)
Вот то, что я искал:
CommonDialog1.ShowColor
=)

Но как там извлечь содержимое текстовых полей?
Не совсем понял о каких текстовых полях идёт речь, но если нужно выбрать цвет то:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
Santus
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 22
16.08.2007, 22:56  [ТС] 4
Ну там самые важные поля - это Красный, Зеленый, Синий.

Сегодня (правда до сегодняшнего дня я толком не пробовал =) ) у меня получилось это сделать:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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 'находим красный
0
Alex77
17.08.2007, 05:29 5
А зачем это делать?
CommonDialog1.Color слжит для выбора цвета. Так я думал
Santus
0 / 0 / 0
Регистрация: 20.03.2012
Сообщений: 22
18.08.2007, 21:58  [ТС] 6
Alex77 (17.08.2007)

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



CommonDialog1.Color слжит для выбора цвета. Так я думал
Для выбора цвета элементов формы? В моем случае этого не надо.
0
18.08.2007, 21:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.08.2007, 21:58

Установщик для vb6
Ребята здравствуйте, я понимаю, что задаю избитый вопрос, Но все таки помогите...

*.OCX компоненты для VB6.
Помогите пожалуйста найти *.OCX компоненты в интернете. Заранее благодарен...

Прокрутка в RichText для VB6
Никак не могу разобраться почему когда я добавляю к Rich Textbox полосы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru