主题：生成菜单问题

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

点击浏览该文件:管理项目2.foxdb

通达代码生成的菜单这什么达不到这样的效果

无语，改了代码的啊。照抄原来例子的代码啊。

 

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

 

代码与1楼没有区别呀

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

点击浏览该文件:生成菜单(1).table

LockBaseMainForm() '锁定主窗口

 

RibbonTabs.Clear
QAT.Items.Clear
ConfigBar.Items.Clear

Dim drs As List(Of DataRow)
drs = DataTables("菜单表").Select("类型='" & e.sender.text & "'", "_Identify")
For Each dr As DataRow In drs
   
    Select Case dr("类型")
        Case "功能区"
            Dim ntab As RibbonMenu.Tab
            Dim ngrp As RibbonMenu.Group
            Dim nmenu As Object
           
            If RibbonTabs.Contains(dr("功能区")) Then
                ntab = RibbonTabs(dr("功能区"))
            Else
                ntab = New RibbonMenu.Tab(dr("功能区"))
                RibbonTabs.Add(ntab)
            End If
           
            If ntab.Groups.Contains(dr("功能组")) Then
                ngrp = ntab.Groups(dr("功能组"))
            Else
                ngrp = New RibbonMenu.Group(dr("功能组"))
                ntab.Groups.Add(ngrp)
            End If
           
            '编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"
           
            Functions.Add("CreateMenu", Code)
            Functions.Complie()
           
            nmenu = Functions.Execute("CreateMenu")
           
            ntab.Text = dr("功能区")
            ngrp.Text = dr("功能组")
            nmenu.Text = dr("菜单标题")
           
            ngrp.Items.Add(nmenu)   '加入菜单
        Case "快速访问栏"
            '编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"
           
            Functions.Add("CreateMenu", Code)
            Functions.Complie()
           
            Dim nmenu As Object = Functions.Execute("CreateMenu")
            nmenu.Text = dr("菜单标题")
            If dr("功能区") <> Nothing Then
                Dim fdr = dr.DataTable.Find("菜单标题='" & dr("功能区") & "'")
                qat.Items(cstr(fdr("_Identify"))).items.Add(nmenu)
            Else
                QAT.Items.Add(nmenu)
            End If
        Case "配置栏"
            '编译一个生成不同菜单的函数
            Functions.Remove("CreateMenu")
            Dim Code As String = ""
            Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("_Identify") & """)" & vbcrlf
            Code = Code & "Return menu"
           
            Functions.Add("CreateMenu", Code)
            Functions.Complie()
           
            Dim nmenu As Object = Functions.Execute("CreateMenu")
            nmenu.Text = dr("菜单标题")
            ConfigBar.Items.Add(nmenu)
    End Select
Next
UnLockBaseMainForm() '解锁主窗口

如何让增加的标准按钮水平排列？

 

回复5楼，这个没办法的。你直接在【菜单设计】那里设置，也是这样排列的。

 

除非你给菜单控件设置一个大图标。

点新增，可以执行代码；如果点人事，也执行某代码，3楼项目的代码如何设置？

 

功能区没有click事件，只有selectTab事件。如果有需要你可以去写【主菜单】的selectTab事件代码。

 

 

如何用代码设置大图标？

得到菜单，生成菜单后，设置 largeImage

 

http://www.foxtable.com/webhelp/scr/3081.htm