以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  各位大神 怎样做出自己想要的菜单 附图  (http://www.foxtable.com/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
--  
这不是有例子吗?为什么要多做一个?