не все контролы в стиле XP

[retivykh]

Здравствуйте!
Для создания стиля XP применил манифест в соответсвии с http://support.microsoft.com/?kbid=309366. Большинство контролов стало как в XP. Но TabStrip, ToolBar и меню какие-то не XP-шные. Почему? Можно ли и эти контролы сделать в стиле XP? Если можно, то как?

[MIT]

Надо использовать не MS Common Control 6, а MS Common Control 5, в шестой версиии не все контролы системные.

[retivykh]

Как?
Попробовал два способа:
1. Попробовал в VB (Project->Componets). Получил сообщение "Can't remove control or reference; in use". У меня в проекте около сотни форм. Ка быть?

2. Поробовал в манифесте изменить
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
на
version="5.0.0.0"

При запуске программы, сообщение:
Приложение не было запущено, поскольку оно некорректно настроено


Что делаю не так?

[Денис]

У меня в проекте около сотни форм.

Ай хэв бэд ньюс фор ю.

[retivykh]

Ай хэв бэд ньюс фор ю.

Вай?

И до того как мы окончательно перейдем на английский хотелось бы узнать чем может аукнуться переход на XP стиль в среднего размера проекте?

[Денис]

хотелось бы узнать чем может аукнуться переход на XP стиль в среднего размера проекте?

Сделал тестовый проектик. Смотри. Сначала подрубаешь в референсах библиотеку версии 5. После чего, всё сохраняшь и открываешь файлы форм блокнотом (ну или truehaxorpad'ом у кого что)

Код: Выделить всё

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3105
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3105
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.ProgressBar pbV6
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
   End
   Begin ComctlLib.ProgressBar pbV5
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3255
      _ExtentX        =   5741
      _ExtentY        =   661
      _Version        =   327682
      Appearance      =   1
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Вот пример кода с двумя прогресс барами на форме один 5-ой версии, второй 6-ой. После этого заменяем в контроле pbV6 слово MSComctlLib на слово ComctlLib. У меня срабатывало. После сохранения текста и запуска проекта в VB бывший 6-ой прогрессбар становился версией 5.
Таким образом, ты (ДЕЛАЕШЬ БЭКАП!!!) проходишься блокнотом по всем своим формам и в сухом остатке имеешь 75% заманифесченных контролов вместо 50%

[iGrok]

Вай?

Бикоз "по-хорошему" всё это придётся менять ручками. Причём не только сами контролы, но и часть кода, которая на них завязана.

Денис, видимо, смотрит можно ли это хоть как-то автоматизировать, а я сразу скажу, что если и можно, то далеко не всё, т.к. у них частично не совпадают интерфейсы а иногда и логика работы с контролом.

Т.е. переход на стиль XP в среднего размера проекте в твоём случае может аукнуться переписыванием где-то трети проекта..

Сорри фор вери бэд ньюс.

[Денис]

И еще стоит заметить, что для оставшихся контролов, которые никак не поддаются, существует три общеупотребительных метода:

1. Декларирование системных контролов через API;
2. Скачивание готовых контролов из сайтов с контролами;
3. Рисование своих контролов, ручками.

[Хакер]

переписыванием где-то трети проекта..

Да ну, если в проекте сто форм, думается, доля кода, которые предназначена не для дёргания контролов, несколько больше, чем 2/3.

Так вот. Предлагается сделать свою обёртку над 5-ыми контроллами, которая будет обладать интерфейсом (в смысле набора членов) 6-ой версии. Тогда надо написать лишь одну обёртку, а не править код в ста формах. Ручная замена по методу, предложенному Денисом, тогда пройдёт незаметно.

Где там у нас тот человек, который спрашивал о предназначении обёрток?

[Денис]

Ручная замена по методу, предложенному Денисом, тогда пройдёт незаметно.

Так чтоли?

После этого заменяем в контроле pbV6 слово MSComctlLib на слово ИмяОбёртки.

[Хакер]

Ну примерно.

[iGrok]

...думается, доля кода, которые предназначена не для дёргания контролов, несколько больше, чем 2/3...

Ну это если всё грамотно разрабатывалось изначально. А то пришлось мне как-то один проект поддерживать... Там почти вся логика была завязана именно на контролы. Типа использования Text1 вместо строковой переменной и т.п. =)
Вот если бы его пришлось переносить на другую версию контролов, я бы там на шнурке от мыши и повесился. )
Слава богу он уже больше не жилец. )

А насчёт обёртки - это я не подумал. Действительно, отличный вариант.

[retivykh]

Так вот. Предлагается сделать свою обёртку над 5-ыми контроллами, которая будет обладать интерфейсом (в смысле набора членов) 6-ой версии.

Как делается обертка?
Может быть речь идет о WithEvents?

[retivykh]

1. Декларирование системных контролов через API;

Как это сделать? Где можно об этом почитать?

[Денис]

1. Декларирование системных контролов через API;

Как это сделать? Где можно об этом почитать?

Уже есть готовый проект у нас на форуме. поищи ucComCtrl от Antonariy. Эта обертка над системными контролами даже лучше обертки над ax-контролами, которая предлагалась выше.

[retivykh]

поищи ucComCtrl от Antonariy

Что-то не ищется. Кто-нибудь может указать точнее?

[Viper]

поищи ucComCtrl от Antonariy

Что-то не ищется. Кто-нибудь может указать точнее?

В "Наших проектах"

[retivykh]

"Наших проектах"

В Наших проектах просмотрел все проекты Antonariy до 2006 включительно. Нет похожего ни по названию, ни по смыслу. Господа, помогите

[iGrok]

Ну не знает никто, где они на самом деле лежат. Бывает. =)
Ищется по "Common Controls своими руками".
viewtopic.php?f=28&t=36625

[retivykh]

Спасибо!

Уже есть готовый проект у нас на форуме. поищи ucComCtrl от Antonariy. Эта обертка над системными контролами даже лучше обертки над ax-контролами, которая предлагалась выше.

Попробовал на маленьком проекте.
Подключил в проект ucComCtl2.
Заменил в frmDocument.frm MSComctlLib.TabStrip на ucComCtl2.ucTabStrip.
Запустил проект. Пропали все закладки, которые были на TabStrip1 настроены из VB.
Т.е. не выполнилось из frmDocument.frm

Код: Выделить всё

     BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
         NumTabs         =   5
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Таб 1"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Таб 2"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Таб 3"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Таб 4"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628}
            Caption         =   "Таб 5"
            ImageVarType    =   2
         EndProperty
      EndProperty


В примере ucComCtl2.rar я нашел, что закладки добавляются кодом в Form_Load

Код: Выделить всё

    With ucTabStrip1
        .PageAdd "ListView"
        .PageAdd "TreeView"
    End With


Я что-то делаю не так? Или обертка не вполне соответствует?

[Хакер]

Обёртка абсолютно не соответствует.

[retivykh]

Обёртка абсолютно не соответствует.

Это ирония?
Для чего же ее порекомендовали?
Господа! Я не крутой программист на VB. Я больше специалист по логистике. Умею писать прикладные программы, но звезд с неба не хватаю.
Хочу, или хотел, придать приложению более современный вид.
Идея с оберткой понравилась.
Но тонкостей я не понимаю. Чем, например, хороша обертка от Antonariy? Подходит ли она для моего случая? Я не знаю. Подскажите. Вроде же собирались оборачивать, чтобы замена на контролы 5 стала почти механической работой.
Верно ли это предположение сейчас?
И что нужно, чтобы оно стало верно:
нужно использовать обертку Antonariy, но как-то подругому?
нужно как-то доработать обертку Antonariy, чтобы замену провести наименее трудоемко?
нужна другая обертка?
может есть другой путь?

[retivykh]

В конце концов если это единственная проблема, ну пройдусь я по формам и добавлю инициализации ucTabStrip.
С тулбарами, правда сложнее. Они есть во всех формах.
Но если это все проблемы, то ничего страшного - прблема пары дней.

[iGrok]

Это - просто пример как можно сделать такую "обёртку".
Считай это отправной точкой для разработки. Сам контрол уже готов, тебе остаётся переделать его интерфейс, чтобы не пришлось переделывать проект.

Варианта у тебя всего три:
1) Заменять вручную все контролы с 6й на 5ю версию, и переписывать весь код, который с ними взаимодействует.
2) Написать свою обёртку для каждого из контролов (тулбар, табстрип, и т.п.), взяв за основу код Antonariy, но переделав её интерфейс, максимально приблизив его к интерфейсу 6й версии контролов (это сложнее, чем первый вариант, но быстрее, т.к. кода будет существенно меньше, а твой проект практически не придётся трогать - только то, что настраивается в редакторе придётся заменить на код, впрочем, можно и это учесть в своих контролах, но придётся поработать.)
3) Забить.

[Денис]

Этим скриптом создаются вложенные элементы:

Код: Выделить всё

     BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
         NumTabs         =   5
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}


Следует позаботиться, чтобы заменитель элемента {1EFB6598-857C-11D1-B16A-00C0F0283628} (здесь Tabs) обладал свойствами контейнера контролов.

И тут к пунктам Игрока можно добавить пункт 4: Заказать обертку в разделе работа

[Хакер]

Для чего же ее порекомендовали?

Я не рекомендовал.

[Денис]

Я тоже не рекомендовал (я посоветовал в ответ на вопрос "где об этом почитать").

[Antonariy]

Ни в коем случае не 1 и 2. 1 непродуктивно, 2 еще более непродуктивно.

Саме реальное сделать то, что посоветовал Денис. Не беда, что будут несоответствия, главное, что большая часть работы будет сделана автоматически. Сотен форм у меня не было, но несколько десятков такой процедуре однажды были продвергнуты, за день добился того, что проект стал хотя бы компилироваться. Самое большое несоответствие, потребовавшее заметное время на допиливание (пол-дня), — ButtonMenus шестого тулбара, которое переделал на обычные менюшки. Остальные несоответствия заключаются всего лишь в нескольких дополнительных свойствах нескольких объектов в шестерке.
В общем, в сумме получилось дня 3-4.

[retivykh]

Спасибо. Решил пока оставить эту затею