| Вопрос: API & SystemColor | Добавлено: 08.11.05 23:02 |
Автор вопроса:  roman
|
| Подскажите, пожалуйста, как преобразовать системную цветовую константу (напр. ButtonFace или WindowText) в формат RGB. Т.е. - в формат, в котором ее можно использовать в АПИ-функциях (CreatePen и т.д.) |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 08.11.05 23:33 |
|
Private Declare Function OleTranslateColor Lib "oleaut32.dll" (ByVal lOleColor As Long, ByVal lHPalette As Long, lColorRef As Long) As Long
Public Function TranslateColor(inCol As OLE_COLOR) As Long Dim retCol As Long OleTranslateColor inCol, 0&, retCol TranslateColor = retCol End Function Private Sub Form_Load() Dim newColor As Long newColor = TranslateColor(vbDesktop) Form1.BackColor = newColor r = Val(newColor) Mod 256 g = (Val(newColor) \ 256) Mod 256 b = (Val(newColor) \ 256) \ 256 MsgBox (r & " " & g & " " & b) End Sub |
||
|
Номер ответа: 2 Автор ответа: roman Вопросов: 3 Ответов: 3 |
Профиль | | #2 | Добавлено: 10.11.05 23:56 |
|
Спасибо за содержательный ответ. Именно то что нужно.
Может кто-то еще подскажет как имея dll-ку узнать что там у нее внутри?(та же oleaut32.dll, наверное, имеет еще много интересных функций) |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 11.11.05 00:00 |
дезассемблировать её 
|
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 11.11.05 01:15 |
|
oleaut... хм... поставь себе SDK, или MSDN и наслаждайся
|
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 11.11.05 01:49 |
| Посмотреть ее таблицу экспорта | ||
|
Номер ответа: 6 Автор ответа: romanВопросов: 3 Ответов: 3 |
Профиль | | #6 | Добавлено: 11.11.05 11:24 |
|
Спасибо всем за ответы!
А немного подробнее можно? Что за таблица такая? Где ее искать и как с ней работать? |
||
|
Номер ответа: 7 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #7 | Добавлено: 11.11.05 12:16 |
|
А не проще посмотреть мануал?
Просто посмотреть мануал. http://msdn.microsoft.com/library |
||
Страница: 1 |