Foxtable(狐表)用户栏目专家坐堂 → 首页取消关闭键


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

主题:首页取消关闭键

帅哥,在线噢!
shyilin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:266 积分:2303 威望:0 精华:0 注册:2016/6/3 8:28:00
首页取消关闭键  发帖心情 Post By:2020/4/1 12:17:00 [只看该作者]

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥,在线噢!
shyilin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:266 积分:2303 威望:0 精华:0 注册:2016/6/3 8:28:00
  发帖心情 Post By:2020/4/1 12:49:00 [只看该作者]

 有老师在吗?帮忙看一下

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


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/1 14:05:00 [只看该作者]

全局代码
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
Dim name =  e.TabPage.Text
If name = "首页"  Then
e.Cancel = True
End If
End Sub

窗口afterload
Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
t.CanCloseTabs = True
t.CloseBox = 2
AddHandler t.TabPageClosing, AddressOf _TabPageClosing

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


加好友 发短信
等级:幼狐 帖子:72 积分:616 威望:0 精华:0 注册:2018/5/3 12:31:00
  发帖心情 Post By:2020/4/1 18:11:00 [只看该作者]

这个只是关闭的时候触发不让关闭,我是想去掉上面的叉?
[此贴子已经被作者于2020/4/1 18:11:41编辑过]

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


加好友 发短信
等级:幼狐 帖子:72 积分:616 威望:0 精华:0 注册:2018/5/3 12:31:00
  发帖心情 Post By:2020/4/2 6:55:00 [只看该作者]

能去掉首页上面的叉吗?其他保留

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


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/2 10:21:00 [只看该作者]

无法去掉

 回到顶部