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

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

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


此主题相关图片如下：qq图片20161013152811.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

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