Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 请教,如何模拟配置栏菜单(PerformClick)


  共有1820人关注过本帖树形打印复制链接

主题：[求助] 请教,如何模拟配置栏菜单(PerformClick)
帅哥哟，离线，有人找我吗？
coch2004
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：604 积分：6982 威望：0 精华：0 注册：2012/5/30 16:01:00 		[求助] 请教,如何模拟配置栏菜单(PerformClick)  发帖心情 Post By：2015/12/8 21:29:00 [只看该作者]

同上题.谢谢!

Dim trv1 As WinForm.TreeView = e.Form.Controls("tr1")
Dim trd1 As WinForm.TreeNode= trv1.SelectedNode
If trd1 IsNot Nothing Then
    If trd1.Level=1 Then
        'Forms(trd1.name).Show
        Dim itm As RibbonMenu.RibbonItem
        For Each itm In configbar.Items(trd1.ParentNode.Name).items
            If itm.Gettype().Name="Button" Then
                If itm.Name=trd1.Name Then
                    Dim btn As RibbonMenu.Button
                    btn=itm
                    btn.PerformClick()   '此处无反应! 
                End If
            End If
        Next
    End If
End If

[此贴子已经被作者于2015/12/8 21:32:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/8 21:40:00 [只看该作者]

汗，你加上msgbox，看计入哪个判断了。

 

If itm.Gettype().Name="Button" Then

 

改成

 

If TypeOf itm As RibbonMenu.Button Then
 回到顶部
帅哥哟，离线，有人找我吗？
coch2004
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：604 积分：6982 威望：0 精华：0 注册：2012/5/30 16:01:00 		  发帖心情 Post By：2015/12/8 21:45:00 [只看该作者]

大红袍,我知道什么原因了,但我自己目前是无法解决了. 
原因: 我的配置栏菜单是动态生成的,不是在实体配置菜单下写的代码
代码内容是通过 菜单事件的一个自定义函数来完成的!!!!!

我测试过,如果是实体配置栏菜单下的代码是可以执行的...  目前水平有限,好像无解.呵呵
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/8 22:19:00 [只看该作者]

 既然是用自定义函数来完成的，那你就可以直接调用函数的代码来做啊。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询