怎么保存工具条的状态?包括所有的按钮?
对工具条上的按钮进行编辑(比如:删除了一个按钮)关闭工程以后,重新启动工程后,怎么设置成编辑后的状态?(如果下次再编辑时也可以把原来删掉的按钮还原??)

解决方案 »

  1.   

    SaveToolbar 方法
          在运行时,把用 Toolbar 控件创建的工具栏的状态保存在注册表中。语法object.SaveToolbar(key As String, subkey As String, value As String)SaveToolbar 方法的语法包含下面部分:部分 描述 
    object 必需的。对象表达式,其值是 Toolbar 控件。 
    key 必需的。字符串表达式,它指定注册表中的关键字,而注册表是保存 Toolbar 信息的地方。 
    subkey 必需的。字符串表达式,它在注册表中指定 key 参数下的位置。 
    value 必需的。保存在 subkey 中的 Toolbar 信息。 
    说明为了在运行时自定义 Toolbar 控件,应在代码中使用 Customize 方法,而如果 AllowCustomize 属性是 True 的话,则用户可通过双击控件来自定义。如果注册表中不存在已指定的 key,subkey 或 value,则应创建它。为保存多个版本的工具栏,应更改 subkey 或 value 参数。这会使工具栏写到注册表的不同部分。在已自定义了工具栏之后,下列代码保存工具栏的两个不同状态。'为 User1 保存设置值
    Toolbar1.SaveToolbar "AppName", "User1", "Toolbar1"'为 User2 保存设置值
    Toolbar1.SaveToolbar "AppName", "User2", "Toolbar1"因为在自定义工具栏之后才发生 Toolbar 控件的 Change 事件,所以在大多数情况下,可将上述代码放置在工具栏的 Change 事件中。
      

  2.   

    RestoreToolbar 方法
          将 Toolbar 控件创建的工具栏恢复到自定义后的最初状态。语法object.RestoreToolbar(key As String, subkey As String, value As String)RestoreToolbar 方法的语法包含下面部分:部分 描述 
    object 必需的。对象表达式,其值是 Toolbar 控件。 
    key 必需的。字符串表达式,它指定 Windows 注册表中的关键字,而注册表是用这种方法检索 Toolbar 信息的地方。 
    subkey 必需的。字符串表达式,它在注册表中指定 key 参数下的一个子键。 
    value 必需的。字符串表达式,它标识 subkey 之下的值,而 subkey 是注册表中保存 Toolbar 信息的地方。 
    说明警告 当使用 RestoreToolbar 方法时,任何不包含 ImageList ListImage 对象的工具栏按钮都会消失。用户可再次使用自定义工具栏对话框上的复位按钮使它们可见。可用方法编程调用该对话框。为在运行时自定义 Toolbar 控件,应在代码中使用 Customize 方法,而如果 AllowCustomize 属性是 True 的话,则用户可通过双击控件来自定义。可用 SaveToolbar 方法将工具栏的状态保存在注册表中。通过读取注册表,RestoreToolbar 方法可恢复工具栏的状态。下列代码为当前用户恢复 Toolbar 控件的设置值,不过要假设先前已经用 SaveToolbar 方法将它们保存起来了。Toolbar1.RestoreToolbar "AppName", "User1", "Toolbar1"
      

  3.   

    不行呢,不过这是微软的Bug,我已经搞定了。
    Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. We are researching this bug and will post new information here in the Microsoft Knowledge Base as it becomes available. 
    具体请参见:
    http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q191/1/05.asp&NoWebContent=1