textcolor.vb

Programming the .NET Compact Framework with vb 源代码

Imports YaoDurant.Drawing

Namespace TextColor

Public Class FormMain
    Inherits System.Windows.Forms.Form
      Friend WithEvents menuMain As System.Windows.Forms.MainMenu
      Friend WithEvents label3 As System.Windows.Forms.Label
      Friend WithEvents label4 As System.Windows.Forms.Label
      Friend WithEvents label5 As System.Windows.Forms.Label
      Friend WithEvents label1 As System.Windows.Forms.Label
      Friend WithEvents label2 As System.Windows.Forms.Label
      Friend WithEvents lblTextR As System.Windows.Forms.Label
      Friend WithEvents lblTextG As System.Windows.Forms.Label
      Friend WithEvents lblTextB As System.Windows.Forms.Label
      Friend WithEvents lblBackR As System.Windows.Forms.Label
      Friend WithEvents lblBackG As System.Windows.Forms.Label
      Friend WithEvents lblBackB As System.Windows.Forms.Label
      Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextSetColor As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextControlText As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextGrayText As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextHighlightText As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextInfoText As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextMenuText As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextWindowText As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextAliceBlue As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextBeige As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextCoral As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextDeepPink As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextFireBrick As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextGainsboro As System.Windows.Forms.MenuItem
      Friend WithEvents mitemTextHoneyDew As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackSetColor As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackControl As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackHighlight As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackInfo As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackMenu As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackWindow As System.Windows.Forms.MenuItem
      Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackIndigo As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackKhaki As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackLavendar As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackMagenta As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackNavy As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackOlive As System.Windows.Forms.MenuItem
      Friend WithEvents mitemBackPlum As System.Windows.Forms.MenuItem

#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)
        MyBase.Dispose(disposing)
    End Sub

    '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 Sub InitializeComponent()
Me.menuMain = New System.Windows.Forms.MainMenu
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.mitemTextSetColor = New System.Windows.Forms.MenuItem
Me.MenuItem3 = New System.Windows.Forms.MenuItem
Me.mitemTextControlText = New System.Windows.Forms.MenuItem
Me.mitemTextGrayText = New System.Windows.Forms.MenuItem
Me.mitemTextHighlightText = New System.Windows.Forms.MenuItem
Me.mitemTextInfoText = New System.Windows.Forms.MenuItem
Me.mitemTextMenuText = New System.Windows.Forms.MenuItem
Me.mitemTextWindowText = New System.Windows.Forms.MenuItem
Me.MenuItem10 = New System.Windows.Forms.MenuItem
Me.mitemTextAliceBlue = New System.Windows.Forms.MenuItem
Me.mitemTextBeige = New System.Windows.Forms.MenuItem
Me.mitemTextCoral = New System.Windows.Forms.MenuItem
Me.mitemTextDeepPink = New System.Windows.Forms.MenuItem
Me.mitemTextFireBrick = New System.Windows.Forms.MenuItem
Me.mitemTextGainsboro = New System.Windows.Forms.MenuItem
Me.mitemTextHoneyDew = New System.Windows.Forms.MenuItem
Me.MenuItem18 = New System.Windows.Forms.MenuItem
Me.mitemBackSetColor = New System.Windows.Forms.MenuItem
Me.MenuItem20 = New System.Windows.Forms.MenuItem
Me.mitemBackControl = New System.Windows.Forms.MenuItem
Me.mitemBackHighlight = New System.Windows.Forms.MenuItem
Me.mitemBackInfo = New System.Windows.Forms.MenuItem
Me.mitemBackMenu = New System.Windows.Forms.MenuItem
Me.mitemBackWindow = New System.Windows.Forms.MenuItem
Me.MenuItem26 = New System.Windows.Forms.MenuItem
Me.mitemBackIndigo = New System.Windows.Forms.MenuItem
Me.mitemBackKhaki = New System.Windows.Forms.MenuItem
Me.mitemBackLavendar = New System.Windows.Forms.MenuItem
Me.mitemBackMagenta = New System.Windows.Forms.MenuItem
Me.mitemBackNavy = New System.Windows.Forms.MenuItem
Me.mitemBackOlive = New System.Windows.Forms.MenuItem
Me.mitemBackPlum = New System.Windows.Forms.MenuItem
Me.label3 = New System.Windows.Forms.Label
Me.label4 = New System.Windows.Forms.Label
Me.label5 = New System.Windows.Forms.Label
Me.label1 = New System.Windows.Forms.Label
Me.label2 = New System.Windows.Forms.Label
Me.lblTextR = New System.Windows.Forms.Label
Me.lblTextG = New System.Windows.Forms.Label
Me.lblTextB = New System.Windows.Forms.Label
Me.lblBackR = New System.Windows.Forms.Label
Me.lblBackG = New System.Windows.Forms.Label
Me.lblBackB = New System.Windows.Forms.Label
'
'menuMain
'
Me.menuMain.MenuItems.Add(Me.MenuItem1)
Me.menuMain.MenuItems.Add(Me.MenuItem18)
'
'MenuItem1
'
Me.MenuItem1.MenuItems.Add(Me.mitemTextSetColor)
Me.MenuItem1.MenuItems.Add(Me.MenuItem3)
Me.MenuItem1.MenuItems.Add(Me.MenuItem10)
Me.MenuItem1.Text = "Text"
'
'mitemTextSetColor
'
Me.mitemTextSetColor.Text = "Set Color..."
'
'MenuItem3
'
Me.MenuItem3.MenuItems.Add(Me.mitemTextControlText)
Me.MenuItem3.MenuItems.Add(Me.mitemTextGrayText)
Me.MenuItem3.MenuItems.Add(Me.mitemTextHighlightText)
Me.MenuItem3.MenuItems.Add(Me.mitemTextInfoText)
Me.MenuItem3.MenuItems.Add(Me.mitemTextMenuText)
Me.MenuItem3.MenuItems.Add(Me.mitemTextWindowText)
Me.MenuItem3.Text = "System Colors"
'
'mitemTextControlText
'
Me.mitemTextControlText.Text = "ControlText"
'
'mitemTextGrayText
'
Me.mitemTextGrayText.Text = "GrayText"
'
'mitemTextHighlightText
'
Me.mitemTextHighlightText.Text = "HighlightText"
'
'mitemTextInfoText
'
Me.mitemTextInfoText.Text = "InfoText"
'
'mitemTextMenuText
'
Me.mitemTextMenuText.Text = "MenuText"
'
'mitemTextWindowText
'
Me.mitemTextWindowText.Text = "WindowText"
'
'MenuItem10
'
Me.MenuItem10.MenuItems.Add(Me.mitemTextAliceBlue)
Me.MenuItem10.MenuItems.Add(Me.mitemTextBeige)
Me.MenuItem10.MenuItems.Add(Me.mitemTextCoral)
Me.MenuItem10.MenuItems.Add(Me.mitemTextDeepPink)
Me.MenuItem10.MenuItems.Add(Me.mitemTextFireBrick)
Me.MenuItem10.MenuItems.Add(Me.mitemTextGainsboro)
Me.MenuItem10.MenuItems.Add(Me.mitemTextHoneyDew)
Me.MenuItem10.Text = "Named Colors"
'
'mitemTextAliceBlue
'
Me.mitemTextAliceBlue.Text = "AliceBlue"
'
'mitemTextBeige
'
Me.mitemTextBeige.Text = "Beige"
'
'mitemTextCoral
'
Me.mitemTextCoral.Text = "Coral"
'
'mitemTextDeepPink
'
Me.mitemTextDeepPink.Text = "DeepPink"
'
'mitemTextFireBrick
'
Me.mitemTextFireBrick.Text = "FireBrick"
'
'mitemTextGainsboro
'
Me.mitemTextGainsboro.Text = "Gainsboro"
'
'mitemTextHoneyDew
'
Me.mitemTextHoneyDew.Text = "HoneyDew"
'
'MenuItem18
'
Me.MenuItem18.MenuItems.Add(Me.mitemBackSetColor)
Me.MenuItem18.MenuItems.Add(Me.MenuItem20)
Me.MenuItem18.MenuItems.Add(Me.MenuItem26)
Me.MenuItem18.Text = "Background"
'
'mitemBackSetColor
'
Me.mitemBackSetColor.Text = "Set Color..."
'
'MenuItem20
'
Me.MenuItem20.MenuItems.Add(Me.mitemBackControl)
Me.MenuItem20.MenuItems.Add(Me.mitemBackHighlight)
Me.MenuItem20.MenuItems.Add(Me.mitemBackInfo)
Me.MenuItem20.MenuItems.Add(Me.mitemBackMenu)
Me.MenuItem20.MenuItems.Add(Me.mitemBackWindow)
Me.MenuItem20.Text = "System Colors"
'
'mitemBackControl
'
Me.mitemBackControl.Text = "Control"
'
'mitemBackHighlight
'
Me.mitemBackHighlight.Text = "Highlight"
'
'mitemBackInfo
'
Me.mitemBackInfo.Text = "Info"
'
'mitemBackMenu
'
Me.mitemBackMenu.Text = "Menu"
'
'mitemBackWindow
'
Me.mitemBackWindow.Text = "Window"
'
'MenuItem26
'
Me.MenuItem26.MenuItems.Add(Me.mitemBackIndigo)
Me.MenuItem26.MenuItems.Add(Me.mitemBackKhaki)
Me.MenuItem26.MenuItems.Add(Me.mitemBackLavendar)
Me.MenuItem26.MenuItems.Add(Me.mitemBackMagenta)
Me.MenuItem26.MenuItems.Add(Me.mitemBackNavy)
Me.MenuItem26.MenuItems.Add(Me.mitemBackOlive)
Me.MenuItem26.MenuItems.Add(Me.mitemBackPlum)
Me.MenuItem26.Text = "Named Colors"
'
'mitemBackIndigo
'
Me.mitemBackIndigo.Text = "Indigo"
'
'mitemBackKhaki
'
Me.mitemBackKhaki.Text = "Khaki"
'
'mitemBackLavendar
'
Me.mitemBackLavendar.Text = "Lavender"
'
'mitemBackMagenta
'
Me.mitemBackMagenta.Text = "Magenta"
'
'mitemBackNavy
'
Me.mitemBackNavy.Text = "Navy"
'
'mitemBackOlive
'
Me.mitemBackOlive.Text = "Olive"
'
'mitemBackPlum
'
Me.mitemBackPlum.Text = "Plum"
'
'label3
'