主题：请教 页签关闭按钮问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:tabcontrol关闭按钮.table

你好老师，这个是我在论坛里找到的项目，请问怎么修改下面图片中打开时页面关闭按钮的颜色和进入关闭按钮时的形状呢？ 

此主题相关图片如下：qq图片20161013150651.png


此主题相关图片如下：qq图片20161013152811.png

 

能不能改成像下面图片中的模式和颜色？比如关闭论坛网页时形状和颜色的模式？谢谢！

 

此主题相关图片如下：qq图片20161013151731.png

里面的代码我只能看个大概，不是完全明白，我试着改下面加颜色的这个地方的代码，但不是我想要的结果呀，还请老师指点该改什么地方？谢谢!

 

'************ 下列变量用于设置页签的颜色,可以自定义 *****************************
Public _MainPagesTabBackColor As Color = Color.MediumAquamarine '标签背景色-绿色
Public _MainPagesTabBackColorSelected As Color = Color.pink '标签选中背景色-粉红
'Public _MainPagesTabForeColor As Color = Color.Black  '标签默认文本色-黑色
Public _MainPagesTabForeColor As Color = Nothing  '标签默认文本色-黑色
Public _MainPagesTabForeColorSelected As Color = Color.Blue  '标签选中文本色-蓝色
'********************************************************************************

你好老师，我把上面项目的内部函数改了一下，代码如下：但关闭页面的时候提示错误，请老师给指点下是哪里错了，谢谢！下面的代码主要是想实现对窗口表中任意一个表，如果数据更改后就提示，如果没有更改就直接关闭的功能，谢谢！

 

'处理MainPages的自定义关闭按钮的点击事件
Dim Result As DialogResult
Dim tad = _SysCloseBut.pg.Parent
For Each dt As DataTable In DataTables
    If dt.Type = 1 OrElse dt.Type = 3 Then
        If dt.HasChanges Then
            Result =  MessageBox.Show("数据已经修改,是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If Result = DialogResult.Yes Then
                dt.Save()
                For i As Integer = 0 To tad.TabPages.Count - 1
                    If tad.TabPages(i).Name = _SysCloseBut.pg.name AndAlso i > 0 Then
                        tad.SelectedTab = tad.TabPages(i-1)
                        Exit For
                    End If
                Next               
            Else If Result = DialogResult.NO Then
                dt.RejectChanges()               
            Else If  Result = DialogResult.cancel Then
            End If
        Else
            tad.tabPages.Remove(_SysCloseBut.pg)
        End If
    End If
Next

此主题相关图片如下：qq图片20161014185050.png

谢谢，不过还是有点问题，就是点击弹出的对话框的“取消”按钮时，页面按说是不能关闭的，但上面的代码关闭了。还请老师再给指点一下，谢谢!

谢谢，自己也想到了return,也试了，一直报错，也不知道后面还能跟“”，弄了半天也弄不好，再次谢谢老师！