如果窗口的"允许关闭"属性设置为false,就自动隐藏那个×号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果窗口的"允许关闭"属性设置为false,就自动隐藏那个×号

共有15745人关注过本帖树形打印复制链接主题：如果窗口的"允许关闭"属性设置为false,就自动隐藏那个×号

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/9 12:57:00 [显示全部帖子]

窗口AfterLoad事件
With e.Form
.BaseForm.ControlBox = .CanClose
End with

lxl

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/9 13:02:00 [显示全部帖子]

对于具体的窗口，可以直接用：
e.Form.BaseForm.ControlBox = False

lxl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/12 14:04:00 [显示全部帖子]

以下是引用reachtone在2009-12-12 11:33:00的发言：
4楼和7楼的代码对于共有窗口无效，设置后出错。

只有独立和模式窗口有BaseForm这个属性。所以设置要出错

而且，如果只想去掉×而保留隐藏按钮，怎么操作？请lxl版主帮忙给个例子，谢谢！

你说的是最大化最小化按钮吧？要实现起来比较麻烦，好像只能重绘窗口

lxl

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/12/12 16:10:00 [显示全部帖子]

以下是引用reachtone在2009-12-12 15:21:00的发言：

是的，老六的更新说明中已经讲到了，只有独立和模式窗口才有BaseForm这个属性。
我说的是只要保留共有窗口中的隐藏按钮.如下图：

此主题相关图片如下：3.jpg

搞不定，没地方下手。

要不这样：把允许关闭设成true.
然后再BeforeClose事件里面设置：
messagebox.Show("友好一点的提示")
e.CanCel = True
这样用户就不会再尝试关闭他了。

主题：如果窗口的"允许关闭"属性设置为false,就自动隐藏那个×号