| Вопрос: Несколько вопросов | Добавлено: 17.01.06 14:30 |
Автор вопроса:  Tamplier | ICQ: 298742928 |
|
Вопрос № а:
Как определить версию библиотеки? Вопрос № б: Хочу в цикле сменить БордерСтайл и всех контролов его имеющего (в цикле ибо их много). Как определить наличие свойства БордерСтайл? Вопрос № в: Как определить какая цветовая схема Windows в данный момент включена? В частности классическая. |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  GeorgeGA Вопросов: 1 Ответов: 101 |
Профиль | | #1 | Добавлено: 17.01.06 15:49 |
Итак Tamplier начнём
а)можно через API,или если ты её подключаешь то свойство .dllversion или .version б)можно не определять, а зделать обработчик ошибок, типа on error resume next в)опять так же через API,по этому поводу там целый ряд ф-й и констант |
||
|
Номер ответа: 2 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #2 | Добавлено: 17.01.06 15:50 |
|
Tamplier
Если нужны ф-й и константы, то могу кинуть |
||
|
Номер ответа: 3 Автор ответа:  [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #3 | Добавлено: 17.01.06 17:26 |
|
2GeorgeGA:
кинь и мне плз! |
||
|
Номер ответа: 4 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #4 | Добавлено: 18.01.06 12:43 |
|
а)
можно через API,или если ты её подключаешь то свойство .dllversion или .version
А поподробней? Ч/з какую АПИ? И где свойство брать? б) можно не определять, а зделать обработчик ошибок, типа on error resume next
Блин, совсем уже мозги набекрень поехали от подготовки к ВУЗ'у
в) опять так же через API,по этому поводу там целый ряд ф-й и констант
Опять же ч/з какую АПИ? А вот от ф-й и констант не откажусь Кидай
|
||
|
Номер ответа: 5 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #5 | Добавлено: 18.01.06 15:36 |
|
Tamplier
а) А поподробней? Ч/з какую АПИ? И где свойство брать? Например можно с помощью этой:
Public Declare Function VerFindFile Lib "version.dll" Alias "VerFindFileA" (ByVal uFlags As Long, ByVal szFileName As String, ByVal szWinDir As String, ByVal szAppDir As String, ByVal szCurDir As String, lpuCurDirLen As Long, ByVal szDestDir As String, lpuDestDirLen As Long) As Long
А свойство появляется тогда, когда ты подключаешь свою dll'ку, т.е.после того как объявишь переменную типа dim w as new имя твоей длл
б) рад, что ты разобрался 
в)Завтра кину,они у меня дома
|
||
|
Номер ответа: 6 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #6 | Добавлено: 19.01.06 15:18 |
|
кому надо,дербаньте
Option Explicit
Private Declare Function SetSysColors Lib "user32" _ (ByVal nChanges As Long, lpSysColor As _ Long, lpColorValues As Long) As Long Private Declare Function GetSysColor& Lib "user32" (ByVal nIndex As Long) Dim t As Byte 'можно использовать и такие константы Private Const COLOR_SCROLLBAR = 0 'The Scrollbar colour Private Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper Private Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window Private Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window Private Const COLOR_MENU = 4 'Menu Private Const COLOR_WINDOW = 5 'Windows background Private Const COLOR_WINDOWFRAME = 6 'Window frame Private Const COLOR_MENUTEXT = 7 'Window Text Private Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95) Private Const COLOR_CAPTIONTEXT = 9 'Text in window caption Private Const COLOR_ACTIVEBORDER = 10 'Border of active window Private Const COLOR_INACTIVEBORDER = 11 'Border of inactive window Private Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop Private Const COLOR_HIGHLIGHT = 13 'Selected item background Private Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item Private Const COLOR_BTNFACE = 15 'Button Private Const COLOR_BTNSHADOW = 16 '3D shading of button Private Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used. Private Const COLOR_BTNTEXT = 18 'Button text Private Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window Private Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button |
||
|
Номер ответа: 7 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #7 | Добавлено: 19.01.06 16:07 |
|
ЭЭЭ... А я че, должен цвета вылавливать??? Мне надо отределить стиль! А не цветовую схему!!!
Блин, я написал не то в вопросе... 
|
||
|
Номер ответа: 8 Автор ответа: [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #8 | Добавлено: 19.01.06 16:08 |
|
2GeorgeGA:
Спасибо за полезность |
||
|
Номер ответа: 9 Автор ответа: GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #9 | Добавлено: 19.01.06 16:31 |
| У мя млин сессия...чё нашёл в этом стиле, то и дал!а если у тя есть время, то юзай API viewer! | ||
|
Номер ответа: 10 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #10 | Добавлено: 20.01.06 11:06 |
|
Не, GeorgeGA, спасибо тебе большое, это мне тоже пригодится.
Времени у меня тоже особо нету, а то бы не спрашивал. И вообще. Не надо сердиться, успокойся Тут виноват только я.
|
||
|
Номер ответа: 11 Автор ответа:  GeorgeGAВопросов: 1 Ответов: 101 |
Профиль | | #11 | Добавлено: 20.01.06 15:27 |
|
Tamplier
ну ты блин прям психолог
Желаю удачи в поиске ф-й |
||
|
Номер ответа: 12 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #12 | Добавлено: 23.01.06 16:05 |
|
ну спасибо
|
||
Страница: 1 |