主题：自动生成自定义菜单

老师，我自定义菜单生成出来是这样的：

 
此主题相关图片如下：01.png

怎么图标很小，要下面这样的效果怎么修改，怎么增加分割条？

此主题相关图片如下：02.png

设置大图标：http://www.foxtable.com/webhelp/scr/1067.htm

1、设置大图标的图片；

 

2、有分割条控件的，直接加入即可。

有点蓝老师，通过菜单设计那个会了，我是通过菜单表自动生成菜单来的，只生成小图标，没法生成大图标和分隔条。

上传例子或者贴出代码

 

你要指定图片 b.LargeImage = getimage("d:\test.ico")

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

Dim dt As DataTable = DataTables("菜单表")
For Each dr As DataRow In dt.DataRows
    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("菜单标题")
            nmenu.smallImage = getimage(dr("图标"))
            ngrp.Items.Add(nmenu)   '加入菜单
        Case "快速访问栏"
            If dr.Isnull("功能区") Then
                '编译一个生成不同菜单的函数
                Functions.Remove("CreateMenu")
                Dim Code As String = ""
                Code = "Dim menu As New " & dr("菜单类型") & "(""" & dr("菜单标题") & """)" & vbcrlf
                Code = Code & "Return menu"
                Functions.Add("CreateMenu", Code)
                Functions.Complie()
                Dim nmenu As Object = Functions.Execute("CreateMenu")
                nmenu.Text = dr("菜单标题")
                QAT.Items.Add(nmenu)
            Else
                '编译一个生成不同菜单的函数
                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("菜单标题")
                QAT.Items(dr("功能区")).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("菜单标题")
            nmenu.smallImage = getimage(dr("图标"))
            ConfigBar.Items.Add(nmenu)
    End Select
Next

加一句

 

nmenu.LargeImage = getimage(dr("图标"))

有点色老师，这个功能组比狐表自带的做出来间距小，这个间距宽度怎么调整呢？

 

实例发上来看看。