formmain.vb

Visual Basic.net 实例入门

Imports System.Drawing.Drawing2D
Public Class formMain
    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 PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents lbPen1 As System.Windows.Forms.Label
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents Panel3 As System.Windows.Forms.Panel
    Friend WithEvents lbPen3 As System.Windows.Forms.Label
    Friend WithEvents lbPen2 As System.Windows.Forms.Label
    Friend WithEvents Panel4 As System.Windows.Forms.Panel
    Friend WithEvents lbPen4 As System.Windows.Forms.Label
            Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents Panel5 As System.Windows.Forms.Panel
    Friend WithEvents lbPen5 As System.Windows.Forms.Label
            Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents mLine As System.Windows.Forms.MenuItem
    Friend WithEvents mCurve As System.Windows.Forms.MenuItem
    Friend WithEvents mNew As System.Windows.Forms.MenuItem
    Friend WithEvents mExit As System.Windows.Forms.MenuItem
    Friend WithEvents mPencil As System.Windows.Forms.MenuItem
    Friend WithEvents mEraser As System.Windows.Forms.MenuItem
    Friend WithEvents mPen As System.Windows.Forms.MenuItem
    Friend WithEvents mFile As System.Windows.Forms.MenuItem
    Friend WithEvents mHollow4 As System.Windows.Forms.MenuItem
    Friend WithEvents mHollow3 As System.Windows.Forms.MenuItem
    Friend WithEvents mFill2 As System.Windows.Forms.MenuItem
    Friend WithEvents mElli As System.Windows.Forms.MenuItem
    Friend WithEvents mHollow2 As System.Windows.Forms.MenuItem
    Friend WithEvents mFill3 As System.Windows.Forms.MenuItem
    Friend WithEvents mRect As System.Windows.Forms.MenuItem
    Friend WithEvents mFill1 As System.Windows.Forms.MenuItem
    Friend WithEvents mHollow1 As System.Windows.Forms.MenuItem
    Friend WithEvents mIcon As System.Windows.Forms.MenuItem
    Friend WithEvents m1 As System.Windows.Forms.MenuItem
    Friend WithEvents mWidth As System.Windows.Forms.MenuItem
    Friend WithEvents mFill4 As System.Windows.Forms.MenuItem
    Friend WithEvents mColor As System.Windows.Forms.MenuItem
    Friend WithEvents mPolygon As System.Windows.Forms.MenuItem
    Friend WithEvents mOption As System.Windows.Forms.MenuItem
    Friend WithEvents mHelp As System.Windows.Forms.MenuItem
    Friend WithEvents mAbout As System.Windows.Forms.MenuItem
    Friend WithEvents tbbRect As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbElli As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbFillRect As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbPencil As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbLine As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbCurve As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbFillElli As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbIcon As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbEraser As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbPu As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbPolygon As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbFillPolygon As System.Windows.Forms.ToolBarButton
    Friend WithEvents mPu As System.Windows.Forms.MenuItem
    Friend WithEvents mIconSet As System.Windows.Forms.MenuItem
    Friend WithEvents m5 As System.Windows.Forms.MenuItem
    Friend WithEvents m2 As System.Windows.Forms.MenuItem
    Friend WithEvents m3 As System.Windows.Forms.MenuItem
    Friend WithEvents m4 As System.Windows.Forms.MenuItem
        Friend WithEvents mClosedCurve As System.Windows.Forms.MenuItem
    Friend WithEvents tbbFillClosedCurve As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbClosedCurve As System.Windows.Forms.ToolBarButton
                                            Friend WithEvents btOpenIco As System.Windows.Forms.Button
        Friend WithEvents lbLineColor As System.Windows.Forms.Label
            Friend WithEvents lbFillColor As System.Windows.Forms.Label
            Friend WithEvents lbColor As System.Windows.Forms.Label
    Friend WithEvents pnlStyle As System.Windows.Forms.Panel
        Friend WithEvents cbStyle As System.Windows.Forms.ComboBox
    Friend WithEvents pnlColor2 As System.Windows.Forms.Panel
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents pnlIcon As System.Windows.Forms.Panel
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents pnlWidth As System.Windows.Forms.Panel
        Friend WithEvents pnlColor1 As System.Windows.Forms.Panel
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents pbIcon As System.Windows.Forms.PictureBox
    Friend WithEvents tbbDefPolygon As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbDefRect As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbDefClosedCurve As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbbDefElli As System.Windows.Forms.ToolBarButton
    Friend WithEvents mDef1 As System.Windows.Forms.MenuItem
    Friend WithEvents mDef2 As System.Windows.Forms.MenuItem
    Friend WithEvents mDef3 As System.Windows.Forms.MenuItem
    Friend WithEvents mDef4 As System.Windows.Forms.MenuItem
            Friend WithEvents mBackColor As System.Windows.Forms.MenuItem
    Friend WithEvents mForeColor As System.Windows.Forms.MenuItem
    Friend WithEvents mColor2 As System.Windows.Forms.MenuItem
                                    Private components As System.ComponentModel.IContainer

    'Required by the Windows Form Designer

    '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.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(formMain))
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.lbPen5 = New System.Windows.Forms.Label()
        Me.mHollow1 = New System.Windows.Forms.MenuItem()
        Me.mHollow2 = New System.Windows.Forms.MenuItem()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.lbPen1 = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.lbPen2 = New System.Windows.Forms.Label()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.lbPen3 = New System.Windows.Forms.Label()
        Me.tbbFillPolygon = New System.Windows.Forms.ToolBarButton()
        Me.pnlIcon = New System.Windows.Forms.Panel()
        Me.pbIcon = New System.Windows.Forms.PictureBox()
        Me.btOpenIco = New System.Windows.Forms.Button()
        Me.mDef1 = New System.Windows.Forms.MenuItem()
        Me.mDef2 = New System.Windows.Forms.MenuItem()
        Me.mFill1 = New System.Windows.Forms.MenuItem()
        Me.mFill3 = New System.Windows.Forms.MenuItem()
        Me.lbPen4 = New System.Windows.Forms.Label()
        Me.tbbEraser = New System.Windows.Forms.ToolBarButton()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.mNew = New System.Windows.Forms.MenuItem()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.ColorDialog1 = New System.Windows.Forms.ColorDialog()
        Me.tbbPencil = New System.Windows.Forms.ToolBarButton()
        Me.mColor = New System.Windows.Forms.MenuItem()
        Me.pnlColor1 = New System.Windows.Forms.Panel()
        Me.lbColor = New System.Windows.Forms.Label()
        Me.mClosedCurve = New System.Windows.Forms.MenuItem()
        Me.mHollow3 = New System.Windows.Forms.MenuItem()
        Me.mDef3 = New System.Windows.Forms.MenuItem()
        Me.pnlColor2 = New System.Windows.Forms.Panel()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lbFillColor = New System.Windows.Forms.Label()
        Me.lbLineColor = New System.Windows.Forms.Label()
        Me.tbbDefElli = New System.Windows.Forms.ToolBarButton()
        Me.tbbFillElli = New System.Windows.Forms.ToolBarButton()
        Me.mRect = New System.Windows.Forms.MenuItem()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.mPu = New System.Windows.Forms.MenuItem()
        Me.m4 = New System.Windows.Forms.MenuItem()
        Me.m3 = New System.Windows.Forms.MenuItem()
        Me.tbbDefPolygon = New System.Windows.Forms.ToolBarButton()
        Me.m1 = New System.Windows.Forms.MenuItem()
        Me.mEraser = New System.Windows.Forms.MenuItem()
        Me.tbbLine = New System.Windows.Forms.ToolBarButton()
        Me.mHollow4 = New System.Windows.Forms.MenuItem()
        Me.mColor2 = New System.Windows.Forms.MenuItem()
        Me.mForeColor = New System.Windows.Forms.MenuItem()
        Me.mBackColor = New System.Windows.Forms.MenuItem()
        Me.tbbPolygon = New System.Windows.Forms.ToolBarButton()
        Me.pnlStyle = New System.Windows.Forms.Panel()
        Me.cbStyle = New System.Windows.Forms.ComboBox()
        Me.mIconSet = New System.Windows.Forms.MenuItem()
        Me.tbbElli = New System.Windows.Forms.ToolBarButton()
        Me.mWidth = New System.Windows.Forms.MenuItem()
        Me.m2 = New System.Windows.Forms.MenuItem()
        Me.m5 = New System.Windows.Forms.MenuItem()
        Me.tbbDefClosedCurve = New System.Windows.Forms.ToolBarButton()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.mFile = New System.Windows.Forms.MenuItem()
        Me.mExit = New System.Windows.Forms.MenuItem()
        Me.mPen = New System.Windows.Forms.MenuItem()
        Me.mPencil = New System.Windows.Forms.MenuItem()
        Me.mLine = New System.Windows.Forms.MenuItem()
        Me.mIcon = New System.Windows.Forms.MenuItem()
        Me.mCurve = New System.Windows.Forms.MenuItem()
        Me.mElli = New System.Windows.Forms.MenuItem()
        Me.mFill2 = New System.Windows.Forms.MenuItem()
        Me.mPolygon = New System.Windows.Forms.MenuItem()
        Me.mFill4 = New System.Windows.Forms.MenuItem()
        Me.mDef4 = New System.Windows.Forms.MenuItem()
        Me.mOption = New System.Windows.Forms.MenuItem()
        Me.mHelp = New System.Windows.Forms.MenuItem()
        Me.mAbout = New System.Windows.Forms.MenuItem()
        Me.tbbCurve = New System.Windows.Forms.ToolBarButton()
        Me.tbbPu = New System.Windows.Forms.ToolBarButton()
        Me.tbbDefRect = New System.Windows.Forms.ToolBarButton()
        Me.tbbClosedCurve = New System.Windows.Forms.ToolBarButton()
        Me.tbbFillClosedCurve = New System.Windows.Forms.ToolBarButton()
        Me.tbbRect = New System.Windows.Forms.ToolBarButton()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.tbbIcon = New System.Windows.Forms.ToolBarButton()
        Me.tbbFillRect = New System.Windows.Forms.ToolBarButton()
        Me.pnlWidth = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.Panel5.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.Panel3.SuspendLayout()
        Me.pnlIcon.SuspendLayout()
        Me.pnlColor1.SuspendLayout()
        Me.pnlColor2.SuspendLayout()
        Me.pnlStyle.SuspendLayout()
        Me.pnlWidth.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.SuspendLayout()
        '
        'Panel5
        '
        Me.Panel5.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Panel5.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbPen5})
        Me.Panel5.Location = New System.Drawing.Point(0, 64)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(56, 32)
        Me.Panel5.TabIndex = 6
        '
        'lbPen5
        '
        Me.lbPen5.BackColor = System.Drawing.SystemColors.ControlText
        Me.lbPen5.Location = New System.Drawing.Point(6, 5)
        Me.lbPen5.Name = "lbPen5"
        Me.lbPen5.Size = New System.Drawing.Size(41, 20)
        Me.lbPen5.TabIndex = 0
        '
        'mHollow1
        '
        Me.mHollow1.Index = 1
        Me.mHollow1.Shortcut = System.Windows.Forms.Shortcut.Alt5
        Me.mHollow1.Text = "不填充(&H)"
        '
        'mHollow2
        '
        Me.mHollow2.Index = 1
        Me.mHollow2.Shortcut = System.Windows.Forms.Shortcut.Alt6
        Me.mHollow2.Text = "不填充(&H)"
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.Blue
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbPen1})
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(56, 16)
        Me.Panel1.TabIndex = 6
        '
        'lbPen1
        '
        Me.lbPen1.BackColor = System.Drawing.Color.White
        Me.lbPen1.Location = New System.Drawing.Point(6, 7)
        Me.lbPen1.Name = "lbPen1"
        Me.lbPen1.Size = New System.Drawing.Size(41, 1)
        Me.lbPen1.TabIndex = 0
        '
        'Panel2
        '
        Me.Panel2.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Panel2.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbPen2})
        Me.Panel2.Location = New System.Drawing.Point(0, 16)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(56, 16)
        Me.Panel2.TabIndex = 6
        '
        'lbPen2
        '
        Me.lbPen2.BackColor = System.Drawing.SystemColors.ControlText
        Me.lbPen2.Location = New System.Drawing.Point(6, 7)
        Me.lbPen2.Name = "lbPen2"
        Me.lbPen2.Size = New System.Drawing.Size(41, 3)
        Me.lbPen2.TabIndex = 0
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Panel3.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbPen3})
        Me.Panel3.Location = New System.Drawing.Point(0, 32)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(56, 16)
        Me.Panel3.TabIndex = 6
        '
        'lbPen3
        '
        Me.lbPen3.BackColor = System.Drawing.SystemColors.ControlText
        Me.lbPen3.Location = New System.Drawing.Point(6, 6)