Foxtable(狐表)用户栏目专家坐堂 → 如何去掉BaseMainForm的关闭按钮?


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

主题:如何去掉BaseMainForm的关闭按钮?

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


加好友 发短信
等级:四尾狐 帖子:862 积分:10841 威望:0 精华:0 注册:2016/5/6 14:34:00
如何去掉BaseMainForm的关闭按钮?  发帖心情 Post By:2016/7/13 11:09:00 [只看该作者]

想只保留最小化按钮,去除最大化/还原按钮和关闭按钮。

 

用BaseMainForm的话,点击右上角的关闭按钮,先去执行子窗口的关闭,再去执行BeforeCloseProject。

这个过程,我真是无语了。假如是用户点错了呢?大大,你这么设计你究竟是什么想的?说说,我不怪你...

 

 

图片点击可在新窗口打开查看


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/13 11:20:00 [只看该作者]

禁用关闭按钮,参考

 

全局代码

 

Public Const SC_CLOSE As Integer = &Hf060
Public Const MF_ENABLED As Integer = &H0
Public Const MF_GRAYED As Integer = &H1
Public Const MF_DISABLED As Integer = &H2

<DllImport("user32.dll", EntryPoint := "GetSystemMenu")> _
Public Function GetSystemMenu(hWnd As IntPtr, bRevert As Integer) As IntPtr
End Function

<DllImport("User32.dll")> _
Public Function EnableMenuItem(hMenu As IntPtr, uIDEnableItem As Integer, uEnable As Integer) As Boolean
End Function

 

调用代码

 

Dim hMenu As IntPtr = GetSystemMenu(basemainform.Handle, 0)
EnableMenuItem(hMenu, SC_CLOSE, (MF_DISABLED + MF_GRAYED) Or MF_ENABLED)


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


加好友 发短信
等级:四尾狐 帖子:862 积分:10841 威望:0 精华:0 注册:2016/5/6 14:34:00
  发帖心情 Post By:2016/7/13 11:27:00 [只看该作者]

请问一下,调用代码要写在哪里?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/7/13 11:31:00 [只看该作者]

全局代码 以及 afterOpenProject

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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
  发帖心情 Post By:2016/9/22 18:56:00 [只看该作者]

怎么我照做无效啊

 


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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/22 20:30:00 [只看该作者]

删除项目下bin目录试试。

一些有问题的系统可能会无效

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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
  发帖心情 Post By:2016/9/30 20:18:00 [只看该作者]

以下是引用有点蓝在2016/9/22 20:30:00的发言:
删除项目下bin目录试试。

一些有问题的系统可能会无效

删除了bin目录 还是无效

 

我是14版的系统


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/1 8:10:00 [只看该作者]

禁用主窗口的关闭按钮很简单:

 

RemoveXButton(baseMainform.handle)


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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
  发帖心情 Post By:2016/10/1 10:04:00 [只看该作者]

以下是引用狐狸爸爸在2016/10/1 8:10:00的发言:

禁用主窗口的关闭按钮很简单:

 

RemoveXButton(baseMainform.handle)

14版测试无效


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/10/1 10:10:00 [只看该作者]

那就升级

 回到顶部