| |
 13 Кб. |
|
| | Переделал с учетом пожеланий, Кости и заказчика
Просьба (кому интересно) потестировать. И высказать свое мнение, и пожелания
Кое что поменялось
Есть 3 свойство и 3 метода
свойства:
FirstRow - Integer строка с которой на листе Excel будет расположен заголовок (если есть) или корневые категории (по умолчанию 1)
Title - String - заголовок для дерева
LevelStyleAsInTree - Boolean - устанавливает стиль и размер шрифта как в дереве, если установлено в TRUE, то в этом случае все настройки для уровня заданные методом SetLevelStyle игнорируются
Методы:
SetLevelStyle - устанавливает параметры шрифта для уровня
.SetLevel (Номер уровня, Размер шрифта, Код цвета для Шрифта,Код цвета Фона,Жирный, Наклонный)
Цвета пожно передавать в RGB в приципе класс должен сам разбираться что и как ...
например так:
pr.SetLevel 5, 15, 8, ,True, True
|
Для пятого уровня выставляем шрифт размером 15, цвет красный, фона нет, Жирный, наклонный.
можно не использовать по умолчанию шрифт 10, черный, простой, заливки нет.
Метод SetTitleStyle - настроки для заголовка параметры как у SetLevelStyle только без указания номера уровня
Метод PrintTree - собственно вывод в Excel в качестве параметра нужно указать Treeview например
pr.PrintTree Me.TreeVWGroup
|
Пример вызова:
Dim pr As clsPrintTree
Set pr = New clsPrintTree
pr.SetTitleStyle 25, 3, 12, True ' Выставляем стиля для заголовка
pr.SetTitleStyle Level 1, 12, 3, 8,True ' выставляем шрифт для перовго уровня, остальные по умолчанию
pr.FirstRow = 10 ' в Excel расположить с 10-й строки
pr.PrintTree Me.TreeVWGroup ' собственно печать контрола TreeVWGroup
|
Для Новичков:
Естественно DLL предварительно нужно регистрить ( c:\WINDOWS\system32\regsvr32.exe TreeView2Excel.dll) и устаноить из ACCESS ссылку на 'Export TreeView control to Ms Excel"
ВАЖНО:
Пока не понятно с правами ... заказчик вроде хочет делать какой-то платный набор тулзов... в общем в этой версии названия веток обрезаются до 5 символов. А то вдруг платить откажутся | |
| |
| |
| |
|
|
| | Олег, а перерегистировать ддл нужно, или просто подменить?  | |
| |
| |
|
|
| |
14 Кб. |
|
| | По результатам испытаний
1. Ошибки модуля лучше выдавать совокупно в конце его работы, а не по каждому узлу (а то я запипикался 100 раз жать ОК на ошибку  )
2. На установку в тру LevelStyleAsInTree вышли 2 типа ошибок (см. файл).
Остальное нормально | |
| |
| |
| |
|
|
| | Гы.. интересные ошибки у тебя вылетают...
это при LevelStyleAsInTree = truе?
а при LevelStyleAsInTree = False ошибки были? | |
| |
| |
| |
|
|
| | при False все ОК
да, кстати, у тебя в примере использовании опечатка
pr.SetTitleStyle 25, 3, 12, True ' Выставляем стиля для заголовка
pr.SetTitleStyle Level 1, 12, 3, 8,True ' выставляем шрифт для перовго уровня, остальные по умолчанию
|
я так понимаю надо
pr.SetLevelStyle 1,12, 3, 8,True
|
| |
| |
| |
|
|
| |
13 Кб. |
|
| | Я поправил причину возникновения ошибки... (очепятка блин) 
А обработчик ошибок поправлю вечером... (ночью)
Проверь плиз | |
| |
| |
|
|
| |
|
|
| | а теперь такой вопрос...
Тебе такая фича нужна? | |
| |
| |
| |
|
|
| | Вот и дошли до главного 
Честно говоря пока такой нужды не было.
Да и если бы была, то сам бы наваял приблуду какую нибудь.
Ну так это будет головняк заказчика. Значит он знает где это применить  | |
| |
| |
