Click here to Skip to main content
15,896,111 members
Articles / Multimedia / GDI+

ColorBlender - Dynamic Gradient Color Blend Creation Control (VB.NET)

Rate me:
Please Sign up or sign in to vote.
4.90/5 (29 votes)
1 Aug 2012CPOL6 min read 89.5K   4.4K   61  
How to create a ColorBlend and two color blending UserControls to make it easier.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class TestForm
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    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.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Dim CBlenderItems1 As ColorBlender.cBlenderItems = New ColorBlender.cBlenderItems()
        Dim CFocalPoints1 As ColorBlender.cFocalPoints = New ColorBlender.cFocalPoints()
        Dim CBlenderItems2 As ColorBlender.cBlenderItems = New ColorBlender.cBlenderItems()
        Dim CFocalPoints2 As ColorBlender.cFocalPoints = New ColorBlender.cFocalPoints()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(TestForm))
        Me.panRainbow = New System.Windows.Forms.Panel()
        Me.grpBuildABlend = New System.Windows.Forms.GroupBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.GArrow14 = New ColorBlenderTestForm.gArrow()
        Me.GArrow13 = New ColorBlenderTestForm.gArrow()
        Me.GArrow12 = New ColorBlenderTestForm.gArrow()
        Me.GArrow11 = New ColorBlenderTestForm.gArrow()
        Me.GArrow10 = New ColorBlenderTestForm.gArrow()
        Me.GArrow9 = New ColorBlenderTestForm.gArrow()
        Me.GArrow8 = New ColorBlenderTestForm.gArrow()
        Me.GArrow7 = New ColorBlenderTestForm.gArrow()
        Me.GArrow6 = New ColorBlenderTestForm.gArrow()
        Me.GArrow5 = New ColorBlenderTestForm.gArrow()
        Me.GArrow4 = New ColorBlenderTestForm.gArrow()
        Me.GArrow3 = New ColorBlenderTestForm.gArrow()
        Me.GArrow2 = New ColorBlenderTestForm.gArrow()
        Me.GArrow1 = New ColorBlenderTestForm.gArrow()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.GColorBlender1 = New ColorBlender.gColorBlender()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.ListView1 = New System.Windows.Forms.ListView()
        Me.Point = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.cName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.argbName = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.Alpha = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.Red = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.Green = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.Blue = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
        Me.txbFocusScales = New System.Windows.Forms.TextBox()
        Me.txbCenterPoint = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lblCenter = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lblClear = New System.Windows.Forms.Label()
        Me.lblReset = New System.Windows.Forms.Label()
        Me.GColorBlender2 = New ColorBlender.gColorBlender()
        Me.picDemoBlend2 = New System.Windows.Forms.PictureBox()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.picDemoBlend = New System.Windows.Forms.PictureBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.picBackgroundtile = New System.Windows.Forms.PictureBox()
        Me.grpBuildABlend.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.Panel1.SuspendLayout()
        CType(Me.picDemoBlend2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox3.SuspendLayout()
        CType(Me.picDemoBlend, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox4.SuspendLayout()
        CType(Me.picBackgroundtile, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'panRainbow
        '
        Me.panRainbow.Dock = System.Windows.Forms.DockStyle.Top
        Me.panRainbow.Location = New System.Drawing.Point(0, 0)
        Me.panRainbow.Name = "panRainbow"
        Me.panRainbow.Size = New System.Drawing.Size(632, 39)
        Me.panRainbow.TabIndex = 0
        '
        'grpBuildABlend
        '
        Me.grpBuildABlend.Controls.Add(Me.Button1)
        Me.grpBuildABlend.Controls.Add(Me.GArrow14)
        Me.grpBuildABlend.Controls.Add(Me.GArrow13)
        Me.grpBuildABlend.Controls.Add(Me.GArrow12)
        Me.grpBuildABlend.Controls.Add(Me.GArrow11)
        Me.grpBuildABlend.Controls.Add(Me.GArrow10)
        Me.grpBuildABlend.Controls.Add(Me.GArrow9)
        Me.grpBuildABlend.Controls.Add(Me.GArrow8)
        Me.grpBuildABlend.Controls.Add(Me.GArrow7)
        Me.grpBuildABlend.Controls.Add(Me.GArrow6)
        Me.grpBuildABlend.Controls.Add(Me.GArrow5)
        Me.grpBuildABlend.Controls.Add(Me.GArrow4)
        Me.grpBuildABlend.Controls.Add(Me.GArrow3)
        Me.grpBuildABlend.Controls.Add(Me.GArrow2)
        Me.grpBuildABlend.Controls.Add(Me.GArrow1)
        Me.grpBuildABlend.Controls.Add(Me.Label8)
        Me.grpBuildABlend.Controls.Add(Me.Label16)
        Me.grpBuildABlend.Controls.Add(Me.Label17)
        Me.grpBuildABlend.Controls.Add(Me.Label15)
        Me.grpBuildABlend.Controls.Add(Me.Label14)
        Me.grpBuildABlend.Controls.Add(Me.Label13)
        Me.grpBuildABlend.Controls.Add(Me.Label12)
        Me.grpBuildABlend.Controls.Add(Me.Label11)
        Me.grpBuildABlend.Controls.Add(Me.Label10)
        Me.grpBuildABlend.Controls.Add(Me.Label9)
        Me.grpBuildABlend.Controls.Add(Me.Label7)
        Me.grpBuildABlend.Controls.Add(Me.Label6)
        Me.grpBuildABlend.Controls.Add(Me.Label5)
        Me.grpBuildABlend.Controls.Add(Me.Label4)
        Me.grpBuildABlend.Controls.Add(Me.Label3)
        Me.grpBuildABlend.Controls.Add(Me.Label1)
        Me.grpBuildABlend.Controls.Add(Me.GColorBlender1)
        Me.grpBuildABlend.Location = New System.Drawing.Point(7, 42)
        Me.grpBuildABlend.Name = "grpBuildABlend"
        Me.grpBuildABlend.Size = New System.Drawing.Size(618, 258)
        Me.grpBuildABlend.TabIndex = 1
        Me.grpBuildABlend.TabStop = False
        Me.grpBuildABlend.Text = "gColorBlender"
        '
        'Button1
        '
        Me.Button1.Font = New System.Drawing.Font("Arial", 14.0!, System.Drawing.FontStyle.Bold)
        Me.Button1.Location = New System.Drawing.Point(13, 223)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(30, 30)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "?"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'GArrow14
        '
        Me.GArrow14.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow14.Line = New System.Drawing.Point(10, 10)
        Me.GArrow14.Location = New System.Drawing.Point(222, 203)
        Me.GArrow14.Lock = ColorBlenderTestForm.gArrow.eLock.CenterVertical
        Me.GArrow14.Name = "GArrow14"
        Me.GArrow14.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow14.Size = New System.Drawing.Size(15, 35)
        Me.GArrow14.TabIndex = 3
        Me.GArrow14.Text = "GArrow6"
        '
        'GArrow13
        '
        Me.GArrow13.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow13.Line = New System.Drawing.Point(10, 10)
        Me.GArrow13.Location = New System.Drawing.Point(344, 203)
        Me.GArrow13.Lock = ColorBlenderTestForm.gArrow.eLock.CenterVertical
        Me.GArrow13.Name = "GArrow13"
        Me.GArrow13.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow13.Size = New System.Drawing.Size(15, 35)
        Me.GArrow13.TabIndex = 3
        Me.GArrow13.Text = "GArrow6"
        '
        'GArrow12
        '
        Me.GArrow12.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow12.Line = New System.Drawing.Point(10, 10)
        Me.GArrow12.Location = New System.Drawing.Point(453, 170)
        Me.GArrow12.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalUp
        Me.GArrow12.Name = "GArrow12"
        Me.GArrow12.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow12.Size = New System.Drawing.Size(36, 51)
        Me.GArrow12.TabIndex = 3
        Me.GArrow12.Text = "GArrow6"
        '
        'GArrow11
        '
        Me.GArrow11.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow11.Line = New System.Drawing.Point(10, 10)
        Me.GArrow11.Location = New System.Drawing.Point(453, 153)
        Me.GArrow11.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalUp
        Me.GArrow11.Name = "GArrow11"
        Me.GArrow11.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow11.Size = New System.Drawing.Size(36, 17)
        Me.GArrow11.TabIndex = 3
        Me.GArrow11.Text = "GArrow6"
        '
        'GArrow10
        '
        Me.GArrow10.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow10.Line = New System.Drawing.Point(10, 10)
        Me.GArrow10.Location = New System.Drawing.Point(453, 128)
        Me.GArrow10.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalDown
        Me.GArrow10.Name = "GArrow10"
        Me.GArrow10.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow10.Size = New System.Drawing.Size(36, 14)
        Me.GArrow10.TabIndex = 3
        Me.GArrow10.Text = "GArrow6"
        '
        'GArrow9
        '
        Me.GArrow9.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow9.Line = New System.Drawing.Point(10, 10)
        Me.GArrow9.Location = New System.Drawing.Point(453, 88)
        Me.GArrow9.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalDown
        Me.GArrow9.Name = "GArrow9"
        Me.GArrow9.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow9.Size = New System.Drawing.Size(36, 18)
        Me.GArrow9.TabIndex = 3
        Me.GArrow9.Text = "GArrow6"
        '
        'GArrow8
        '
        Me.GArrow8.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow8.Line = New System.Drawing.Point(10, 10)
        Me.GArrow8.Location = New System.Drawing.Point(385, 25)
        Me.GArrow8.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalDown
        Me.GArrow8.Name = "GArrow8"
        Me.GArrow8.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow8.Size = New System.Drawing.Size(60, 32)
        Me.GArrow8.TabIndex = 3
        Me.GArrow8.Text = "GArrow6"
        '
        'GArrow7
        '
        Me.GArrow7.Direction = ColorBlenderTestForm.gArrow.eDirection.Left
        Me.GArrow7.Line = New System.Drawing.Point(10, 10)
        Me.GArrow7.Location = New System.Drawing.Point(175, 25)
        Me.GArrow7.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalDown
        Me.GArrow7.Name = "GArrow7"
        Me.GArrow7.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow7.Size = New System.Drawing.Size(27, 33)
        Me.GArrow7.TabIndex = 3
        Me.GArrow7.Text = "GArrow6"
        '
        'GArrow6
        '
        Me.GArrow6.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow6.Line = New System.Drawing.Point(10, 10)
        Me.GArrow6.Location = New System.Drawing.Point(71, 44)
        Me.GArrow6.Lock = ColorBlenderTestForm.gArrow.eLock.DiagonalDown
        Me.GArrow6.Name = "GArrow6"
        Me.GArrow6.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow6.Size = New System.Drawing.Size(77, 27)
        Me.GArrow6.TabIndex = 3
        Me.GArrow6.Text = "GArrow6"
        '
        'GArrow5
        '
        Me.GArrow5.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow5.Line = New System.Drawing.Point(10, 10)
        Me.GArrow5.Location = New System.Drawing.Point(117, 184)
        Me.GArrow5.Lock = ColorBlenderTestForm.gArrow.eLock.CenterHorizontal
        Me.GArrow5.Name = "GArrow5"
        Me.GArrow5.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow5.Size = New System.Drawing.Size(36, 17)
        Me.GArrow5.TabIndex = 2
        Me.GArrow5.Text = "GArrow1"
        '
        'GArrow4
        '
        Me.GArrow4.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow4.Line = New System.Drawing.Point(10, 10)
        Me.GArrow4.Location = New System.Drawing.Point(117, 162)
        Me.GArrow4.Lock = ColorBlenderTestForm.gArrow.eLock.CenterHorizontal
        Me.GArrow4.Name = "GArrow4"
        Me.GArrow4.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow4.Size = New System.Drawing.Size(36, 17)
        Me.GArrow4.TabIndex = 2
        Me.GArrow4.Text = "GArrow1"
        '
        'GArrow3
        '
        Me.GArrow3.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow3.Line = New System.Drawing.Point(10, 10)
        Me.GArrow3.Location = New System.Drawing.Point(117, 140)
        Me.GArrow3.Lock = ColorBlenderTestForm.gArrow.eLock.CenterHorizontal
        Me.GArrow3.Name = "GArrow3"
        Me.GArrow3.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow3.Size = New System.Drawing.Size(36, 17)
        Me.GArrow3.TabIndex = 2
        Me.GArrow3.Text = "GArrow1"
        '
        'GArrow2
        '
        Me.GArrow2.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow2.Line = New System.Drawing.Point(10, 10)
        Me.GArrow2.Location = New System.Drawing.Point(117, 118)
        Me.GArrow2.Lock = ColorBlenderTestForm.gArrow.eLock.CenterHorizontal
        Me.GArrow2.Name = "GArrow2"
        Me.GArrow2.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow2.Size = New System.Drawing.Size(36, 17)
        Me.GArrow2.TabIndex = 2
        Me.GArrow2.Text = "GArrow1"
        '
        'GArrow1
        '
        Me.GArrow1.Direction = ColorBlenderTestForm.gArrow.eDirection.Right
        Me.GArrow1.Line = New System.Drawing.Point(10, 10)
        Me.GArrow1.Location = New System.Drawing.Point(117, 96)
        Me.GArrow1.Lock = ColorBlenderTestForm.gArrow.eLock.CenterHorizontal
        Me.GArrow1.Name = "GArrow1"
        Me.GArrow1.Padding = New System.Windows.Forms.Padding(4)
        Me.GArrow1.Size = New System.Drawing.Size(36, 17)
        Me.GArrow1.TabIndex = 2
        Me.GArrow1.Text = "GArrow1"
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.Color.Maroon
        Me.Label8.Location = New System.Drawing.Point(54, 147)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(15, 50)
        Me.Label8.TabIndex = 1
        Me.Label8.Text = "R" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "G" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "B"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label16
        '
        Me.Label16.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label16.ForeColor = System.Drawing.Color.Maroon
        Me.Label16.Location = New System.Drawing.Point(222, 223)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(139, 31)
        Me.Label16.TabIndex = 1
        Me.Label16.Text = "Choose Color From Swatches or DropDown"
        Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label17
        '
        Me.Label17.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label17.ForeColor = System.Drawing.Color.Maroon
        Me.Label17.Location = New System.Drawing.Point(488, 204)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(101, 44)
        Me.Label17.TabIndex = 1
        Me.Label17.Text = "Hold the Ctrl Key to change the FocusScales"
        '
        'Label15
        '
        Me.Label15.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label15.ForeColor = System.Drawing.Color.Maroon
        Me.Label15.Location = New System.Drawing.Point(488, 153)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(127, 44)
        Me.Label15.TabIndex = 1
        Me.Label15.Text = "If Path - Left Click and Drag to change CenterPoint"
        '
        'Label14
        '
        Me.Label14.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label14.ForeColor = System.Drawing.Color.Maroon
        Me.Label14.Location = New System.Drawing.Point(489, 117)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(127, 31)
        Me.Label14.TabIndex = 1
        Me.Label14.Text = "Right Click to choose gradient type"
        '
        'Label13
        '
        Me.Label13.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.ForeColor = System.Drawing.Color.Maroon
        Me.Label13.Location = New System.Drawing.Point(489, 79)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(105, 31)
        Me.Label13.TabIndex = 1
        Me.Label13.Text = "Select to change BorderColor"
        '
        'Label12
        '
        Me.Label12.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.ForeColor = System.Drawing.Color.Maroon
        Me.Label12.Location = New System.Drawing.Point(452, 46)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(163, 17)
        Me.Label12.TabIndex = 1
        Me.Label12.Text = "Right Click to Delete Pointer"
        '
        'Label11
        '
        Me.Label11.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.ForeColor = System.Drawing.Color.Maroon
        Me.Label11.Location = New System.Drawing.Point(442, 16)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(164, 30)
        Me.Label11.TabIndex = 1
        Me.Label11.Text = "Left Click to Select or Drag Middle Pointers"
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.ForeColor = System.Drawing.Color.Maroon
        Me.Label10.Location = New System.Drawing.Point(207, 25)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(158, 32)
        Me.Label10.TabIndex = 1
        Me.Label10.Text = "Or jump to the next Pointer with Right Click"
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.ForeColor = System.Drawing.Color.Maroon
        Me.Label9.Location = New System.Drawing.Point(134, 10)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(311, 15)
        Me.Label9.TabIndex = 1
        Me.Label9.Text = "Left Click to move Middle Pointers .01 (Hold Ctrl .001)"
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.ForeColor = System.Drawing.Color.Maroon
        Me.Label7.Location = New System.Drawing.Point(24, 98)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(96, 15)
        Me.Label7.TabIndex = 1
        Me.Label7.Text = "Lighten/Darken"
        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.ForeColor = System.Drawing.Color.Maroon
        Me.Label6.Location = New System.Drawing.Point(3, 121)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(117, 15)
        Me.Label6.TabIndex = 1
        Me.Label6.Text = "Alpha Transparency"
        Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.ForeColor = System.Drawing.Color.Maroon
        Me.Label5.Location = New System.Drawing.Point(24, 143)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(96, 15)
        Me.Label5.TabIndex = 1
        Me.Label5.Text = "Red"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.ForeColor = System.Drawing.Color.Maroon
        Me.Label4.Location = New System.Drawing.Point(24, 165)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(96, 15)
        Me.Label4.TabIndex = 1
        Me.Label4.Text = "Green"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.Maroon
        Me.Label3.Location = New System.Drawing.Point(24, 187)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(96, 15)
        Me.Label3.TabIndex = 1
        Me.Label3.Text = "Blue"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Maroon
        Me.Label1.Location = New System.Drawing.Point(4, 31)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(150, 15)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Currently Selected Color"
        '
        'GColorBlender1
        '
        Me.GColorBlender1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.GColorBlender1.BackColor = System.Drawing.SystemColors.Control
        Me.GColorBlender1.BarHeight = 20.0!
        CBlenderItems1.BlendGradientMode = System.Drawing.Drawing2D.LinearGradientMode.Horizontal
        CBlenderItems1.BlendGradientType = ColorBlender.cBlenderItems.eBlendGradientType.Path
        CBlenderItems1.BlendPathShape = ColorBlender.cBlenderItems.eBlendPathShape.Ellipse
        CBlenderItems1.BorderColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
        CBlenderItems1.cbColor = New System.Drawing.Color() {System.Drawing.Color.Transparent, System.Drawing.Color.Red, System.Drawing.Color.FromArgb(CType(CType(125, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(0, Byte), Integer)), System.Drawing.Color.Blue, System.Drawing.Color.Lime, System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))}
        CBlenderItems1.cbPosition = New Single() {0.0!, 0.191!, 0.341!, 0.51!, 0.71!, 1.0!}
        CFocalPoints1.CenterPtX = 0.2162162!
        CFocalPoints1.CenterPtY = 0.2972973!
        CFocalPoints1.FocusPtX = 0.0!
        CFocalPoints1.FocusPtY = 0.0!
        CBlenderItems1.FocalPoints = CFocalPoints1
        Me.GColorBlender1.gColorBlend = CBlenderItems1
        Me.GColorBlender1.Location = New System.Drawing.Point(145, 58)
        Me.GColorBlender1.Name = "GColorBlender1"
        Me.GColorBlender1.Size = New System.Drawing.Size(312, 151)
        Me.GColorBlender1.TabIndex = 0
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.ListView1)
        Me.GroupBox2.Controls.Add(Me.txbFocusScales)
        Me.GroupBox2.Controls.Add(Me.txbCenterPoint)
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.lblCenter)
        Me.GroupBox2.Location = New System.Drawing.Point(22, 303)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(583, 178)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Use the Information from the gColorBlender"
        '
        'ListView1
        '
        Me.ListView1.AutoArrange = False
        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Point, Me.cName, Me.argbName, Me.Alpha, Me.Red, Me.Green, Me.Blue})
        Me.ListView1.Location = New System.Drawing.Point(10, 46)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(567, 125)
        Me.ListView1.TabIndex = 5
        Me.ListView1.UseCompatibleStateImageBehavior = False
        Me.ListView1.View = System.Windows.Forms.View.Details
        '
        'Point
        '
        Me.Point.Text = "Point"
        '
        'cName
        '
        Me.cName.Text = "RGB Name"
        Me.cName.Width = 120
        '
        'argbName
        '
        Me.argbName.Text = "ARGB Name"
        Me.argbName.Width = 120
        '
        'Alpha
        '
        Me.Alpha.Text = "Alpha"
        '
        'Red
        '
        Me.Red.Text = "Red"
        '
        'Green
        '
        Me.Green.Text = "Green"
        '
        'Blue
        '
        Me.Blue.Text = "Blue"
        '
        'txbFocusScales
        '
        Me.txbFocusScales.Location = New System.Drawing.Point(378, 20)
        Me.txbFocusScales.Name = "txbFocusScales"
        Me.txbFocusScales.Size = New System.Drawing.Size(118, 20)
        Me.txbFocusScales.TabIndex = 4
        '
        'txbCenterPoint
        '
        Me.txbCenterPoint.Location = New System.Drawing.Point(137, 20)
        Me.txbCenterPoint.Name = "txbCenterPoint"
        Me.txbCenterPoint.Size = New System.Drawing.Size(118, 20)
        Me.txbCenterPoint.TabIndex = 3
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(304, 23)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(68, 13)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "FocusScales"
        '
        'lblCenter
        '
        Me.lblCenter.AutoSize = True
        Me.lblCenter.Location = New System.Drawing.Point(69, 23)
        Me.lblCenter.Name = "lblCenter"
        Me.lblCenter.Size = New System.Drawing.Size(62, 13)
        Me.lblCenter.TabIndex = 1
        Me.lblCenter.Text = "CenterPoint"
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.Black
        Me.Panel1.Controls.Add(Me.lblClear)
        Me.Panel1.Controls.Add(Me.lblReset)
        Me.Panel1.Controls.Add(Me.GColorBlender2)
        Me.Panel1.Controls.Add(Me.picDemoBlend2)
        Me.Panel1.Location = New System.Drawing.Point(5, 16)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(246, 319)
        Me.Panel1.TabIndex = 3
        '
        'lblClear
        '
        Me.lblClear.AutoSize = True
        Me.lblClear.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblClear.ForeColor = System.Drawing.Color.White
        Me.lblClear.Location = New System.Drawing.Point(193, 5)
        Me.lblClear.Name = "lblClear"
        Me.lblClear.Size = New System.Drawing.Size(36, 13)
        Me.lblClear.TabIndex = 2
        Me.lblClear.Text = "Clear"
        '
        'lblReset
        '
        Me.lblReset.AutoSize = True
        Me.lblReset.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblReset.ForeColor = System.Drawing.Color.White
        Me.lblReset.Location = New System.Drawing.Point(139, 5)
        Me.lblReset.Name = "lblReset"
        Me.lblReset.Size = New System.Drawing.Size(40, 13)
        Me.lblReset.TabIndex = 2
        Me.lblReset.Text = "Reset"
        '
        'GColorBlender2
        '
        Me.GColorBlender2.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.GColorBlender2.BackColor = System.Drawing.Color.Black
        Me.GColorBlender2.BarHeight = 20.0!
        CBlenderItems2.BlendGradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
        CBlenderItems2.BlendGradientType = ColorBlender.cBlenderItems.eBlendGradientType.Linear
        CBlenderItems2.BlendPathShape = ColorBlender.cBlenderItems.eBlendPathShape.Rectangle
        CBlenderItems2.BorderColor = System.Drawing.Color.Black
        CBlenderItems2.cbColor = New System.Drawing.Color() {System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)), System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)), System.Drawing.Color.Navy, System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)), System.Drawing.Color.Navy, System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)), System.Drawing.Color.FromArgb(CType(CType(120, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)), System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)), System.Drawing.Color.Maroon, System.Drawing.Color.Red, System.Drawing.Color.Red, System.Drawing.Color.Maroon, System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)), System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))}
        CBlenderItems2.cbPosition = New Single() {0.0!, 0.065!, 0.084!, 0.103!, 0.146!, 0.153!, 0.435!, 0.698!, 0.717!, 0.744!, 0.756!, 0.82!, 0.828!, 1.0!}
        CFocalPoints2.CenterPtX = 0.5!
        CFocalPoints2.CenterPtY = 0.5!
        CFocalPoints2.FocusPtX = 0.0!
        CFocalPoints2.FocusPtY = 0.0!
        CBlenderItems2.FocalPoints = CFocalPoints2
        Me.GColorBlender2.gColorBlend = CBlenderItems2
        Me.GColorBlender2.Location = New System.Drawing.Point(9, 26)
        Me.GColorBlender2.Name = "GColorBlender2"
        Me.GColorBlender2.ShowSample = False
        Me.GColorBlender2.Size = New System.Drawing.Size(230, 151)
        Me.GColorBlender2.TabIndex = 1
        '
        'picDemoBlend2
        '
        Me.picDemoBlend2.Location = New System.Drawing.Point(9, 173)
        Me.picDemoBlend2.Name = "picDemoBlend2"
        Me.picDemoBlend2.Size = New System.Drawing.Size(228, 143)
        Me.picDemoBlend2.TabIndex = 0
        Me.picDemoBlend2.TabStop = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.picDemoBlend)
        Me.GroupBox3.Location = New System.Drawing.Point(15, 485)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(342, 341)
        Me.GroupBox3.TabIndex = 4
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "GroupBox3"
        '
        'picDemoBlend
        '
        Me.picDemoBlend.Location = New System.Drawing.Point(13, 19)
        Me.picDemoBlend.Name = "picDemoBlend"
        Me.picDemoBlend.Size = New System.Drawing.Size(315, 315)
        Me.picDemoBlend.TabIndex = 0
        Me.picDemoBlend.TabStop = False
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.Panel1)
        Me.GroupBox4.Location = New System.Drawing.Point(363, 485)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(257, 341)
        Me.GroupBox4.TabIndex = 5
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "ShowSample = False"
        '
        'picBackgroundtile
        '
        Me.picBackgroundtile.Image = CType(resources.GetObject("picBackgroundtile.Image"), System.Drawing.Image)
        Me.picBackgroundtile.Location = New System.Drawing.Point(611, 458)
        Me.picBackgroundtile.Name = "picBackgroundtile"
        Me.picBackgroundtile.Size = New System.Drawing.Size(17, 17)
        Me.picBackgroundtile.TabIndex = 6
        Me.picBackgroundtile.TabStop = False
        Me.picBackgroundtile.Visible = False
        '
        'TestForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(632, 831)
        Me.Controls.Add(Me.picBackgroundtile)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.grpBuildABlend)
        Me.Controls.Add(Me.panRainbow)
        Me.Name = "TestForm"
        Me.Text = "gColorBlender"
        Me.grpBuildABlend.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        CType(Me.picDemoBlend2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.picDemoBlend, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.picBackgroundtile, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents panRainbow As System.Windows.Forms.Panel
    Friend WithEvents grpBuildABlend As System.Windows.Forms.GroupBox
    Friend WithEvents GColorBlender1 As ColorBlender.gColorBlender
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents txbFocusScales As System.Windows.Forms.TextBox
    Friend WithEvents txbCenterPoint As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents lblCenter As System.Windows.Forms.Label
    Friend WithEvents ListView1 As System.Windows.Forms.ListView
    Friend WithEvents Point As System.Windows.Forms.ColumnHeader
    Friend WithEvents cName As System.Windows.Forms.ColumnHeader
    Friend WithEvents argbName As System.Windows.Forms.ColumnHeader
    Friend WithEvents Alpha As System.Windows.Forms.ColumnHeader
    Friend WithEvents Red As System.Windows.Forms.ColumnHeader
    Friend WithEvents Green As System.Windows.Forms.ColumnHeader
    Friend WithEvents Blue As System.Windows.Forms.ColumnHeader
    Friend WithEvents GColorBlender2 As ColorBlender.gColorBlender
    Friend WithEvents picDemoBlend2 As System.Windows.Forms.PictureBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents picDemoBlend As System.Windows.Forms.PictureBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents lblClear As System.Windows.Forms.Label
    Friend WithEvents lblReset As System.Windows.Forms.Label
    Friend WithEvents picBackgroundtile As System.Windows.Forms.PictureBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents GArrow14 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow13 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow12 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow11 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow10 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow9 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow8 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow7 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow6 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow5 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow4 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow3 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow2 As ColorBlenderTestForm.gArrow
    Friend WithEvents GArrow1 As ColorBlenderTestForm.gArrow
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Software Developer
United States United States
I first got hooked on programing with the TI994A. After it finally lost all support I reluctantly moved to the Apple IIe. Thank You BeagleBros for getting me through. I wrote programs for my Scuba buisness during this time. Currently I am a Database manager and software developer. I started with VBA and VB6 and now having fun with VB.NET/WPF/C#...

Comments and Discussions