Foxtable(狐表) → 用户栏目 → 专家坐堂 → 快捷菜单的问题


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

主题：快捷菜单的问题
帅哥哟，离线，有人找我吗？
有点色
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 11:20:00 [显示全部帖子]

 做一个隐藏的button，放在工具栏下面，适当调整坐标即可

 

Dim btn As WinForm.Button = e.form.controls("Button1")
btn.ShowContextStrip(0, 0, e.Form.Strips("快捷菜单1"))
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 12:18:00 [显示全部帖子]

以下是引用rjh4078在2017/4/6 11:48:00的发言：
我看了下动态生成菜单项目这个  我也可以考虑代码生成 但是工具栏好像没有相关方法啊

 

没看懂你的意思，红色的位置，不是可以任意修改？

 

Dim btn As WinForm.Button = e.form.controls("Button1")
btn.ShowContextStrip(0, 0, e.Form.Strips("快捷菜单1"))
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 14:55:00 [显示全部帖子]

 没看懂你要做什么，实例上传上来。

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 16:57:00 [显示全部帖子]

以下是引用rjh4078在2017/4/6 16:53:00的发言：
就是在工具栏的一级菜单下再生成二级菜单

 

动态显示一个快捷菜单不就行了？

 

http://www.foxtable.com/webhelp/scr/3116.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 18:02:00 [显示全部帖子]

以下是引用rjh4078在2017/4/6 18:00:00的发言：
工具栏哪有这个方法

 

所以就不用工具栏的，用按钮的。把按钮隐藏或者放在一个看不见的位置。然后坐标不是可以随便调整吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/4/6 19:12:00 [显示全部帖子]

 参考代码

 

Dim point As Point = e.StripItem.BaseControl.Bounds.Location
msgbox(point.x & " " & point.y)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询