Страница: 1 |
Страница: 1 |
Вопрос: Цвет
Добавлено: 26.10.04 23:02
Автор вопроса: Ujif | Web-сайт:
1.Как по заданному цвету получить rgb.
2.И как в массив добавить один элемент
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #1
Добавлено: 26.10.04 23:17
1. Цвет (Long) в шестнадцатеричном представлении смотрится как RR GG BB (байты). Делай выводы...
2. Массив, думается мне динамический.
ReDim myArr(1 To 1)
myArr(1) = ""
ReDim myArr(1 To UBound(myArr) + 1)
myArr(2) = ""
...
Номер ответа: 2
Автор ответа:
CyRax
Разработчик Offline Client
ICQ: 204447456
Вопросов: 180
Ответов: 4229
Web-сайт:
Профиль | | #2
Добавлено: 27.10.04 02:01
Вот в моей библиотеке кодов. Кстати как это работает я не разобрался до сих пор. Сейчас буду разбираться.
Dim C as Long, R as Byte, G as Byte, B as Byte
R =  C And &HFF)
G = ((C And 65280) \ 256)
B = ((C And &HFF0000) \ 65536)
Номер ответа: 3
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #3
Добавлено: 27.10.04 11:39
ЗЫ
а если не в конец массива, а, скажем, в середину или в начало, то нужно сделать Redim Preserve, как обычно, а потом для быстроты рекомендуется использовать не циклы а CopyMemory()...
Номер ответа: 4
Автор ответа:
mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #4
Добавлено: 27.10.04 12:27
sne, а примерчик с CopyMemory() можно скинуть?
Номер ответа: 5
Автор ответа:
Barsik
Разработчик Offline Client
ICQ: 343368641
Вопросов: 17
Ответов: 686
Web-сайт:
Профиль | | #5
Добавлено: 27.10.04 14:41
sne, мне тоже брось...
Номер ответа: 6
Автор ответа:
Black Dragon
ICQ: 321186096
Вопросов: 30
Ответов: 347
Web-сайт:
Профиль | | #6
Добавлено: 27.10.04 21:41
sne, мне тоже брось! mike_ogrel@mail.ru
Номер ответа: 7
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #7
Добавлено: 27.10.04 23:30
всем идти в примеры и качать какой-нить DateTimePicker, смотреть mDateTimePicker.bas -> RemoveCtl, там это используется... Можно поискать по форуму, код постил...