以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动生成功能区  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67306)

--  作者:联友
--  发布时间:2015/4/22 9:07:00
--  自动生成功能区
能用代码自动生成功能区吗?请指点。谢谢俄!
--  作者:Bin
--  发布时间:2015/4/22 9:18:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=24857&skin=0
--  作者:联友
--  发布时间:2015/4/22 14:47:00
--  
谢谢
--  作者:联友
--  发布时间:2015/4/22 15:26:00
--  

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip

[此贴子已经被作者于2015/4/22 15:27:44编辑过]

--  作者:Bin
--  发布时间:2015/4/22 15:32:00
--  
目录树生成功能区?

选择功能区打开对应窗口只需要在功能区的SelectTab 事件里写入代码即可

if e.tab.name ="XX" then
  forms("XX").show
end if

--  作者:联友
--  发布时间:2015/4/22 17:50:00
--  
是后来自动生成的,没办法在功能区的SelectTab 事件里写入代码
[此贴子已经被作者于2015/4/22 17:50:12编辑过]

--  作者:联友
--  发布时间:2015/4/22 20:44:00
--  

功能区 窗口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


--  作者:狐狸爸爸
--  发布时间:2015/4/23 8:34:00
--  

在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

 

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

 


--  作者:联友
--  发布时间:2015/4/23 14:10:00
--  
谢谢