您的位置：程序门 -> .net技术 -> vb.net



在vb.net中如何取得 如文件菜单下的所有子菜单？


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


在vb.net中如何取得 如文件菜单下的所有子菜单？[无满意答案结贴,结贴人:lovesmileman]
发表于：2007-07-30 16:13:06 楼主
在vb.net中如何取得   如文件菜单下的所有子菜单？
如菜单如ie的文件菜单项，我要取得她下面的   新增、打开、保存、另存等等菜单项是不确定的，可能子菜单下还有子菜单，不知道如何处理？
发表于：2007-07-30 16:52:171楼 得分:0
你是想获取.net本身的，还是ie的之类的其他应用程序的？

==================================================================
博客空间：http://blog.csdn.net/lovingkiss
资源下载：http://download.csdn.net/user/lovingkiss
email：loving-kiss＠163.com
优惠接单开发，收费带初学者，组件控件定制开发，成品源代码批发
联系方式：ｑ64180940（请清楚注明业务还是技术咨询)     全天在线
==================================================================
发表于：2007-07-30 17:23:012楼 得分:0
自己解决

                                for   each   ltsddm_menu   in   ltsi_menup.dropdownitems
                                        if   typeof   ltsddm_menu   is   toolstripmenuitem   then
                                                if   ltsddm_menu.name   =   "menui_frmmodpwd "   or   ltsddm_menu.name   =   "menui_relogin "   or   ltsddm_menu.name   =   "menui_close "   then   '修改密码、重新登录、关闭不注册
                                                        continue   for
                                                end   if

                                        end   if
                                next
发表于：2007-07-31 09:07:033楼 得分:0
汗~~自己解决就好。

==================================================================
博客空间：http://blog.csdn.net/lovingkiss
资源下载：http://download.csdn.net/user/lovingkiss
email：loving-kiss＠163.com
优惠接单开发，收费带初学者，组件控件定制开发，成品源代码批发
联系方式：ｑ64180940（请清楚注明业务还是技术咨询)     全天在线
==================================================================
发表于：2007-07-31 15:49:524楼 得分:0
贴一个采用递归算法遍历，实现将菜单加载到树控件的例程供你参考：
----------------------------------------------------------------------------------------------------------------------------
例程来源：人民邮电出版社出版的书《visual   basic   .net   2005数据库编程技术与实例》
详情请见：http://www.ptpress.com.cn/books/book_information.asp?bid=16271
----------------------------------------------------------------------------------------------------------------------------
    friend   sub   loadmenutotree（byval   otree   as   treeview)

        otree.checkboxes   =   true

        otree.nodes.clear（)

        otree.nodes.add（m_roottext)

        dim   onode   as   treenode

        onode   =   otree.nodes（0)

        dim   itm   as   object

        dim   i   as   integer   =   0

        for   each   itm   in   m_mymainmenustrip.items

            if   （itm.text   <>   "- ")   then

                onode.nodes.add（itm.text)

                if   itm.dropdownitems.count   >   0   then

                    loadchildmenutotree（itm,   onode.nodes（i))

                end   if

                i   =   i   +   1

            end   if

        next

        otree.expandall（)

    end   sub

    private   sub   loadchildmenutotree（byval   mitem   as   toolstripmenuitem,   byval   onode   as   treenode)

        dim   itm   as   object

        dim   i   as   integer   =   0

        for   each   itm   in   mitem.dropdownitems

            if   itm.gettype（).tostring   =   "system.windows.forms.toolstripmenuitem "   then

                onode.nodes.add（itm.text)

                if   itm.dropdownitems.count   >   0   then   loadchildmenutotree（itm,   onode.nodes（i))

                i   =   i   +   1

            end   if

        next

    end   sub


相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击