以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  c1问题，右上角的X怎么取消显示.  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59023)
--  作者：baicaocao
--  发布时间：2014/10/28 14:03:00
--  c1问题，右上角的X怎么取消显示.
Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MainTab.HotTrack = True
如何如何设置，MainTab的取消按钮显示？

 

 



此主题相关图片如下：qq图片20141028140707.jpg
按此在新窗口浏览图片
[此贴子已经被作者于2014-10-28 14:07:33编辑过]
--  作者：Bin
--  发布时间：2014/10/28 14:13:00
--  
这是哪里的X  我怎么没看到
--  作者：客人
--  发布时间：2014/10/28 14:16:00
--  
以下是引用Bin在2014-10-28 14:13:00的发言：
这是哪里的X  我怎么没看到
全局代码：
Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If sender.SelectedTab.Text = "主界面" Then Return
Dim TabRect As Rectangle = sender.SelectedTab.TabBounds
If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then
    For Each frm As WinForm.Form In Forms
        If frm.Opened AndAlso frm.Text = sender.SelectedTab.Text Then frm.Close : Return
    Next
End If
End Sub

AfterOpenProject

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MainTab.HotTrack = True
MainTab.Font = New Font("微软雅黑",10)
--  作者：baicaocao
--  发布时间：2014/10/28 14:17:00
--  
以下是引用Bin在2014-10-28 14:13:00的发言：
这是哪里的X  我怎么没看到
全局代码：
Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If sender.SelectedTab.Text = "主界面" Then Return
Dim TabRect As Rectangle = sender.SelectedTab.TabBounds
If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then
    For Each frm As WinForm.Form In Forms
        If frm.Opened AndAlso frm.Text = sender.SelectedTab.Text Then frm.Close : Return
    Next
End If
End Sub

AfterOpenProject

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
MainTab.HotTrack = True
MainTab.Font = New Font("微软雅黑",10)
--  作者：有点甜
--  发布时间：2014/10/28 14:23:00
--  
 不能设置。
--  作者：baicaocao
--  发布时间：2014/10/28 14:37:00
--  
哦。好的。谢谢。。
--  作者：逛逛
--  发布时间：2014/10/28 14:50:00
--  
MainTab.CanCloseTabs = False
--  作者：baicaocao
--  发布时间：2014/10/28 15:16:00
--  
以下是引用逛逛在2014-10-28 14:50:00的发言：
MainTab.CanCloseTabs = False
逛逛太感谢你了。。
--  作者：baicaocao
--  发布时间：2014/10/28 15:19:00
--  
以下是引用逛逛在2014-10-28 14:50:00的发言：
MainTab.CanCloseTabs = False
好像代码有问题。我检查一下。。

[此贴子已经被作者于2014-10-28 15:28:16编辑过]