И не только в этом случае...
Нажми центральную кнопку (с экрана) и эффект - тот же ( на весь экран)
Скопируй копию экрана в буфер обмена, или иную картинку и нажми (из буфера ) картинко отобразится в проге и эффект - тот же по всей картинке.... но можно кликать фиксируя выбранный цвет
Картинку можно будет двигать - появившимися ползунками - вверх , влево и обратно... и проверять цвета картинки.

Интересная веСЧь получается
если навести курсор на цветную полоску
зажать левую кнопку мыши и выкатить курсор за пределы окна программы
отпустить кнопку
и теперь если катать мышь за пределами окошка то прога ловит значения RGB пикселей находящихся по указателем (работает как пипетка в Паинте только кликать не надо - в динамике)
о как

Да - действительно , но вот так вро дебы лучше...

не-а так же
от 0 до 60 r-255 g - изменяется от 0 до 255 b-0
от 61 до 120 r - 255->0 g-255 b-0
от 121 до 180 r-0 g-255 b-0->255
от 180 до 240 r-0 g-255->0 b-255
от 240 до 300 r-0->255 g-0 b-255
от 300 до 359 r-255 g-0 b-255->0

вот последнего блока и нет

http://ru.wikipedia.org/wiki/HSB

спасибо - подправим!!!
=============================
Ваще расчитывал-эта полоска для тех, кому лиш ба ткнуть в нужный примерный цвет и не лазить далее по программе.....
Но всё рано спасибо - поправил........ >>>
=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-
так больше цветов???

Час - цветовая полоса сверху - она не полная
если провести аналогию с цветовой системой HSV
а эта полоска Н (от 0 до 359) то не хватает примерно 60 значений (от 300 до 359)

последний варьянт RGB(КПИ)

Технических проблем размножиться до 4 мониторов нет.
2 видеоадаптера по 2 DVI имеются.
Не хватает бюджета на дополнительные мониторы.

Просьба указать самую последнюю версию) И выложить ее отдльно тутава) А то их ужо туча :))))

Крута!!!
А наверняка ведь есть программки, которые делят монитор на 2 и более частей
============================во попалася =========================
http://www.samsung.com/ua_ru/consumer/computer-printer/monitors/lcd/LS23MYZABC/EDC/index.idx?pagetype=prd_detail
==================================
нет не то........

очень удобное и практичное решение - Samsung SyncMaster 940Ux ==>
позволяет подключать себя по USB (можно "цепочкой" до 6-ти мониторов)

ну и плюс "родной" монитор на интегрированном видео

А прадед везде успевал на одном..........http://www.karaoke.ru/catalog/song/25691

Удобней, конечно, на двух, чем на одном. Но все-равно не хватает.
Access слева, редактор кода справа. И куда-же податься Firefox-у, виртуальной машине, Explorery?
Надо исчо парочку.

Спасибо! понятно.....
========================
Блин , а удобно ты устроился на левом мониторе работаешь, а на правом у тебя интернет, форум , поиск в google

Во как оно в 2007 Access-е и 2005 студии =>

Спасибо!!!

Открывается форма всегда в координатах 0, 0.?

Да - это задумано...

#f3f3f3

Почти так и есть .... а чё надо что бы точно так было или пойдёт и с припииской &H00

Теперь так =>
Открывается форма всегда в координатах 0, 0.?
Значение в поле RRGGBB должно быть таким: "#f3f3f3" (для цвета на скрине)

надо же??? как же так

надо же??? как же так и у мну широкококранный экраный тоже, а фсё в норме......... >>>
=======может такой вариант будет правильно отображать радугу
======================================================================================

Это чё два экрана
Угу, две широкоформатные 19.

http://hiprog.com/forum/files/7017-20100406112647.JPG

У мну блин во как......

2*(1440*900)

А для тупых - как Я - пояснить на пальцах????
Это чё два экрана по столько пикселей

Сколько трудностей прошло
Нам ли их боятся
Но себе скажу одно
Надо закруглятся
То что создано сполна
Нужды покрывает
Утилитка -то она
Своё дело - знает
Подобрать приятный цвет
Выяснить значенье
Ну а коль такого нет
Выдаст изреченье
И пошлёт зануду Вас
К чёрту на кулички
Так программы учат нас
Забывать привычки
Вощем чё хочу сказать
Версия готова
И Осмору отправлять
Телеграмму снова
Мол прими до кучи труд
Положи на форум
Пусть его ребята прут
Он не под запором
И исходник приложить
Если интересно
Можно и распотрошить
Код - и мне же лестно....
Ну да ладно, вот и всё
Хватит изгалятся
Вон диван к себе зовёт
Надо повалятся!!!!!!!!

=>
2*(1440*900)

ну вот еще один кодировочник :)

Что у вас за разрешение экрана????
как у вас так всё искажается?????
Спасибо за курсоры!!!
=========================================
Lukas , а у тебя такая же ХР ?

Ахахх, здравствуйте)
Все вроде путем, только теперь такая вот кукарача- Радуга уже закрывает некоторые элементы управления :) Но это еще она не сильно размахнулась

Относительно курсора. Может пригодится. Найдено на просторах великой помойки :)

Если Вам необходимо сделать действие, во время которого пользователю не "рекомендуется" пользоваться мышью (например сделать расчеты), то лучше всего сменить курсор мыши на песочные часы:

'Процедура служит для смены кусора на песочные часы и восстановления его после вторичного вызова
Public Sub HourGlass(obj As Object)
Static ordMouse As Integer
Static fOn As Boolean

On Error Resume Next
'если повторный вызов
If Not fOn Then
ordMouse = obj.MousePointer 'запомнить старый
obj.MousePointer = vbHourglass 'установить новый
fOn = True 'запомнить, что уже вызывали
'Если нужно восстановить
Else
obj.MousePointer = ordMouse 'восстановить курсор
fOn = False 'запомнить, что уже восстановили
End If
End Sub


Что касается курсора, то можешь поменять его на нужный тебе :) Я думаю прекрасно подошел бы vbCrosshair

Некоторые курсоры:
0 – vbDefault
1 – vbArrow
2 – vbCrossHair
3 – vbIBeam
4 – vbIconPointer
5 – vbSizePointer
6 – vbSizeNESW
7 – vbSizeNS
8 – vbSizeNWSE
9 – vbSizeWE
10 – vbUpArrow
11 – vbHourGlass
12 – vbNoDrop
13 – vbArrowHourGlass
14 – vbArrowQuestion
15 – vbSizeAll


Ну а если подойти с головой, то можно немножко модернизировать эту ф-цию, с выбором курсора при ее запуске :)

Public Sub HourGlass(Obj1 As Object, Optional valCrsr1 As Byte = 0)
Static ordMouse As Integer
Static fOn As Boolean
On Error Resume Next

If valCrsr1 < 0 Or valCrsr1 > 15 Then valCrsr1 = 0

'если повторный вызов
If Not fOn Then
ordMouse = Obj1.MousePointer 'запомнить старый

Obj1.MousePointer = valCrsr1 'valCrsr 'vbHourglass 'установить новый
fOn = True 'запомнить, что уже вызывали
'Если нужно восстановить
Else
Obj1.MousePointer = ordMouse 'восстановить курсор
fOn = False 'запомнить, что уже восстановили
End If
End Sub

На мой скромный взгляд внимания заслуживают курсоры 2,11,12,14,15

Удачки :)


p.s. Чета не подумал- курсор же нужен не тока в данном приложении))) Ну, можно пообдумать сей момсент, тока позжее, счаз буду занят до завтрава :))))

Даааааааа растянул я радугу, но чисто для удобства пользования - мож иногда -надо просто ткнуть в примерно зелёное, особо не изащряясь и всё, так что дай думаю простую поллитру ещё брошу на форму...
Че та не надыбаю никак курсор прицел...

я имел в виду размывку =>

вот это лишнее ИМХО

а можно еще прицел прикрутить?

так, чтобы на палитре курсор позиционировался?

предыдущий вариант палитры

он остался
SP...

предыдущий вариант палитры был лучше

вот такая хр

Спасибо за совет!!!
Тока не понятно как из этой хреновины &H80000004& сделать приемлемое для RGB
Так не выходит

Me!Text8="&H80000004&" ColorStr = Mid(Me!Text8, 5, 6)     Me!R = Val("&H" & Left$(ColorStr, 2))     Me!G = Val("&H" & Mid$(ColorStr, 3, 2))     Me!B = Val("&H" & Right$(ColorStr, 2))

Потому как получается RGB(0,0,4)
Но это совсем не тот цвет
или &H80000018& - получается RGB(0,0,18), опять не верно

И на экране(на форме) мы имеем совсем иной цвет

Уважаемый Сан Саныч :)
Все здорово) Молодца!

Хотелось бы иметь возможность ввода цифер в поля, из которых сейчас можно только копировать. Т.е. я знаю набор циферок, которые обозначают цвет, а хотелось бы увидеть этот цвет и сделать чуть светлее/темнее :)

Далее, если Вы не против :) Увидел во такую кукарачу- смотрите вкладыш) Ситуевина в том, что в VB6 я выбираю цвет, а его значение у Вас в форме не найти, как не пытался, двигая эти ползунки. Вот если б предыдущая просьба..
Эх :( Может, что-то не так с расчетами?))))

Удачки :)

SP

Спок

Я уже сплю как полтора часа))) Вон плин оно как)
Об утилите: Вот! Вот ОНО) Самое оно))) Молодца)

p.s. ладно, спок ночки :)

исправлено...
Ты чё не спишь???

Та по отдельной кнопке) Или по ПРАВОЙ клавише, а по ЛЕВОЙ- ВЫБОР цвета непосредственно на палитре) Посмотри, в свойстве этой функции click есть свойство, отвечающее, какую кнопку нажали)

И! Еще, гляди, нахожусь натвоей ядреной палитре, топлю левую клавишу, и вывожу курсор из она палитры- цвет БЕЛЫЙ!!! :)

И2! Нажал палитра цветов. Выбрал цвет, увел мышь, опять цвет поменялся, далее, снова жму Палитра цветов- она пропадает. А теперь переведи курсор на место палитры) Весь цвет сбился! ))))

Привет!!!
А как тада делать выбор цвета???
Ну что ба появлялся стандартный диалог выбора
======================================
Я думаю оставить оба варианта

А я позволю себе все же не согласиться: очень не удобно, когда двигаешь мышь- что меняется цвет. Нужно, что бы когда двигал мышь с НАЖАТОЙ кнопой- менялся цвет) А с не нажатой- не менялся)

А я тута ещё сервиспакнул
Добавлено вставка картинки из буфера обмена
И копирование данных о цвете в буфер обмена.

попытаюсь отстоять свою точку зрения
В этом нет необходимости.
Мое и ваше равнозначно, только один вариант вид с левого боку, другой с правого.
Видимо, шутка не удалась, сори.

Было такое

Уважаемый Lukas
попытаюсь отстоять свою точку зрения
RGB(255,0,0) - чисто красный цвет
в десятичном формате 255 (что мы и видим в VBA)
однако в hex формате это будет 0000ff
это для VBA

а вот для HTML тот же красный цвет будет уже ff0000
вот тут час попался на этом
http://hiprog.com/forum/read.php?id_forum=1&id_theme=6763&page=5

Чё получается актуальны только первые два поля

автор: snipe (03.04.2010 в 01:46) цвета в HTML расчитываются по формуле R*10000+G*100+B а в VB R+G*100+B*10000 формулы даны в hex формате значения R,G,B должны быть двухзначными

Совсем не так.
В VBA:
lngColor=RGB(bytR, bytG, bytB)
или, если расписать:
lngColor=256^0*bytR+256^1*bytG+256^2*bytB
Убрав лишнее, получим:
lngColor=bytR+256*bytG+256^2*bytB

В HTML:
RR - двухсимвольное Hex представление значения bytR,
GG - двухсимвольное Hex представление значения bytG,
BB - двухсимвольное Hex представление значения bytB.

Пример, для чисто красного:
lngColor: RGB(255,0,0), равно 255
hexColor: #FF0000

Пример, для белого:
lngColor: RGB(255,255,255), равно 16777215
hexColor: #FFFFFF

спасибо - как это тебе удалось?

ока когда мышиндер утоплен?

конечно - ты щёлкни мышом на примерном цвете...

Хахахх) Здорово) Вот я выбрал цвет и мне нужно скопировать его код) Я Мышь влево, и курсор тоже) Цвет уже другой))))
Может, цвет менять тока когда мышиндер утоплен? )))

И, еще косячок)

SPPPP

Понравилося SP6

Спасибо!!!................

СА, покопайся тут.
Может что понравится. Я, правда, сам не смотрел.

У Дачки....
А HTML

> Я уж и не знаю какой из этих полей чё значит....
Помогите понять...


Ахахх, я ржалЪ))) Так ты же ж автор то))) Ахахх)
Гляди. Салатовый цвет. В станд.окне с палитрой значится
Оттенок: 80
Контраст: 240
Яркость: 120

В Access этот цвет значится как
65280

В VB этот цвет значится как
&H0000FF00&

Вот, думаю к этим значениям и нужно стремиться))) Т.е. это те, которые два первые слева))
Удачки)

.

нужны ли бегунки (3 шт)?

на любителя - подогнать до точности....

Если не трудно, то их подпиши, что есть что, в случае если НУЖНЫ ВСЕ пять)))

А мну просто запутали в этих RRRRRRRRGGBBBBBBB
Я уж и не знаю какой из этих полей чё значит....

Помогите понять...

Сергей Саныч))
Оперативненько однако :) Вот только вопрос возникает, нужны ли бегунки (3 шт)? И для чего, просвяти плиз, нужны пять полей сверху? )))) Результирующее то поле должно быть одно) Если не трудно, то их подпиши, что есть что, в случае если НУЖНЫ ВСЕ пять)))

А для версий и их оперативного отслеживания рекомендовал бы в СВОЙСТВАХ ПРОЕКТА (VB) поставить Автоувеличение номера версии! На форме же создать НАДПИСЬ, размером по горизонтали где-то не менее 600. Если назовешь ее вроде Ver01, то в Form_Load можно поместить такой код:
Me.Ver01.Caption = "ver." & App.Major & "." & App.Minor & "." & App.Revision

Что это дает? При каждой НОВОЙ КОПИЛЯЦИИ последний номер будет увеличиваться на единицу. Таким образом пользователь всегда будет информирован о "новизне" Вашей утилитки)

p.s. Я сам придумал данную фичу , и подразумеваю, что эта идея не претендует на звание "Абсолютной верности подхода". Но все же данный подход, меня лично, пока устраивает)
Удачки)

SP4

хотелось бы видеть таблицу цветов от которой можно было бы танцевать

Что Вы имеете ввиду - как от неё плясать?

Спасибо!!!
Чё та я совсем запутаный
У мну в башке цветная каша

Час
Почитай про другие системы цветоопределения
например HVS или HVL (грят что они более наглядно передают цвет)
соответственно хотелось бы видеть таблицу цветов от которой можно было бы танцевать
и еще (позволю себе обратить ваше внимание)
цвета в HTML расчитываются по формуле
R*10000+G*100+B
а в VB
R+G*100+B*10000
формулы даны в hex формате значения R,G,B должны быть двухзначными

ПРИВЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕТТТТТТТ!!!!!
Стандартное окно с поллитрой
SP3

Сегрей Саныч, здравствуй)
Неудобно, смотри, хочу синий цвет. Пока его найдешь.... Или, у меня есть образец цвета. Хочу тоже самое, только посветлее.....

На мой взгляд проще было бы выводить стандртное окно с палитрой. Придумать возм-ть снятия образца цвета. И просто банально переводить rrggbb и rgb (твои окна сверху)

Удачи! Такая приблуда зачастую требуется, мне по крайней мере)

SP2 ====>
Колёсиком, клавишами курсора, мышкой, клавишей TAB (переход по R-G-B)

SP1

блинннннн дожили.........

Копипастинг отсюда http://seegix.net/page.php?page=3.6:

В HTML для описания цветов используется модель RGB. При этом цвета записываются в шестнадцатеричном виде. Формат записи следующий:

#RRGGBB

Вместо R, G, и B ставим числа в шестнадцатиричном виде. RR – интенсивность красного цвета, GG – зелёного, BB – синего.

Числа в шестнадцатиричном виде могут принимать значения от 0 до F (а не от 0 до 9, как в обычной, десятиричной системе).

Начиная с 2007 актуально и для Access.

решето оно как то завалялось на форме
а вот rrggbb - это ты просвяти - это чё значит.........

Исчо, колесом мышки можно двигать ползунки, а фон при этом, и значение поля, не меняются.
Даешь сервис пак1!

А почему перед цветом в Long-е символ решетки?
Ты уж тогда добавь еще одно поле для RRGGBB.

Вот для себя сделал....
Копируешь значение и подставляешь в код....