Как сохранить настройки Toolbar'a?

[Ruslan Demidow]

Хотя бы подскажите в каком направлении копать.
Хочу сохранять положение кнопок и разделителей до следующего запуска программы.
Может кто-нибудь уже делал такое?

[DVV]

Чтение/запись файла.

[GM]

Если не ошибаюсь вот это:

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

Toolbar1.RestoreToolbar
Toolbar1.SaveToolbar


Если не то, то сохранение в файл, либо в реестр.

[Ruslan Demidow]

Чтение/запись файла.

Спасибо, я уже догадался что через чтение/запись.
Меня интересовало: как сохранить состояние toolbar (какая кнопка отображается/какая нет, положение кнопок и т.п.).

[Ruslan Demidow]

Если не ошибаюсь вот это:

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

Toolbar1.RestoreToolbar
Toolbar1.SaveToolbar


Если не то, то сохранение в файл, либо в реестр.

Ага, посмотрел методы Restore и Save - там несколько параметров. Все обязательные?
Как я понял, нужно пробежаться по коллекции кнопок в тулбаре и сохранить состояние каждой? Или как?

[Ruslan Demidow]

Использую методы SaveToolBar и RestoreToolBar - сохранять сохраняет, а вот восстанавливать не хочет.
На сайте MS в разделе MSDN есть описания бага связанного с сохранением и восстановление настроек панели инструментов.
[url]
http://support.microsoft.com/default.as ... -us;182943
http://support.microsoft.com/default.as ... -us;191105
[/url]
Там написано, что при SaveToolBar "Key","SubKey","MyToolBar" параметр "Key" игнорируется, поэтому, если использовать метод RestoreToolBar "Key","SubKey","MyToolBar" то настройки не будут найдены по пути HKEY_CURRENT_USER\Key\SubKey в параметре "MyToolBar".
Но у меня-то сохраняет по правильному пути - я специально смотрел.
Именно по этому пути значения настроек и сохраняются. Но вот читать он их оттуда не хочет .... Или хочет но не читает.
Кто-нибудь, помогите, плиз. Объясните мне, что я не правильно делаю.

Сохраняю настройки так:

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

Toolbar1.SaveToolbar "FBR", "ToolBars", "Toolbar1"


Восстанавливаю:

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

Toolbar1.RestoreToolbar "FBR", "ToolBars", "Toolbar1"


[Ruslan Demidow]

Ну так что ж, никто и никогда не использовал Toolbar'ы из стандартных контролов VB? Никто никогда не сохранял и не восстанавливал настройки тулбаров?

[A.A.Z.]

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

[Ruslan Demidow]

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

Обидно.
Сохранять придётся порядочную информацию: порядок кнопок, какие отображаюстя, какие нет и т.п.
Только вот я не понял прикола из MSDN - что у них там неправильно работает?
Вроде бы пишут что не туда сохраняется настройка. Сохраняется как раз туда, куда надо, а вот восстанавливаться никак.

[tyomitch]

Ruslan, ты чего-то делаешь не так. Я проверил - у меня всё работает. И сохраняет, и восстанавливает. VB6SP6.
Возможно, у тебя с этим проблемы:

Warning When the RestoreToolbar method is used, any toolbar buttons that do not contain ImageList ListImage object will disappear. A user can make them visible again by using the Reset button on the Customize Toolbar dialog box. You can use the Customize method to programmatically invoke this dialog box for the user.

-?

[tyomitch]

Ещё, из багов, на которые ты ссылаешься, один относится к VB5 и не имеет к тебя отношения, а другой относится как раз к восстановлению, а не сохранению тулбара. Там написано то же самое - что нужно, чтобы в нём были картинки.

[Ruslan Demidow]

Ruslan, ты чего-то делаешь не так. Я проверил - у меня всё работает. И сохраняет, и восстанавливает. VB6SP6.
Возможно, у тебя с этим проблемы:

Warning When the RestoreToolbar method is used, any toolbar buttons that do not contain ImageList ListImage object will disappear. A user can make them visible again by using the Reset button on the Customize Toolbar dialog box. You can use the Customize method to programmatically invoke this dialog box for the user.

-?

Сейчас посмотрел - у меня не задан DisabledImageList и HotImageList, установлен только ImageList.
Может быть из-за этого?
Если я в качестве всех трёх имейдж-листов выбираю один и тот же - тоже не восстанавливается.
Ладно. Буду ковырять...

[tyomitch]

У меня тоже задан только один ImageList, и точно такой же код -

Сохраняю настройки так:

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

Toolbar1.SaveToolbar "FBR", "ToolBars", "Toolbar1"


Восстанавливаю:

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

Toolbar1.RestoreToolbar "FBR", "ToolBars", "Toolbar1"


- работает.
У тебя какой SP? Может, дело в этом?

Или может, ты вызываешь это при загрузке формы?

[Ruslan Demidow]

У меня тоже задан только один ImageList, и точно такой же код -

Сохраняю настройки так:

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

Toolbar1.SaveToolbar "FBR", "ToolBars", "Toolbar1"


Восстанавливаю:

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

Toolbar1.RestoreToolbar "FBR", "ToolBars", "Toolbar1"


- работает.
У тебя какой SP? Может, дело в этом?

Или может, ты вызываешь это при загрузке формы?

Какая оперативность!!!
1) Установлен SP6
2) Восстанавливаю настройки тулбара в процедуре загрузки формы. Или нужно в Activate?

[tyomitch]

2) Восстанавливаю настройки тулбара в процедуре загрузки формы. Или нужно в Activate?

Вот-вот, ссылки на MSDN даёшь, а сам их не читаешь.

The Toolbar control will not restore a button if the button does not have an image. Also, if you try to use the RestoreToolbar method in the form Load or Activate event, it will fail.

Make sure all buttons use an image. You can create a 16x16 (pixel) bitmap and set the Mask Property of an ImageList control so the user does not see the image. Use a Timer control to restore a Toolbar when a form loads.

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

        Private Sub Form_Load()
[skipped]
        ' Uncomment the next two lines to have the Toolbars restore when
        ' the form loads.
        'Timer1.Enabled = True
        'Timer1.Interval = 1
      End Sub

      Private Sub Timer1_Timer()
        ' This will restore the Toolbars when the form first loads.
        Toolbar1.RestoreToolbar "Test", "bar1", "Toolbar1"
        Toolbar2.RestoreToolbar "Test", "bar2", "Toolbar2"
        Timer1.Enabled = False
      End Sub


[Ruslan Demidow]

Ага, самое-то интересное я и не прочитал.
Т.е. нужно сделать паузу после загрузки формы - тогда сработает?
Лишний контрол кидать придётся.
....
Ага. Так. Панель восстанавливает свои настройки. Но как-то странно:
Те кнопки, которые последний раз я изменял (положение, видна/не видна) -пропадают. Остаются одни сепараторы и все кнопки, которые стоят слева от изменяемой в последний раз.
По Custom ни в списке активных ни в списке доступных их нет.
Восстанавливается только по Reset'у.
Где я не прав?

[Ruslan Demidow]

Иногда у меня складывается такое впечатление, что многие программисты стандартные контролы VB не используют - их тянет сразу на сторонние разработки.
Взять тот же RTB - никто никогда не пробовал (может и ошибаюсь) отображать текст в OEM кодировке, тулбар - никто не реализовывал нормальное сохранение и восстановление параметров тулбара.
Про перемену мест кнопок в тулбаре я не говорю - тут всё ок. А вот если нужно убрать кнопку - то затык: кнопка убирается без проблем, но при восстановлении настройки тулбара этой убраной кнопки нет ни на панели инструментов ни в списке доступных кнопок.
Можно конечно сделать тулбар ненастраиваемым, но некузяво получается. Хочется дать юзеру свободу действий в отношени моей программы, её интерфейса и т.п.

[tyomitch]

Ruslan, ты как-то не так удаляешь кнопки - кодом, что ли? Если удалять их в диалоге кустомизации, то всё прекрасно сохраняется и восстанавливается.

[Ruslan Demidow]

Ruslan, ты как-то не так удаляешь кнопки - кодом, что ли? Если удалять их в диалоге кустомизации, то всё прекрасно сохраняется и восстанавливается.

А я как раз думал, что может быть я где-то не так делаю.
Кнопки добавляю не програмно, а на странице свойств. Даю настраивать панель инструментов тоже стандартно Toolbar1.Customize
В процедуре Form_QueryUnload сохраняю настройки тулбара. В Form_Load взвожу таймер с интервалом 1. В таймере восстанавливаю настройки.
Вроде бы всё стандартно.

[Ruslan Demidow]

ToTyomitch
Если не трудно, проверь мой тестовый проект. Если он у тебя не сглючит - значит это мой VB или система ерундой занимаются.
У меня в этом проекте кнопки не восстанавливаются.

[tyomitch]

Ruslan, чудеса в решете... Сейчас попытаюсь разобраться.
1) проблема с сепараторами - в том, что у них нет картинки. В событии Toolbar1_Change нужно пробегать по всем сепараторам и расставлять им (пустые) картинки.
2) исчезающие кнопки - это тоже отдельная (документированная!)фишка. Говорят, после RestoreToolbar нужно руками добавить в него все недостающие кнопки, и всё будет нормально.

[Ruslan Demidow]

Ruslan, чудеса в решете... Сейчас попытаюсь разобраться.
1) проблема с сепараторами - в том, что у них нет картинки. В событии Toolbar1_Change нужно пробегать по всем сепараторам и расставлять им (пустые) картинки.

Пустые это как. Вообще никакой картинки, или сделать просто какую-то картинку и присвоить её сепаратору?
В тулбар сепаратор в список доступных добавляется автоматически.
Если я добавлю свой сепаратор - то в списке будет два разделителя.
Один от VB, второй мой.
Второе - если пользователь изменит фоновый цвет формы (темы Windows), то панель инструментов изменит цвет, а разделитель нет.

2) исчезающие кнопки - это тоже отдельная (документированная!)
фишка. Говорят, после RestoreToolbar нужно руками добавить в него все недостающие кнопки, и всё будет нормально.

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

[tyomitch]

1) проблема с сепараторами - в том, что у них нет картинки. В событии Toolbar1_Change нужно пробегать по всем сепараторам и расставлять им (пустые) картинки.

Пустые это как. Вообще никакой картинки, или сделать просто какую-то картинку и присвоить её сепаратору?

Просто какую-то; говорят, её рисунок всё равно нигде не рисуется. Сейчас проверю, кстати.

В тулбар сепаратор в список доступных добавляется автоматически.
Если я добавлю свой сепаратор - то в списке будет два разделителя.
Один от VB, второй мой.

Дык ты не собственный сепаратор должен создать, а {выделенное сверху}.

2) исчезающие кнопки - это тоже отдельная (документированная!)
фишка. Говорят, после RestoreToolbar нужно руками добавить в него все недостающие кнопки, и всё будет нормально.

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

Ага, самый настоящий полтергейтс
Сейчас ещё поковыряю.

[Ruslan Demidow]

1) проблема с сепараторами - в том, что у них нет картинки. В событии Toolbar1_Change нужно пробегать по всем сепараторам и расставлять им (пустые) картинки.

Пустые это как. Вообще никакой картинки, или сделать просто какую-то картинку и присвоить её сепаратору?

Просто какую-то; говорят, её рисунок всё равно нигде не рисуется. Сейчас проверю, кстати.

Давай...

В тулбар сепаратор в список доступных добавляется автоматически.
Если я добавлю свой сепаратор - то в списке будет два разделителя.
Один от VB, второй мой.

Дык ты не собственный сепаратор должен создать, а {выделенное сверху}.

Ага, понял. Т.е. когда пользователь в окне настройки тулбара добавляет разделитель - то VB сам пихает в коллекцию кнопок разделители. Но вот в чём прикол, если добавить кнопку (на этапе разработки) в панель инструментов и не вводить текст и не присваивать картинку из ImageList'а , тогда кнопка так и не отобразится на панели. Если же ввести кнопку-разделитель (сепаратор), то VB даже не спрашивая о картинке тут же отображает разделитель на панели. Значит он и так знает какую картинку присваивать разделителю. Ну а если он знает, почему же тогда он не может вспомнить, уже не знаю при сохранении или восстановлении настроек, какая должна быть картинка у разделителя?
Я вообще стал использовать тулбар потому, что меня прельстила эта самая возможность дать пользователю настроить панель инструментов под себя. Кнопок планирую создать "на все случаи жизни" , а там уж пусть пользователь решает, какие оставить, а какие убрать с глаз долой.

2) исчезающие кнопки - это тоже отдельная (документированная!)
фишка. Говорят, после RestoreToolbar нужно руками добавить в него все недостающие кнопки, и всё будет нормально.

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

Ага, самый настоящий полтергейтс
Сейчас ещё поковыряю.

Во-во, без Гейтса здесь не обошлось.

[tyomitch]

Ruslan, посмотри тулбар на http://www.vbaccelerator.com/home/VB/Co ... rticle.asp - он вроде бы может сохранять настройки.
Со стандартным я не знаю что делать. После того, как я добавляю или удаляю кнопки в диалоге кустомизации, Buttons.Count не меняется 8-[

[edit] [/edit]

[Ruslan Demidow]

Роман, посмотри тулбар на http://www.vbaccelerator.com/home/VB/Co ... rticle.asp - он вроде бы может сохранять настройки.
Со стандартным я не знаю что делать. После того, как я добавляю или удаляю кнопки в диалоге кустомизации, Buttons.Count не меняется 8-[

Ясно, спасибо за участие.
P.S. Я всё же потихоньку буду добивать стандартный тулбар. Пока же на замену возьму тот, который предложил ты.
Ещё раз спасибо, Артём.

[Ruslan Demidow]

В догонку:

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

Private Sub Timer1_Timer()
             Debug.Print "До восстановления..."
            ButtonsInfo
             Toolbar1.RestoreToolbar "FBR", "ToolBars", "Toolbar1"
            Debug.Print "После восстановления..." & vbCrLf
            ButtonsInfo
            Timer1.Enabled = False
            Toolbar1.Visible = True

End Sub

Sub ButtonsInfo()
    Dim iButton As MSComctlLib.Button
    Dim i As Integer
       With Toolbar1
            For Each iButton In .Buttons
                i = i + 1
                Debug.Print "======================="
                Debug.Print "Index =" & iButton.Index
                Debug.Print "Key=" & iButton.Key
                Debug.Print "Image =" & iButton.Image
                Debug.Print "Width =" & iButton.Width
                Debug.Print "Height =" & iButton.Height
                Debug.Print "Style =" & iButton.Style
                Debug.Print "Visible =" & iButton.Visible
                Debug.Print "Value =" & iButton.Value & vbCrLf
            Next
        End With
End Sub

Immediate Window
------------------------------------------
До восстановления...
=======================
Index =1
Key=OpenBase
Image =1
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =2
Key=SelectArea
Image =2
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =3
Key=Find
Image =3
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =4
Key=ExpandTread
Image =4
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =5
Key=CollapseTread
Image =5
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =6
Key=SaveMail
Image =6
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =7
Key=SaveTread
Image =7
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =8
Key=Settings
Image =8
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =9
Key=Exit
Image =9
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

После восстановления...

=======================
Index =1
Key=OpenBase
Image =1
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =2
Key=SelectArea
Image =2
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =3
Key=Find
Image =3
Width =345,2599
Height =329,9528
Style =0
Visible =True
Value =0

=======================
Index =4
Key=ExpandTread
Image =4
Width =0
Height =0
Style =0
Visible =True
Value =0

=======================
Index =5
Key=CollapseTread
Image =5
Width =0
Height =0
Style =0
Visible =True
Value =0

=======================
Index =6
Key=SaveMail
Image =6
Width =0
Height =0
Style =0
Visible =True
Value =0

=======================
Index =7
Key=SaveTread
Image =7
Width =0
Height =0
Style =0
Visible =True
Value =0

=======================
Index =8
Key=Settings
Image =8
Width =0
Height =0
Style =0
Visible =True
Value =0

=======================
Index =9
Key=Exit
Image =9
Width =0
Height =0
Style =0
Visible =True
Value =0


Как видно, после восстановления ширина и высота кнопок которые оказались справа от последней настраиваемой равны нулю.
И несмотря на то, что я добавлял сепараторы - их в коллекции и не видно.