[求助]菜单的可用不可用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍老师，

向您求得菜单代码了

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=72355&authorid=9150

在问您一下如何使菜单的拉的某一项不可用代码怎么写呢

类似于 Enable=false/true

老师，

这个怎么锁定

Dim tab= e.Form.Controls("TabControl1").Basecontrol

Dim dt As DataTable=Functions.Execute("loading","AS002分类编码方案",0,"基础档案名称='AS012菜单生成'")

Dim dt1 As DataTable=Functions.Execute("loading","AS012菜单生成",0,"1=1")

Dim gz As String = dt.DataRows(0)("编码规则")

For Each p As object In tab.TabPages

Dim menuStrip As new System.Windows.Forms.MenuStrip()

Dim ft As String= "(',' + [窗口名称] + ',') Like '%," & p.text & ",%'"

For Each dr As DataRow In dt1.Select(ft,"编码规则")

If dr.IsNull("编码规则") = False AndAlso dr("编码规则").Length = val(gz(0)) Then

Dim tsmi As new System.Windows.Forms.ToolStripMenuItem

tsmi.name = dr("编码规则")

tsmi.Text = dr("编码名称")

menuStrip.Items.Add(tsmi)

’tsmi.Enabled = False‘ 希望菜单，下面的二级项目锁定

AddHandler tsmi.Click, AddressOf menu_Click

Functions.Execute("menusetup",tsmi,dt1,gz)

End If

P.Controls.add(menuStrip)

'menuStrip.Items(9401).Enabled = True 希望菜单，下面的二级项目某个项目不锁定

红袍老师，

例子是这个的

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72508&authorid=0&page=0&star=2

Dim menu = e.Form.baseform.controls("菜单") 窗口4这句不知怎么写

下载信息 [文件大小：下载次数： ]
点击浏览该文件:菜单 (1).table

哦老师另外一个窗口是为了测试可能把您误解了；

这块就是想把某个菜单下下级给他ENABLE了

太棒了谢谢老师周末愉快

红袍老师，

还得麻烦您，我试着想要循环菜单，让所有的菜单变成不可用，用下面代码可以实现

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

'循环菜单全部确认为false开始

Dim bmgzname As New List(Of String)

Dim drs1 As List(Of DataRow)=DataTables("AS012菜单生成").Select("[是否末级]=true")‘递归只选择末级

For Each dr As DataRow In drs1

bmgzname.Add(dr("编码规则"))

Dim i1 As Integer

Dim cdname As String

For i1=0 To bmgzname.Count-1

cdname=""

cdname=bmgzname(i1)

Dim menu = e.Form.controls("TabControl1").Basecontrol.controls("系统管理").Controls("系统管理")

Dim item = menu.Items(cdname.SubString(0,2)).DropDownItems(cdname)

If item.DropDownItems.Count = 0 Then

item.Enabled = False

End If

'循环菜单全部确认为false结束

有没有其他的方式或是代码？

o 老师我的意思上述代码对二级没问题如果是三级就有难度了

我的意思想问问您没有好的代码直接循环菜单的命令

例如 FOR EACH CD as menu.Item IN menu

IF CD.NAME="9401"

...

END IF

[此贴子已经被作者于2015/9/2 12:30:38编辑过]

主题：[求助]菜单的可用不可用