sampletabcontrol.vb

Magic Library 1.7,有说明文档

' *****************************************************************************
' 
'  (c) Crownwood Consulting Limited 2002 
'  All rights reserved. The software and associated documentation 
'  supplied hereunder are the proprietary information of Crownwood Consulting 
'  Limited, Haxey, North Lincolnshire, England and are supplied subject to 
'  licence terms.
' 
'  Magic Version 1.7	www.dotnetmagic.com
' *****************************************************************************

Imports System
Imports System.IO
Imports System.Drawing
Imports System.Resources
Imports System.Reflection
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports Crownwood.Magic.Common
Imports Crownwood.Magic.Controls

Public Class SampleTabControl
    Inherits System.Windows.Forms.Form

    Private Shared _count As Integer = 0

    Private _internalImages As ImageList
    Private _update As Boolean = False
    Private _startForeColor As Color
    Private _startBackColor As Color
    Private _startButtonActive As Color
    Private _startButtonInactive As Color
    Private _startTextInactiveColor As Color
    Private _startHotTextColor As Color
    Private _strings As String() = New String() {"P&roperties", _
                                                 "Solution Explo&rer", _
                                                 "&Task List", _
                                                 "&Command Window", _
                                                 "Callstack", _
                                                 "B&reakpoints", _
                                                 "Output"}

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Create a strip of images by loading an embedded bitmap resource
        _internalImages = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
                                                         "SampleTabControl.SampleImages.bmp", _
                                                         new Size(16,16), _
                                                         new Point(0,0))

        tabControl.ImageList = _internalImages

        ' Hook into the close button
        AddHandler tabControl.ClosePressed, AddressOf OnRemovePage

        ' Remember initial colors
        _startForeColor = tabControl.ForeColor
        _startBackColor = tabControl.BackColor
        _startButtonActive = tabControl.ButtonActiveColor
        _startButtonInactive = tabControl.ButtonInactiveColor
        _startTextInactiveColor = tabControl.TextInactiveColor
        _startHotTextColor = tabControl.HotTextColor

        normal.Checked = True

        UpdateControls()
    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Private WithEvents addPage As System.Windows.Forms.Button
    Private WithEvents removePage As System.Windows.Forms.Button
    Private WithEvents clearAll As System.Windows.Forms.Button
    Private WithEvents StyleGroup As System.Windows.Forms.GroupBox
    Private WithEvents AppearanceGroup As System.Windows.Forms.GroupBox
    Private WithEvents exampleColors As System.Windows.Forms.GroupBox
    Private WithEvents positionAtTop As System.Windows.Forms.CheckBox
    Private WithEvents hotTrack As System.Windows.Forms.CheckBox
    Private WithEvents shrinkPages As System.Windows.Forms.CheckBox
    Private WithEvents showClose As System.Windows.Forms.CheckBox
    Private WithEvents showArrows As System.Windows.Forms.CheckBox
    Private WithEvents insetPlain As System.Windows.Forms.CheckBox
    Private WithEvents insetPagesOnly As System.Windows.Forms.CheckBox
    Private WithEvents selectedTextOnly As System.Windows.Forms.CheckBox
    Private WithEvents idePixelBorder As System.Windows.Forms.CheckBox
    Private WithEvents label1 As System.Windows.Forms.Label
    Private WithEvents label2 As System.Windows.Forms.Label
    Private WithEvents label3 As System.Windows.Forms.Label
    Private WithEvents label4 As System.Windows.Forms.Label
    Private WithEvents numericUpDown1 As System.Windows.Forms.NumericUpDown
    Private WithEvents numericUpDown2 As System.Windows.Forms.NumericUpDown
    Private WithEvents numericUpDown3 As System.Windows.Forms.NumericUpDown
    Private WithEvents numericUpDown4 As System.Windows.Forms.NumericUpDown
    Private WithEvents radioIDE As System.Windows.Forms.RadioButton
    Private WithEvents radioPlain As System.Windows.Forms.RadioButton
    Private WithEvents radioMultiBox As System.Windows.Forms.RadioButton
    Private WithEvents radioMultiForm As System.Windows.Forms.RadioButton
    Private WithEvents radioMultiDocument As System.Windows.Forms.RadioButton
    Private WithEvents red As System.Windows.Forms.RadioButton
    Private WithEvents blue As System.Windows.Forms.RadioButton
    Private WithEvents normal As System.Windows.Forms.RadioButton
    Private WithEvents tabControl As Crownwood.Magic.Controls.TabControl
    Friend WithEvents idePixelArea As System.Windows.Forms.CheckBox
    Friend WithEvents multiline As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents tabHideUsingLogic As System.Windows.Forms.RadioButton
    Friend WithEvents tabHideAlways As System.Windows.Forms.RadioButton
    Friend WithEvents tabShowAlways As System.Windows.Forms.RadioButton
    Friend WithEvents tabHideWithoutMouse As System.Windows.Forms.RadioButton
    Private WithEvents hoverSelect As System.Windows.Forms.CheckBox
    Friend WithEvents multilineFullWidth As System.Windows.Forms.CheckBox

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.selectedTextOnly = New System.Windows.Forms.CheckBox()
        Me.positionAtTop = New System.Windows.Forms.CheckBox()
        Me.radioMultiBox = New System.Windows.Forms.RadioButton()
        Me.tabControl = New Crownwood.Magic.Controls.TabControl()
        Me.removePage = New System.Windows.Forms.Button()
        Me.hotTrack = New System.Windows.Forms.CheckBox()
        Me.numericUpDown3 = New System.Windows.Forms.NumericUpDown()
        Me.numericUpDown1 = New System.Windows.Forms.NumericUpDown()
        Me.numericUpDown4 = New System.Windows.Forms.NumericUpDown()
        Me.numericUpDown2 = New System.Windows.Forms.NumericUpDown()
        Me.radioMultiForm = New System.Windows.Forms.RadioButton()
        Me.showClose = New System.Windows.Forms.CheckBox()
        Me.shrinkPages = New System.Windows.Forms.CheckBox()
        Me.addPage = New System.Windows.Forms.Button()
        Me.clearAll = New System.Windows.Forms.Button()
        Me.StyleGroup = New System.Windows.Forms.GroupBox()
        Me.radioPlain = New System.Windows.Forms.RadioButton()
        Me.radioIDE = New System.Windows.Forms.RadioButton()
        Me.label4 = New System.Windows.Forms.Label()
        Me.label1 = New System.Windows.Forms.Label()
        Me.label2 = New System.Windows.Forms.Label()
        Me.label3 = New System.Windows.Forms.Label()
        Me.insetPlain = New System.Windows.Forms.CheckBox()
        Me.insetPagesOnly = New System.Windows.Forms.CheckBox()
        Me.showArrows = New System.Windows.Forms.CheckBox()
        Me.radioMultiDocument = New System.Windows.Forms.RadioButton()
        Me.AppearanceGroup = New System.Windows.Forms.GroupBox()
        Me.exampleColors = New System.Windows.Forms.GroupBox()
        Me.red = New System.Windows.Forms.RadioButton()
        Me.blue = New System.Windows.Forms.RadioButton()
        Me.normal = New System.Windows.Forms.RadioButton()
        Me.idePixelBorder = New System.Windows.Forms.CheckBox()
        Me.idePixelArea = New System.Windows.Forms.CheckBox()
        Me.multiline = New System.Windows.Forms.CheckBox()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.tabHideWithoutMouse = New System.Windows.Forms.RadioButton()
        Me.tabHideUsingLogic = New System.Windows.Forms.RadioButton()
        Me.tabHideAlways = New System.Windows.Forms.RadioButton()
        Me.tabShowAlways = New System.Windows.Forms.RadioButton()
        Me.hoverSelect = New System.Windows.Forms.CheckBox()
        Me.multilineFullWidth = New System.Windows.Forms.CheckBox()
        CType(Me.numericUpDown3, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numericUpDown4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.numericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.StyleGroup.SuspendLayout()
        Me.AppearanceGroup.SuspendLayout()
        Me.exampleColors.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'selectedTextOnly
        '
        Me.selectedTextOnly.Location = New System.Drawing.Point(176, 224)
        Me.selectedTextOnly.Name = "selectedTextOnly"
        Me.selectedTextOnly.Size = New System.Drawing.Size(120, 24)
        Me.selectedTextOnly.TabIndex = 1
        Me.selectedTextOnly.Text = "Selected Text Only"
        '
        'positionAtTop
        '
        Me.positionAtTop.Location = New System.Drawing.Point(176, 8)
        Me.positionAtTop.Name = "positionAtTop"
        Me.positionAtTop.TabIndex = 1
        Me.positionAtTop.Text = "Position At Top"
        '
        'radioMultiBox
        '
        Me.radioMultiBox.Location = New System.Drawing.Point(16, 64)
        Me.radioMultiBox.Name = "radioMultiBox"
        Me.radioMultiBox.Size = New System.Drawing.Size(88, 24)
        Me.radioMultiBox.TabIndex = 0
        Me.radioMultiBox.Text = "MultiBox"
        '
        'tabControl
        '
        Me.tabControl.Font = New System.Drawing.Font("Tahoma", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World)
        Me.tabControl.ForeColor = System.Drawing.SystemColors.MenuText
        Me.tabControl.HideTabsMode = Crownwood.Magic.Controls.TabControl.HideTabsModes.ShowAlways
        Me.tabControl.Location = New System.Drawing.Point(312, 24)
        Me.tabControl.Name = "tabControl"
        Me.tabControl.Size = New System.Drawing.Size(312, 248)
        Me.tabControl.TabIndex = 0
        Me.tabControl.TextColor = System.Drawing.SystemColors.MenuText
        '
        'removePage
        '
        Me.removePage.Location = New System.Drawing.Point(424, 384)
        Me.removePage.Name = "removePage"
        Me.removePage.Size = New System.Drawing.Size(88, 24)
        Me.removePage.TabIndex = 0
        Me.removePage.Text = "RemovePage"
        '
        'hotTrack
        '
        Me.hotTrack.Location = New System.Drawing.Point(176, 32)
        Me.hotTrack.Name = "hotTrack"
        Me.hotTrack.TabIndex = 1
        Me.hotTrack.Text = "HotTrack"
        '
        'numericUpDown3
        '
        Me.numericUpDown3.Location = New System.Drawing.Point(384, 344)
        Me.numericUpDown3.Name = "numericUpDown3"
        Me.numericUpDown3.Size = New System.Drawing.Size(56, 20)
        Me.numericUpDown3.TabIndex = 2
        '
        'numericUpDown1
        '
        Me.numericUpDown1.Location = New System.Drawing.Point(384, 312)
        Me.numericUpDown1.Name = "numericUpDown1"
        Me.numericUpDown1.Size = New System.Drawing.Size(56, 20)
        Me.numericUpDown1.TabIndex = 2
        '
        'numericUpDown4
        '
        Me.numericUpDown4.Location = New System.Drawing.Point(544, 344)
        Me.numericUpDown4.Name = "numericUpDown4"
        Me.numericUpDown4.Size = New System.Drawing.Size(56, 20)
        Me.numericUpDown4.TabIndex = 2
        '
        'numericUpDown2
        '
        Me.numericUpDown2.Location = New System.Drawing.Point(544, 312)
        Me.numericUpDown2.Name = "numericUpDown2"
        Me.numericUpDown2.Size = New System.Drawing.Size(56, 20)
        Me.numericUpDown2.TabIndex = 2
        '
        'radioMultiForm
        '
        Me.radioMultiForm.Location = New System.Drawing.Point(16, 40)
        Me.radioMultiForm.Name = "radioMultiForm"
        Me.radioMultiForm.Size = New System.Drawing.Size(88, 24)
        Me.radioMultiForm.TabIndex = 0
        Me.radioMultiForm.Text = "MultiForm"
        '
        'showClose
        '
        Me.showClose.Location = New System.Drawing.Point(176, 80)
        Me.showClose.Name = "showClose"
        Me.showClose.TabIndex = 1
        Me.showClose.Text = "Show Close"
        '
        'shrinkPages
        '
        Me.shrinkPages.Location = New System.Drawing.Point(176, 56)
        Me.shrinkPages.Name = "shrinkPages"
        Me.shrinkPages.TabIndex = 1
        Me.shrinkPages.Text = "Shrink pages"
        '
        'addPage
        '
        Me.addPage.Location = New System.Drawing.Point(312, 384)
        Me.addPage.Name = "addPage"
        Me.addPage.Size = New System.Drawing.Size(87, 24)
        Me.addPage.TabIndex = 0
        Me.addPage.Text = "AddPage"
        '
        'clearAll
        '
        Me.clearAll.Location = New System.Drawing.Point(536, 384)
        Me.clearAll.Name = "clearAll"
        Me.clearAll.Size = New System.Drawing.Size(88, 24)
        Me.clearAll.TabIndex = 0
        Me.clearAll.Text = "RemoveAll"
        '
        'StyleGroup
        '
        Me.StyleGroup.Controls.AddRange(New System.Windows.Forms.Control() {Me.radioPlain, Me.radioIDE})
        Me.StyleGroup.Location = New System.Drawing.Point(8, 16)
        Me.StyleGroup.Name = "StyleGroup"
        Me.StyleGroup.Size = New System.Drawing.Size(144, 72)