Foxtable(狐表)用户栏目专家坐堂 → 请教:菜单的组合按钮点击后是否可以返回一个被点击的名称?


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

主题:请教:菜单的组合按钮点击后是否可以返回一个被点击的名称?

帅哥哟,离线,有人找我吗?
dogman
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1036 威望:0 精华:0 注册:2013/9/2 18:25:00
请教:菜单的组合按钮点击后是否可以返回一个被点击的名称?  发帖心情 Post By:2017/12/18 16:52:00 [只看该作者]

在菜单中设置一个组合按钮“打开表”

DropDown事件如下:
e.SplitButton.Items.Clear
For Each t As Table In Tables
    Dim a As String = t.DataTable.Name
    Dim b As New RibbonMenu.Button(a)
    b.Text = a
    e.SplitButton.Items.Add(b)
Next
这样点击后可以看到所有的表名

 

但是不知道怎样在选择点击后能返回这某个表名呢?

 

想点击后在DropDownClosed事件中能打开这个表:
Dim _打开表 As RibbonMenu.SplitButton = RibbonTabs("管理").Groups("辅助").Items("打开表")
If _打开表.Text <> "" Then
    'Tables(_打开表.text).Visible = True
End If

 

而Text只返回组件的标题,不是返回点击的表名,所以代码不对哦。

请教各位大神图片点击可在新窗口打开查看代码该如何写。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/18 17:10:00 [只看该作者]

需要去编写【主菜单】->事件->【click】

 

根据e.Sender.Name或者e.Sender.Text,打开对应的表即可。

 

If Tables.Contains(e.sender.name) then

    maintable = Tables(e.sender.name)

End If


 回到顶部
帅哥哟,离线,有人找我吗?
dogman
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:88 积分:1036 威望:0 精华:0 注册:2013/9/2 18:25:00
  发帖心情 Post By:2017/12/18 17:29:00 [只看该作者]

谢谢

 回到顶部