主题：自动生成功能区

能用代码自动生成功能区吗？请指点。谢谢俄！

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=24857&skin=0

谢谢

能用目录树节点生成功能区吗？ 生成功能区后，选择功能区打开对应窗口。请指点。谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.zip

目录树生成功能区?

是后来自动生成的，没办法在功能区的SelectTab 事件里写入代码

功能区 窗口1、窗口2自动生成的，选择功能区“窗口1”打开 “窗口1”窗口。请指点

此主题相关图片如下：qq截图20150422203437.png

目录树代码：
If e.node.text ="窗口1"  Then
      Dim btnAdd1 As New RibbonMenu.Tab("abc")
      btnAdd1.Text = e.node.text
      RibbonTabs.Add(btnAdd1)
      Forms("窗口1").Open()
      MainTable = Tables("表A")
    End If
If e.node.text ="窗口2"  Then
      Dim btnAdd1 As New RibbonMenu.Tab("abc")
      btnAdd1.Text = e.node.text
      RibbonTabs.Add(btnAdd1)
      Forms("窗口2").Open()
      MainTable = Tables("表B")
    End If

在systemIdel事件写代码：

if RibbonTabs.SelectedTab.Name = "abc" then

   If Forms("窗口1").Opened = False then

        Forms("窗口1").Open
   End if

   If MainTable.Name <> "表A" then

       MainTable = Tables("表A")

   End If

End If

 

http://www.foxtable.com/help/topics/2483.htm

 

还有，你的目录树代码有问题，哪有每次点击都新生成一个功能区的？ 应该是提前一次性生成所有功能区，然后根据需要切换。

 

谢谢