以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  菜单设计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57154)
--  作者：zhupengfei
--  发布时间：2014/9/19 10:59:00
--  菜单设计
我在窗口中，设计一个确定按钮，一个文本框，来给菜单ComboBox中添加标准按钮。
xm 是一个文本框，是用户用来给添加的按钮命名的。如下代码。确定按钮的代码写了：

Dim xz As RibbonMenu.ComboBox = RibbonTabs("人事档案").Groups("设置").Items("视图选择")
Dim b As New RibbonMenu.Button(xm.value) 
b.text = xm.value
xz.Items.Add(b)

我想在添加标准按钮时做个限制。如果存在重名的按钮，就提示操作无效。

如何写代码。
--  作者：有点甜
--  发布时间：2014/9/19 11:01:00
--  

 

[此贴子已经被作者于2014-9-19 11:01:34编辑过]
--  作者：zhupengfei
--  发布时间：2014/9/19 11:04:00
--  
逗我吗。大师
--  作者：Bin
--  发布时间：2014/9/19 11:04:00
--  
if xz.Items.Contains(b) then
   messagebox.show("无效")
else 
   xz.Items.Add(b)
end if

如果不行.那只能遍历所有Items 一个个判断了
--  作者：有点甜
--  发布时间：2014/9/19 11:06:00
--  
Dim xz As RibbonMenu.ComboBox = RibbonTabs("人事档案").Groups("设置").Items("视图选择")
Dim flag As Boolean = True
For Each item As object In xz.Items
    If item.name = xm.value Then
        flag = False
        msgbox("重名")
    End If
Next
If flag Then
    Dim b As New RibbonMenu.Button(xm.value)
    \'b.text = xm.value
    xz.Items.Add(b)
End If
--  作者：zhupengfei
--  发布时间：2014/9/19 11:07:00
--  
感谢，我试试
--  作者：zhupengfei
--  发布时间：2014/9/19 11:08:00
--  
感谢
--  作者：zhupengfei
--  发布时间：2014/9/19 15:10:00
--  
为什么，我用此代码添加的菜单按钮，在项目重启后，按钮消失了，是不是有个保存的代码，如何写。
--  作者：有点甜
--  发布时间：2014/9/19 15:12:00
--  
以下是引用zhupengfei在2014-9-19 15:10:00的发言：
为什么，我用此代码添加的菜单按钮，在项目重启后，按钮消失了，是不是有个保存的代码，如何写。

 

用代码添加的，不会自动保存。

 

如果要保存，就把内容填到表里面，打开项目的时候，根据表内容重新生成。