VB.Net/2D/Color
Содержание
Color Dialog: Changing the background and text colors of a form
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Public Class MainClass
Shared Sub Main()
Dim myform As Form = New FrmColorDialogTest()
Application.Run(myform)
End Sub " Main
End Class
Public Class FrmColorDialogTest
Inherits System.Windows.Forms.Form Friend WithEvents cmdBackgroundButton As Button Friend WithEvents cmdTextButton As Button
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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.ruponentModel.Container
"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()
Me.cmdBackgroundButton = New System.Windows.Forms.Button()
Me.cmdTextButton = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
"cmdBackgroundButton
"
Me.cmdBackgroundButton.Location = New System.Drawing.Point(16, 16)
Me.cmdBackgroundButton.Name = "cmdBackgroundButton"
Me.cmdBackgroundButton.Size = New System.Drawing.Size(160, 24)
Me.cmdBackgroundButton.TabIndex = 0
Me.cmdBackgroundButton.Text = "Change Background Color"
"
"cmdTextButton
"
Me.cmdTextButton.Location = New System.Drawing.Point(16, 56)
Me.cmdTextButton.Name = "cmdTextButton"
Me.cmdTextButton.Size = New System.Drawing.Size(160, 24)
Me.cmdTextButton.TabIndex = 1
Me.cmdTextButton.Text = "Change Text Color"
"
"FrmColorDialogTest
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(192, 93)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdTextButton, Me.cmdBackgroundButton})
Me.Name = "FrmColorDialogTest"
Me.Text = "Using Color Dialogs"
Me.ResumeLayout(False)
End Sub
- End Region
Private Sub cmdTextButton_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdTextButton.Click
Dim colorBox As ColorDialog = New ColorDialog()
Dim result As DialogResult
result = colorBox.ShowDialog()
If result = DialogResult.Cancel Then
Return
End If
cmdBackgroundButton.ForeColor = colorBox.Color
cmdTextButton.ForeColor = colorBox.Color
End Sub
Private Sub cmdBackgroundButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles cmdBackgroundButton.Click
Dim colorBox As ColorDialog = New ColorDialog()
Dim result As DialogResult
colorBox.FullOpen = True
result = colorBox.ShowDialog()
If result = DialogResult.Cancel Then
Return
End If
Me.BackColor = colorBox.Color
End Sub
End Class
</source>
Construct Color from R G B Value
<source lang="vbnet"> Imports System Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Imports System.Drawing Imports System.Drawing.Drawing2D Public Class MainClass
Shared Sub Main()
Dim myform As Form = New DrawingForm()
Application.Run(myform)
End Sub
End Class
Public Class DrawingForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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.ruponentModel.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.
Friend WithEvents drawEllipseButton As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.drawEllipseButton = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
"drawEllipseButton
"
Me.drawEllipseButton.Location = New System.Drawing.Point(43, 32)
Me.drawEllipseButton.Name = "drawEllipseButton"
Me.drawEllipseButton.TabIndex = 1
Me.drawEllipseButton.Text = "Draw Ellipse"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(160, 86)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.drawEllipseButton})
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
- End Region
Dim drawEllipse As Boolean = False
Private Sub drawEllipseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles drawEllipseButton.Click
drawEllipse = Not drawEllipse
Me.Refresh()
End Sub
Private Sub DrawingForm_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles MyBase.Paint
Dim blue25PercentOpaque As Color = Color.FromArgb(255 * 1 / 4, 0, 0, 255)
Dim blue75PercentOpaque As Color = Color.FromArgb(-1090518785)
Dim white As Color = Color.FromArgb(255, 255, 255)
Dim black As Color = Color.FromArgb(0, 0, 0)
Dim blue1 As Color = Color.BlueViolet
Dim blue2 As Color = Color.FromKnownColor(KnownColor.ActiveBorder)
Dim blue3 As Color = Color.FromName("ActiveBorder")
Dim htmlBlue As Color = ColorTranslator.FromHtml("#0000ff")
If Not drawEllipse Then Return
Dim g As Graphics = e.Graphics
Dim b As Brush = New SolidBrush(blue25PercentOpaque)
g.FillEllipse(b, Me.ClientRectangle)
End Sub
End Class
</source>
Get all Known color and calcuate its Brightness and Saturation
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.IO
public class MainClass
Shared Sub Main()
Dim form1 As Form = New Form1
Application.Run(form1)
End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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.ruponentModel.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.
Friend WithEvents lstColors As System.Windows.Forms.ListBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblBrightness As System.Windows.Forms.Label
Friend WithEvents lblHue As System.Windows.Forms.Label
Friend WithEvents lblSaturation As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lstColors = New System.Windows.Forms.ListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBrightness = New System.Windows.Forms.Label()
Me.lblHue = New System.Windows.Forms.Label()
Me.lblSaturation = New System.Windows.Forms.Label()
Me.SuspendLayout()
"
"lstColors
"
Me.lstColors.Location = New System.Drawing.Point(12, 40)
Me.lstColors.Name = "lstColors"
Me.lstColors.Size = New System.Drawing.Size(200, 238)
Me.lstColors.TabIndex = 0
"
"Label1
"
Me.Label1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Label1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Label1.Location = New System.Drawing.Point(12, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(200, 20)
Me.Label1.TabIndex = 1
Me.Label1.Text = " Choose a Background Color:"
"
"lblBrightness
"
Me.lblBrightness.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Me.lblBrightness.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblBrightness.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.lblBrightness.Location = New System.Drawing.Point(268, 12)
Me.lblBrightness.Name = "lblBrightness"
Me.lblBrightness.Size = New System.Drawing.Size(136, 20)
Me.lblBrightness.TabIndex = 2
Me.lblBrightness.Text = " Brightness"
"
"lblHue
"
Me.lblHue.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Me.lblHue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblHue.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.lblHue.Location = New System.Drawing.Point(268, 36)
Me.lblHue.Name = "lblHue"
Me.lblHue.Size = New System.Drawing.Size(136, 20)
Me.lblHue.TabIndex = 3
Me.lblHue.Text = " Hue"
"
"lblSaturation
"
Me.lblSaturation.BackColor = System.Drawing.SystemColors.ActiveCaptionText
Me.lblSaturation.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblSaturation.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.lblSaturation.Location = New System.Drawing.Point(268, 60)
Me.lblSaturation.Name = "lblSaturation"
Me.lblSaturation.Size = New System.Drawing.Size(136, 20)
Me.lblSaturation.TabIndex = 4
Me.lblSaturation.Text = " Saturation"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.ClientSize = New System.Drawing.Size(436, 294)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblSaturation, Me.lblHue, Me.lblBrightness, Me.Label1, Me.lstColors})
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Form1"
Me.Text = "Color Changer"
Me.ResumeLayout(False)
End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ColorNames() As String
ColorNames = System.Enum.GetNames(GetType(KnownColor))
lstColors.Items.AddRange(ColorNames)
End Sub
Private Sub lstColors_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstColors.SelectedIndexChanged
Dim SelectedColor As KnownColor
SelectedColor = System.Enum.Parse(GetType(KnownColor), lstColors.Text)
Me.BackColor = System.Drawing.Color.FromKnownColor(SelectedColor)
lblBrightness.Text = " Brightness = " & Me.BackColor.GetBrightness.ToString()
lblHue.Text = " Hue = " & Me.BackColor.GetHue.ToString()
lblSaturation.Text = " Saturation = " & Me.BackColor.GetSaturation.ToString()
End Sub
End Class
</source>
Track Form background Color
<source lang="vbnet"> Imports System.Windows.Forms Imports System.Drawing
Module Module1
Sub Main()
Application.Run(New Form1)
End Sub
End Module
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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.ruponentModel.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.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TrackBar1 As System.Windows.Forms.TrackBar
Friend WithEvents TrackBar2 As System.Windows.Forms.TrackBar
Friend WithEvents TrackBar3 As System.Windows.Forms.TrackBar
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.TrackBar1 = New System.Windows.Forms.TrackBar()
Me.TrackBar2 = New System.Windows.Forms.TrackBar()
Me.TrackBar3 = New System.Windows.Forms.TrackBar()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
CType(Me.TrackBar1, System.ruponentModel.ISupportInitialize).BeginInit()
CType(Me.TrackBar2, System.ruponentModel.ISupportInitialize).BeginInit()
CType(Me.TrackBar3, System.ruponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
"
"Label1
"
Me.Label1.Location = New System.Drawing.Point(20, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(56, 23)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Red"
"
"TrackBar1
"
Me.TrackBar1.Location = New System.Drawing.Point(80, 30)
Me.TrackBar1.Maximum = 255
Me.TrackBar1.Name = "TrackBar1"
Me.TrackBar1.Size = New System.Drawing.Size(180, 34)
Me.TrackBar1.TabIndex = 2
Me.TrackBar1.TickFrequency = 25
"
"TrackBar2
"
Me.TrackBar2.Location = New System.Drawing.Point(80, 80)
Me.TrackBar2.Maximum = 255
Me.TrackBar2.Name = "TrackBar2"
Me.TrackBar2.Size = New System.Drawing.Size(180, 34)
Me.TrackBar2.TabIndex = 5
Me.TrackBar2.TickFrequency = 25
"
"TrackBar3
"
Me.TrackBar3.Location = New System.Drawing.Point(80, 130)
Me.TrackBar3.Maximum = 255
Me.TrackBar3.Name = "TrackBar3"
Me.TrackBar3.Size = New System.Drawing.Size(180, 34)
Me.TrackBar3.TabIndex = 3
Me.TrackBar3.TickFrequency = 25
"
"Label2
"
Me.Label2.Location = New System.Drawing.Point(20, 80)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 23)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Green"
"
"Label3
"
Me.Label3.Location = New System.Drawing.Point(20, 130)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 23)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Blue"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.Label2, Me.TrackBar3, Me.TrackBar2, Me.TrackBar1, Me.Label1})
Me.Name = "Form1"
Me.Text = "TrackBarDemo"
CType(Me.TrackBar1, System.ruponentModel.ISupportInitialize).EndInit()
CType(Me.TrackBar2, System.ruponentModel.ISupportInitialize).EndInit()
CType(Me.TrackBar3, System.ruponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
- End Region
Public Red As Byte
Public Green As Byte
Public Blue As Byte
Public Background As Color
Private Sub TrackBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
Red = TrackBar1.Value
Background = Color.FromArgb(Red, Green, Blue)
RefreshBackground()
End Sub
Private Sub TrackBar2_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar2.ValueChanged
Green = TrackBar2.Value
Background = Color.FromArgb(Red, Green, Blue)
RefreshBackground()
End Sub
Private Sub TrackBar3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar3.ValueChanged
Blue = TrackBar3.Value
Background = Color.FromArgb(Red, Green, Blue)
RefreshBackground()
End Sub
Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
Red = Form1.ActiveForm.BackColor.R
Green = Form1.ActiveForm.BackColor.G
Blue = Form1.ActiveForm.BackColor.B
TrackBar1.Value = Red
TrackBar2.Value = Green
TrackBar3.Value = Blue
End Sub
Private Sub RefreshBackground()
Form1.ActiveForm.BackColor = Background
Form1.ActiveForm.Refresh()
End Sub
End Class
</source>
Use color dialog to set form background
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main()
Dim form1 As Form = New Form1()
Application.Run(form1)
End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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
Friend WithEvents btnColor As System.Windows.Forms.Button
"Required by the Windows Form Designer
Private components As System.ruponentModel.Container
"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()
Me.btnColor = New System.Windows.Forms.Button()
Me.SuspendLayout()
"
"btnColor
"
Me.btnColor.Location = New System.Drawing.Point(54, 192)
Me.btnColor.Name = "btnColor"
Me.btnColor.Size = New System.Drawing.Size(184, 48)
Me.btnColor.TabIndex = 0
Me.btnColor.Text = "Change background color"
"
"Form1
"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me.ClientSize = New System.Drawing.Size(292, 268)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnColor})
Me.Name = "Form1"
Me.Text = "Color Dialog Example"
Me.ResumeLayout(False)
End Sub
- End Region
Private Sub btnColor_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnColor.Click
Dim myDialog As New ColorDialog()
Dim Temp As Color = btnColor.BackColor
If myDialog.ShowDialog() = DialogResult.OK Then
Me.BackColor = myDialog.Color
btnColor.BackColor = Temp
End If
End Sub
End Class
</source>
Using different colors in Visual Basic
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Public Class MainClass
Shared Sub Main()
Dim myform As Form = New FrmColorForm()
Application.Run(myform)
End Sub " Main
End Class
Public Class FrmColorForm
Inherits System.Windows.Forms.Form " input text boxes Friend WithEvents txtColorName As TextBox Friend WithEvents txtGreenBox As TextBox Friend WithEvents txtRedBox As TextBox Friend WithEvents txtAlphaBox As TextBox Friend WithEvents txtBlueBox As TextBox " set color command buttons Friend WithEvents cmdColorName As Button Friend WithEvents cmdColorValue As Button " color labels Friend WithEvents lblBlue As Label Friend WithEvents lblGreen As Label Friend WithEvents lblRed As Label Friend WithEvents lblAlpha As Label " group boxes Friend WithEvents nameBox As GroupBox Friend WithEvents colorValueGroup As GroupBox
- Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
"This call is required by the Windows Form Designer.
InitializeComponent()
"Add any initialization after the InitializeComponent() call
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.ruponentModel.Container
"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()
Me.nameBox = New System.Windows.Forms.GroupBox()
Me.cmdColorName = New System.Windows.Forms.Button()
Me.txtColorName = New System.Windows.Forms.TextBox()
Me.colorValueGroup = New System.Windows.Forms.GroupBox()
Me.lblBlue = New System.Windows.Forms.Label()
Me.lblGreen = New System.Windows.Forms.Label()
Me.lblRed = New System.Windows.Forms.Label()
Me.lblAlpha = New System.Windows.Forms.Label()
Me.txtBlueBox = New System.Windows.Forms.TextBox()
Me.txtGreenBox = New System.Windows.Forms.TextBox()
Me.txtRedBox = New System.Windows.Forms.TextBox()
Me.txtAlphaBox = New System.Windows.Forms.TextBox()
Me.cmdColorValue = New System.Windows.Forms.Button()
Me.nameBox.SuspendLayout()
Me.colorValueGroup.SuspendLayout()
Me.SuspendLayout()
"
"nameBox
"
Me.nameBox.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdColorName, Me.txtColorName})
Me.nameBox.Location = New System.Drawing.Point(0, 184)
Me.nameBox.Name = "nameBox"
Me.nameBox.Size = New System.Drawing.Size(304, 64)
Me.nameBox.TabIndex = 0
Me.nameBox.TabStop = False
Me.nameBox.Text = "Set Back Color Name"
"
"cmdColorName
"
Me.cmdColorName.Location = New System.Drawing.Point(160, 24)
Me.cmdColorName.Name = "cmdColorName"
Me.cmdColorName.Size = New System.Drawing.Size(112, 24)
Me.cmdColorName.TabIndex = 1
Me.cmdColorName.Text = "Set Color Name"
"
"txtColorName
"
Me.txtColorName.Location = New System.Drawing.Point(16, 24)
Me.txtColorName.Name = "txtColorName"
Me.txtColorName.Size = New System.Drawing.Size(128, 20)
Me.txtColorName.TabIndex = 0
Me.txtColorName.Text = "Wheat"
"
"colorValueGroup
"
Me.colorValueGroup.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblBlue, Me.lblGreen, Me.lblRed, Me.lblAlpha, Me.txtBlueBox, Me.txtGreenBox, Me.txtRedBox, Me.txtAlphaBox, Me.cmdColorValue})
Me.colorValueGroup.Location = New System.Drawing.Point(0, 248)
Me.colorValueGroup.Name = "colorValueGroup"
Me.colorValueGroup.Size = New System.Drawing.Size(304, 56)
Me.colorValueGroup.TabIndex = 1
Me.colorValueGroup.TabStop = False
Me.colorValueGroup.Text = "Set Front Color Value"
"
"lblBlue
"
Me.lblBlue.Location = New System.Drawing.Point(128, 16)
Me.lblBlue.Name = "lblBlue"
Me.lblBlue.Size = New System.Drawing.Size(40, 16)
Me.lblBlue.TabIndex = 7
Me.lblBlue.Text = "Blue"
"
"lblGreen
"
Me.lblGreen.Location = New System.Drawing.Point(88, 16)
Me.lblGreen.Name = "lblGreen"
Me.lblGreen.Size = New System.Drawing.Size(40, 16)
Me.lblGreen.TabIndex = 6
Me.lblGreen.Text = "Green"
"
"lblRed
"
Me.lblRed.Location = New System.Drawing.Point(56, 16)
Me.lblRed.Name = "lblRed"
Me.lblRed.Size = New System.Drawing.Size(32, 16)
Me.lblRed.TabIndex = 5
Me.lblRed.Text = "Red"
"
"lblAlpha
"
Me.lblAlpha.Location = New System.Drawing.Point(8, 16)
Me.lblAlpha.Name = "lblAlpha"
Me.lblAlpha.Size = New System.Drawing.Size(40, 16)
Me.lblAlpha.TabIndex = 4
Me.lblAlpha.Text = "Alpha"
"
"txtBlueBox
"
Me.txtBlueBox.Location = New System.Drawing.Point(128, 32)
Me.txtBlueBox.Name = "txtBlueBox"
Me.txtBlueBox.Size = New System.Drawing.Size(32, 20)
Me.txtBlueBox.TabIndex = 3
Me.txtBlueBox.Text = "255"
"
"txtGreenBox
"
Me.txtGreenBox.Location = New System.Drawing.Point(88, 32)
Me.txtGreenBox.Name = "txtGreenBox"
Me.txtGreenBox.Size = New System.Drawing.Size(32, 20)
Me.txtGreenBox.TabIndex = 2
Me.txtGreenBox.Text = "0"
"
"txtRedBox
"
Me.txtRedBox.Location = New System.Drawing.Point(48, 32)
Me.txtRedBox.Name = "txtRedBox"
Me.txtRedBox.Size = New System.Drawing.Size(32, 20)
Me.txtRedBox.TabIndex = 1
Me.txtRedBox.Text = "0"
"
"txtAlphaBox
"
Me.txtAlphaBox.Location = New System.Drawing.Point(8, 32)
Me.txtAlphaBox.Name = "txtAlphaBox"
Me.txtAlphaBox.Size = New System.Drawing.Size(32, 20)
Me.txtAlphaBox.TabIndex = 0
Me.txtAlphaBox.Text = "100"
"
"cmdColorValue
"
Me.cmdColorValue.Location = New System.Drawing.Point(168, 32)
Me.cmdColorValue.Name = "cmdColorValue"
Me.cmdColorValue.Size = New System.Drawing.Size(112, 24)
Me.cmdColorValue.TabIndex = 3
Me.cmdColorValue.Text = "Set Color Value"
"
"FrmColorForm
"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(304, 309)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.colorValueGroup, Me.nameBox})
Me.Name = "FrmColorForm"
Me.Text = "Using Colors"
Me.nameBox.ResumeLayout(False)
Me.colorValueGroup.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
- End Region
" color for back rectangle
Private mBehindColor As Color = Color.Wheat
" color for front rectangle
Private mFrontColor As Color = Color.FromArgb(100, 0, 0, 255)
" overrides Form OnPaint method
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim graphicsObject As Graphics = e.Graphics " get graphics
Dim textBrush As SolidBrush = New SolidBrush(Color.Black)
Dim brush As SolidBrush = New SolidBrush(Color.White)
graphicsObject.FillRectangle(brush, 4, 4, 275, 180)
graphicsObject.DrawString(mBehindColor.Name, Me.Font, _
textBrush, 40, 5)
brush.Color = mBehindColor
graphicsObject.FillRectangle(brush, 45, 20, 150, 120)
graphicsObject.DrawString("Alpha: " & mFrontColor.A & _
" Red: " & mFrontColor.R & " Green: " & mFrontColor.G _
& " Blue: " & mFrontColor.B, Me.Font, textBrush, _
55, 165)
brush.Color = mFrontColor
graphicsObject.FillRectangle(brush, 65, 35, 170, 130)
End Sub
Private Sub cmdColorValue_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles cmdColorValue.Click
mFrontColor = Color.FromArgb(txtAlphaBox.Text, _
txtRedBox.Text, txtGreenBox.Text, txtBlueBox.Text)
Invalidate()
End Sub
Private Sub cmdColorName_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles cmdColorName.Click
mBehindColor = Color.FromName(txtColorName.Text)
Invalidate()
End Sub
End Class
</source>
