Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Применение стиля XP к элементам управления / 20 сообщений из 20, страница 1 из 1
19.09.2005, 10:36
    #33276038
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Как можно изменить стиль отображения Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX).

Действие
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <assemblyIdentity 
        version="1.0.0.0" 
        processorArchitecture="X86" 
        name="CompanyName.ProductName.YourAppName" 
        type="win32" />
    <description>Your application description here</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity 
                type="win32" 
                name="Microsoft.Windows.Common-Controls" 
                version="6.0.0.0" 
                processorArchitecture="X86" 
                publicKeyToken="6595b64144ccf1df" 
                language="*" />
        </dependentAssembly>
    </dependency>
</assembly>
распространяется только на Microsoft Windows Common Controls 5.0 (СOMCTL32.OCX).
Большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 11:18
    #33276140
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
manifest +
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean

Private Const ICC_USEREX_CLASSES = &H200

Private Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   InitCommonControlsVB = (Err.Number =  0 )
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 12:06
    #33276315
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Antonariymanifest + . . .
Не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 12:38
    #33276406
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
А у меня работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 12:50
    #33276440
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
У меня тоже нет.
Можешь выложить примерчик?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 14:43
    #33276783
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
AntonariyА у меня работает.
Будьте так любезны:
- версия операционной системы (какие SP установлены, сборка и т.д.)
- аналогично о Visual Studio (Visual Basic)
- свойства следующих файлов MSCOMCTL.OCX, СOMCTL32.OCX, СOMCTL32.DLL (точный размер, и версии)
Ну а работающий пример было бы воще замечательно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 15:34
    #33276961
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Гмм... Включил в настройках экрана поддержку стилей... А ведь действительно не работает...
Туплю-с...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2005, 17:53
    #33277376
Дурак
Дурак
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Это не то?

http://www.sql.ru/forum/actualthread.aspx?tid=97967&hl=xp

==========
P.S. Научите же меня вставлять гиперссылки на sql.ru.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2005, 10:08
    #33277963
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
ДуракЭто не то?

http://www.sql.ru/forum/actualthread.aspx?tid=97967&hl=xp

Не то.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.09.2005, 14:05
    #33278882
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
То-то!
Там все это есть + контролы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 13:46
    #33283608
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Да не то.
Использование сторонних компонентов не подходит.
Вопрос - Как можно изменить (а не заменить другим элементом управления) стиль отображения Microsoft Windows Common Controls 6.0 (SP6) (MSCOMCTL.OCX).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2005, 17:25
    #33284445
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Да все то!
Там и manifest обсуждался и InitCommonControlsVB и ссылки на работающие примеры дадены...
А контролы уже вдогонку пошли.
Внимательнее надоть!
Угу.
:)

Короче, все работает.
... Я думаю, никто не собирается это в не XP провернуть??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2005, 12:09
    #33285640
DisputantF
DisputantF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Letter_D
Да все то!
Там и manifest обсуждался и InitCommonControlsVB и ссылки на работающие примеры дадены...
А контролы уже вдогонку пошли.
Внимательнее надоть!
Угу.
:)

Короче, все работает.
... Я думаю, никто не собирается это в не XP провернуть??

Если у Вас все работает, будьте так любезны, соберите примитивный (самое главное показать внешний вид элементов управления) пример с Toolbar, StatusBar, TreeView, ProgressBar (достаточно их просто положить на пустую форму) и выложите.
Заранее большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2005, 10:25
    #33287945
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
А зачем???
Неужели никто не видел стиль ХР?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2005, 10:45
    #33290076
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
На самом деле, если пройти по ссылке от (Дурака), то попадаем на топик, в котором тоже есть ссылки.
Пройдя по тем ссылкам, обнаружим еще две, а них уже такую, как "проводник ХР стилей".
В нем интересно то, что присуцвует элемент TreeView от MSCOMCTL.OCX.
И отображается после запуска как ХР. На что я и повелся.
Теперь-то и меня берут сомнения - дело в том, что на остальных элементах, добавленных вчера мной вручную, я эффекта не обнаружил.
Возможно там еще что-то присобачивается программно-дополнительно, копаться было некогда, а текст немаленький.
Но эффект с TreeView налицо.

Ссылка на файл с примером:
http://vbaccelerator.com/home/VB/Code/Libraries/XP_Visual_Styles/Drawing_with_XP_Visual_Styles/VB6_Theme_Explorer.zip
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2005, 15:41
    #33291207
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
И вовсе не налицо. Слева treeview 6, справа treeview 5. Как говорится, почувствуйте разницу.
Однако это полезный пример. Он демонстрирует, как из ресурсов текущей темы xp выдрать элементы графики. На его основе можно написать свою библиотеку контролов, которые будут рисоваться, используя текущую тему. Писать придется долго и муторно )))) Но не особо сложно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2005, 12:25
    #33305977
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Кроме того там есть еще хороший пример - файл .manifest прошивается в файл ресурса, подключается, все это дело компилится, и более его (файл .manifest) не надо таскать вслед за программой.
Это эстетично.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2006, 02:05
    #33467158
Pantalone
Pantalone
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Да, не работает для 6 библиотеки. Досадно. Кстати, может кто знает как избавиться от мигания Frame когда прога под XP с манифестом? Мигает ощутимо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
10.11.2008, 00:10
    #35642841
Александра-Александра
Александра-Александра
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Здравствуйте...

Возможно ли также, с помощью Манифест-файла изменить стиль контролов на форме MS Access?

Спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2008, 00:43
    #35642872
BION
BION
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Применение стиля XP к элементам управления
Александра-АлександраЗдравствуйте...

Возможно ли также, с помощью Манифест-файла изменить стиль контролов на форме MS Access?

Спасибо...

На сколько я знаю, нет. Аццесс использует другие библиотеки контролов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Применение стиля XP к элементам управления / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 395ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161654]:
 0ms
get settings:
 10ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 95ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 225ms
total:  395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]