主题：[求助]动态生成的菜单，无法执行代码

    For Each dr As DataRow In drs

        If dr("项类型") = "RibbonMenu.Separator" Then

            Dim rb As New RibbonMenu.Separator(dr("功能项"))

            RibbonTabs(dr("功能区")).Groups(dr("功能组")).Items.Add(rb)

        Else

            Dim rb As New RibbonMenu.Button(dr("功能项"))

            rb.Text = dr("功能项")

            rb.LargeImage = GetImage(ProjectPath & "Images\" & dr("图标"))

            rb.TextImageRelation = TextImageRelationEnum.ImageAboveText

            RibbonTabs(dr("功能区")).Groups(dr("功能组")).Items.Add(rb)

        End If

    Next

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