| |
 24 Кб. |
|
| | Вот для себя сделал....
Копируешь значение и подставляешь в код....  | |
| |
| |
| |
|
|
| | А почему перед цветом в Long-е символ решетки?
Ты уж тогда добавь еще одно поле для RRGGBB. | |
| |
| |
| |
|
|
| | Исчо, колесом мышки можно двигать ползунки, а фон при этом, и значение поля, не меняются.
Даешь сервис пак1!  | |
| |
| |
| |
|
|
| |
решето оно как то завалялось на форме
а вот rrggbb - это ты просвяти - это чё значит.........
| |
| |
| |
| |
|
|
| | Копипастинг отсюда http://seegix.net/page.php?page=3.6:
В HTML для описания цветов используется модель RGB. При этом цвета записываются в шестнадцатеричном виде. Формат записи следующий:
#RRGGBB
Вместо R, G, и B ставим числа в шестнадцатиричном виде. RR – интенсивность красного цвета, GG – зелёного, BB – синего.
Числа в шестнадцатиричном виде могут принимать значения от 0 до F (а не от 0 до 9, как в обычной, десятиричной системе).
Начиная с 2007 актуально и для Access. | |
| |
| |
| |
|
|
| | блинннннн дожили.........  | |
| |
| |
|
|
| |
28 Кб. |
|
| | SP2 ====>
Колёсиком, клавишами курсора, мышкой, клавишей TAB (переход по R-G-B) | |
| |
| |
| |
|
|
| | Сегрей Саныч, здравствуй) 
Неудобно, смотри, хочу синий цвет. Пока его найдешь.... Или, у меня есть образец цвета. Хочу тоже самое, только посветлее.....
На мой взгляд проще было бы выводить стандртное окно с палитрой. Придумать возм-ть снятия образца цвета. И просто банально переводить rrggbb и rgb (твои окна сверху)
Удачи! Такая приблуда зачастую требуется, мне по крайней мере) | |
| |
| |
| |
28 Кб. |
|
| |  ПРИВЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕТТТТТТТ!!!!!
Стандартное окно с поллитрой
SP3
| |
| |
| |
| |
|
|
| | Час
Почитай про другие системы цветоопределения
например HVS или HVL (грят что они более наглядно передают цвет)
соответственно хотелось бы видеть таблицу цветов от которой можно было бы танцевать
и еще (позволю себе обратить ваше внимание)
цвета в HTML расчитываются по формуле
R*10000+G*100+B
а в VB
R+G*100+B*10000
формулы даны в hex формате значения R,G,B должны быть двухзначными | |
| |
| |
|
|
| |
|
|
| |
хотелось бы видеть таблицу цветов от которой можно было бы танцевать
|
Что Вы имеете ввиду - как от неё плясать?  | |
| |
| |
| |
32 Кб. |
|
| | SP4 | |
| |
| |
| |
|
|
| | Сергей Саныч))
Оперативненько однако :) Вот только вопрос возникает, нужны ли бегунки (3 шт)? И для чего, просвяти плиз, нужны пять полей сверху? )))) Результирующее то поле должно быть одно) Если не трудно, то их подпиши, что есть что, в случае если НУЖНЫ ВСЕ пять)))
А для версий и их оперативного отслеживания рекомендовал бы в СВОЙСТВАХ ПРОЕКТА (VB) поставить Автоувеличение номера версии! На форме же создать НАДПИСЬ, размером по горизонтали где-то не менее 600. Если назовешь ее вроде Ver01, то в Form_Load можно поместить такой код:
Me.Ver01.Caption = "ver." & App.Major & "." & App.Minor & "." & App.Revision
Что это дает? При каждой НОВОЙ КОПИЛЯЦИИ последний номер будет увеличиваться на единицу. Таким образом пользователь всегда будет информирован о "новизне" Вашей утилитки)
p.s. Я сам придумал данную фичу , и подразумеваю, что эта идея не претендует на звание "Абсолютной верности подхода". Но все же данный подход, меня лично, пока устраивает)
Удачки) | |
| |
| |
| |
36 Кб. |
|
| | .
на любителя - подогнать до точности....
Если не трудно, то их подпиши, что есть что, в случае если НУЖНЫ ВСЕ пять)))
|
А мну просто запутали в этих RRRRRRRRGGBBBBBBB
Я уж и не знаю какой из этих полей чё значит....
Помогите понять... | |
| |
| |
| |
|
|
| | > Я уж и не знаю какой из этих полей чё значит....
Помогите понять...
Ахахх, я ржалЪ))) Так ты же ж автор то))) Ахахх)
Гляди. Салатовый цвет. В станд.окне с палитрой значится
Оттенок: 80
Контраст: 240
Яркость: 120
В Access этот цвет значится как
65280
В VB этот цвет значится как
&H0000FF00&
Вот, думаю к этим значениям и нужно стремиться))) Т.е. это те, которые два первые слева))
Удачки) | |
| |
| |
| |
36 Кб. |
|
| | У Дачки....
А HTML | |
| |
| |
| |
|
|
| | СА, покопайся тут.
Может что понравится. Я, правда, сам не смотрел. | |
| |
| |
| |
|
|
| | Спасибо!!!................  | |
| |
| |
| |
18 Кб. |
|
| | Понравилося  SP6 | |
| |
| |
| |
18 Кб. |
|
| | SPPPP | |
| |
| |
| |
35 Кб. |
|
| | Хахахх) Здорово) Вот я выбрал цвет и мне нужно скопировать его код) Я Мышь влево, и курсор тоже) Цвет уже другой)))) 
Может, цвет менять тока когда мышиндер утоплен? )))
И, еще косячок) | |
| |
| |
| |
|
|
| | спасибо - как это тебе удалось?
ока когда мышиндер утоплен?
|
конечно - ты щёлкни мышом на примерном цвете... | |
| |
| |
| |
21 Кб. |
|
| |
| |
| |
| |
| |
|
|
| |
автор: 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 | |
| |
| |
| |
|
|
| |
Чё получается актуальны только первые два поля
| |
| |
| |
| |
|
|
| | Уважаемый 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 | |
| |
| |
| |
|
|
| | Было такое  | |
| |
| |
| |
|
|
| | попытаюсь отстоять свою точку зрения
В этом нет необходимости.
Мое и ваше равнозначно, только один вариант вид с левого боку, другой с правого.
Видимо, шутка не удалась, сори. | |
| |
| |
| |
25 Кб. |
|
| | А я тута ещё сервиспакнул
Добавлено вставка картинки из буфера обмена
И копирование данных о цвете в буфер обмена. | |
| |
| |
| |
|
|
| | А я позволю себе все же не согласиться: очень не удобно, когда двигаешь мышь- что меняется цвет. Нужно, что бы когда двигал мышь с НАЖАТОЙ кнопой- менялся цвет) А с не нажатой- не менялся) | |
| |
| |
| |
25 Кб. |
|
| | Привет!!!
А как тада делать выбор цвета???
Ну что ба появлялся стандартный диалог выбора
======================================
Я думаю оставить оба варианта | |
| |
| |
| |
|
|
| | Та по отдельной кнопке) Или по ПРАВОЙ клавише, а по ЛЕВОЙ- ВЫБОР цвета непосредственно на палитре) Посмотри, в свойстве этой функции click есть свойство, отвечающее, какую кнопку нажали)
И! Еще, гляди, нахожусь натвоей ядреной палитре, топлю левую клавишу, и вывожу курсор из она палитры- цвет БЕЛЫЙ!!! :)
И2! Нажал палитра цветов. Выбрал цвет, увел мышь, опять цвет поменялся, далее, снова жму Палитра цветов- она пропадает. А теперь переведи курсор на место палитры) Весь цвет сбился! )))) | |
| |
| |
| |
25 Кб. |
|
| | исправлено...
Ты чё не спишь??? | |
| |
| |
| |
|
|
| | Я уже сплю как полтора часа))) Вон плин оно как)
Об утилите: Вот! Вот ОНО) Самое оно))) Молодца)
p.s. ладно, спок ночки :) | |
| |
| |
| |
|
|
| | Спок | |
| |
| |
| |
25 Кб. |
|
| | SP | |
| |
| |
| |
33 Кб. |
|
| | Уважаемый Сан Саныч :)
Все здорово) Молодца!
Хотелось бы иметь возможность ввода цифер в поля, из которых сейчас можно только копировать. Т.е. я знаю набор циферок, которые обозначают цвет, а хотелось бы увидеть этот цвет и сделать чуть светлее/темнее :)
Далее, если Вы не против :) Увидел во такую кукарачу- смотрите вкладыш) Ситуевина в том, что в VB6 я выбираю цвет, а его значение у Вас в форме не найти, как не пытался, двигая эти ползунки. Вот если б предыдущая просьба..
Эх :( Может, что-то не так с расчетами?))))
Удачки :) | |
| |
| |
| |
8 Кб. |
|
| | Спасибо за совет!!!
Тока не понятно как из этой хреновины &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), опять не верно
И на экране(на форме) мы имеем совсем иной цвет | |
| |
| |
| |
32 Кб. |
|
| | вот такая хр | |
| |
| |
| |
|
|
| | предыдущий вариант палитры был лучше | |
| |
| |
| |
33 Кб. |
|
| |
предыдущий вариант палитры
|
он остался
SP... | |
| |
| |
| |
64 Кб. |
|
| | я имел в виду размывку =>
вот это лишнее ИМХО
а можно еще прицел прикрутить?
так, чтобы на палитре курсор позиционировался? | |
| |
| |
| |
18 Кб. |
|
| | Даааааааа растянул я радугу, но чисто для удобства пользования - мож иногда -надо просто ткнуть в примерно зелёное, особо не изащряясь и всё, так что дай думаю простую поллитру ещё брошу на форму...
Че та не надыбаю никак курсор прицел... | |
| |
| |
| |
23 Кб. |
|
| | Ахахх, здравствуйте)
Все вроде путем, только теперь такая вот кукарача- Радуга уже закрывает некоторые элементы управления :) Но это еще она не сильно размахнулась
Относительно курсора. Может пригодится. Найдено на просторах великой помойки :)
Если Вам необходимо сделать действие, во время которого пользователю не "рекомендуется" пользоваться мышью (например сделать расчеты), то лучше всего сменить курсор мыши на песочные часы:
'Процедура служит для смены кусора на песочные часы и восстановления его после вторичного вызова
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. Чета не подумал- курсор же нужен не тока в данном приложении))) Ну, можно пообдумать сей момсент, тока позжее, счаз буду занят до завтрава :)))) | |
| |
| |
| |
18 Кб. |
|
| | Что у вас за разрешение экрана????
как у вас так всё искажается?????
Спасибо за курсоры!!!
=========================================
Lukas , а у тебя такая же ХР ? | |
| |
| |
| |
|
|
| | ну вот еще один кодировочник :) | |
| |
| |
| |
20 Кб. |
|
| | =>
2*(1440*900) | |
| |
| |
| |
|
|
| | Сколько трудностей прошло
Нам ли их боятся
Но себе скажу одно
Надо закруглятся
То что создано сполна
Нужды покрывает
Утилитка -то она
Своё дело - знает
Подобрать приятный цвет
Выяснить значенье
Ну а коль такого нет
Выдаст изреченье
И пошлёт зануду Вас
К чёрту на кулички
Так программы учат нас
Забывать привычки
Вощем чё хочу сказать
Версия готова
И Осмору отправлять
Телеграмму снова
Мол прими до кучи труд
Положи на форум
Пусть его ребята прут
Он не под запором
И исходник приложить
Если интересно
Можно и распотрошить
Код - и мне же лестно....
Ну да ладно, вот и всё
Хватит изгалятся
Вон диван к себе зовёт
Надо повалятся!!!!!!!! | |
| |
| |
|
|
| |
52 Кб. |
|
| | У мну блин во как......  | |
| |
| |
| |
|
|
| | http://hiprog.com/forum/files/7017-20100406112647.JPG | |
| |
| |
| |
|
|
| | надо же??? как же так | |
| |
| |
| |
|
|
| | Это чё два экрана
Угу, две широкоформатные 19. | |
| |
| |
| |
76 Кб. |
|
| | надо же??? как же так и у мну широкококранный экраный тоже, а фсё в норме......... >>>
=======может такой вариант будет правильно отображать радугу
====================================================================================== | |
| |
| |
| |
15 Кб. |
|
| | Теперь так =>
Открывается форма всегда в координатах 0, 0.?
Значение в поле RRGGBB должно быть таким: "#f3f3f3" (для цвета на скрине) | |
| |
| |
| |
|
|
| | Спасибо!!!
Открывается форма всегда в координатах 0, 0.?
|
Да - это задумано...
Почти так и есть .... а чё надо что бы точно так было или пойдёт и с припииской &H00 | |
| |
| |
| |
41 Кб. |
|
| | Во как оно в 2007 Access-е и 2005 студии => | |
| |
| |
| |
76 Кб. |
|
| | Спасибо! понятно.....
========================
Блин , а удобно ты устроился на левом мониторе работаешь, а на правом у тебя интернет, форум , поиск в google | |
| |
| |
| |
|
|
| | Удобней, конечно, на двух, чем на одном. Но все-равно не хватает. 
Access слева, редактор кода справа. И куда-же податься Firefox-у, виртуальной машине, Explorery?
Надо исчо парочку. | |
| |
| |
|
|
| |
46 Кб. |
|
| | очень удобное и практичное решение - Samsung SyncMaster 940Ux ==>
позволяет подключать себя по USB (можно "цепочкой" до 6-ти мониторов)
ну и плюс "родной" монитор на интегрированном видео | |
| |
| |
|
|
| |
|
|
| | Технических проблем размножиться до 4 мониторов нет.
2 видеоадаптера по 2 DVI имеются.
Не хватает бюджета на дополнительные мониторы. | |
| |
| |
| |
|
|
| | Просьба указать самую последнюю версию) И выложить ее отдльно тутава) А то их ужо туча :)))) | |
| |
| |
|
|
| |
76 Кб. |
|
| | последний варьянт RGB(КПИ) | |
| |
| |
| |
|
|
| | Час - цветовая полоса сверху - она не полная
если провести аналогию с цветовой системой HSV
а эта полоска Н (от 0 до 359) то не хватает примерно 60 значений (от 300 до 359) | |
| |
| |
| |
72 Кб. |
|
| | спасибо - подправим!!!
=============================
Ваще расчитывал-эта полоска для тех, кому лиш ба ткнуть в нужный примерный цвет и не лазить далее по программе.....
Но всё рано спасибо - поправил........ >>>
=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-
так больше цветов??? | |
| |
| |
| |
|
|
| | не-а так же
от 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 | |
| |
| |
| |
18 Кб. |
|
| | Да - действительно , но вот так вро дебы лучше... | |
| |
| |
| |
|
|
| | Интересная веСЧь получается
если навести курсор на цветную полоску
зажать левую кнопку мыши и выкатить курсор за пределы окна программы
отпустить кнопку
и теперь если катать мышь за пределами окошка то прога ловит значения RGB пикселей находящихся по указателем (работает как пипетка в Паинте только кликать не надо - в динамике)
о как | |
| |
| |
|
|
