以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 各位大神 怎样做出自己想要的菜单 附图 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44510) |
-- 作者:653006728 -- 发布时间:2014/1/2 15:56:00 -- 各位大神 怎样做出自己想要的菜单 附图 fox 怎么能够做到这样 窗口全部靠上 并列, 可以双击关闭,可以通过X 关闭, 当前表格未发生变动是可以直接关闭,发生变动时关闭 会给出提醒、 此主题相关图片如下:qq图片20140102155302.jpg |
-- 作者:Bin -- 发布时间:2014/1/2 15:58:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=30056 |
-- 作者:653006728 -- 发布时间:2014/1/2 16:05:00 -- 这个双击关闭的时候 不会给出提醒窗口 都是直接关闭的 |
-- 作者:Bin -- 发布时间:2014/1/2 16:13:00 -- 可以在事件里添加弹出代码啊 |
-- 作者:653006728 -- 发布时间:2014/1/2 16:36:00 -- 请问具体是在哪个事件里面呢? 能详细说一点吗 谢谢 |
-- 作者:Bin -- 发布时间:2014/1/2 16:41:00 -- 窗口的ALterClose事件 |
-- 作者:653006728 -- 发布时间:2014/1/2 16:44:00 -- afterclose 是窗口关闭之后执行的动作 二提醒框是在窗口关闭之前弹出 不对的吧? |
-- 作者:Bin -- 发布时间:2014/1/2 16:49:00 -- 那你就在全局代码的菜单双击事件里控制吧 Public Sub Lvw_MainMouseDoubleClick(ByVal sender As Object, ByVal e As Windows.Forms.MouseEventArgs) If sender.SelectedItems.Count = 0 Then Return Select Case sender.selecteditems(0).text Case "快捷菜单","并列窗口1" Forms(sender.selecteditems(0).text).Show Case Else msgbox(sender.selecteditems(0).text) End Select End Sub |
-- 作者:653006728 -- 发布时间:2014/1/2 16:59:00 -- bin 你能在论坛发一个这样的例子给大家学习吗? 另外在停靠的时候可以带与一个 叉 来关闭窗口 我相信 这一块对于新手来说还是非常困难的 如果能发个例子 对新手会有很大的帮助 |
-- 作者:Bin -- 发布时间:2014/1/2 17:03:00 -- 这不是有例子吗?为什么要多做一个? |