Foxtable(狐表)用户栏目专家坐堂 → 各位大神 怎样做出自己想要的菜单 附图


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

主题:各位大神 怎样做出自己想要的菜单 附图

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


加好友 发短信
等级:童狐 帖子:200 积分:1380 威望:0 精华:0 注册:2013/11/6 17:35:00
各位大神 怎样做出自己想要的菜单 附图  发帖心情 Post By:2014/1/2 15:56:00 [只看该作者]

fox 怎么能够做到这样  窗口全部靠上 并列, 可以双击关闭,可以通过X 关闭, 当前表格未发生变动是可以直接关闭,发生变动时关闭 会给出提醒、


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140102155302.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 15:58:00 [只看该作者]


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


加好友 发短信
等级:童狐 帖子:200 积分:1380 威望:0 精华:0 注册:2013/11/6 17:35:00
  发帖心情 Post By:2014/1/2 16:05:00 [只看该作者]

这个双击关闭的时候 不会给出提醒窗口  都是直接关闭的


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 16:13:00 [只看该作者]

可以在事件里添加弹出代码啊

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


加好友 发短信
等级:童狐 帖子:200 积分:1380 威望:0 精华:0 注册:2013/11/6 17:35:00
  发帖心情 Post By:2014/1/2 16:36:00 [只看该作者]

请问具体是在哪个事件里面呢?   能详细说一点吗 谢谢

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 16:41:00 [只看该作者]

窗口的ALterClose事件

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


加好友 发短信
等级:童狐 帖子:200 积分:1380 威望:0 精华:0 注册:2013/11/6 17:35:00
  发帖心情 Post By:2014/1/2 16:44:00 [只看该作者]

afterclose 是窗口关闭之后执行的动作   二提醒框是在窗口关闭之前弹出   不对的吧?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:200 积分:1380 威望:0 精华:0 注册:2013/11/6 17:35:00
  发帖心情 Post By:2014/1/2 16:59:00 [只看该作者]

bin   你能在论坛发一个这样的例子给大家学习吗?  另外在停靠的时候可以带与一个 叉  来关闭窗口

  我相信 这一块对于新手来说还是非常困难的   如果能发个例子   对新手会有很大的帮助


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/2 17:03:00 [只看该作者]

这不是有例子吗?为什么要多做一个?

 回到顶部
总数 14 1 2 下一页