formmain.vb

Visual Basic.net 实例入门

        Me.lbPen3.Name = "lbPen3"
        Me.lbPen3.Size = New System.Drawing.Size(41, 5)
        Me.lbPen3.TabIndex = 0
        '
        'tbbFillPolygon
        '
        Me.tbbFillPolygon.ImageIndex = 16
        Me.tbbFillPolygon.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'pnlIcon
        '
        Me.pnlIcon.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlIcon.Controls.AddRange(New System.Windows.Forms.Control() {Me.pbIcon, Me.btOpenIco})
        Me.pnlIcon.Location = New System.Drawing.Point(448, 56)
        Me.pnlIcon.Name = "pnlIcon"
        Me.pnlIcon.Size = New System.Drawing.Size(56, 80)
        Me.pnlIcon.TabIndex = 9
        Me.pnlIcon.Visible = False
        '
        'pbIcon
        '
        Me.pbIcon.BackColor = System.Drawing.Color.White
        Me.pbIcon.Location = New System.Drawing.Point(11, 35)
        Me.pbIcon.Name = "pbIcon"
        Me.pbIcon.Size = New System.Drawing.Size(32, 32)
        Me.pbIcon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.pbIcon.TabIndex = 11
        Me.pbIcon.TabStop = False
        '
        'btOpenIco
        '
        Me.btOpenIco.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btOpenIco.Location = New System.Drawing.Point(3, 4)
        Me.btOpenIco.Name = "btOpenIco"
        Me.btOpenIco.Size = New System.Drawing.Size(47, 23)
        Me.btOpenIco.TabIndex = 8
        Me.btOpenIco.Text = "图标"
        '
        'mDef1
        '
        Me.mDef1.Index = 2
        Me.mDef1.Shortcut = System.Windows.Forms.Shortcut.CtrlShift1
        Me.mDef1.Text = "自定义(&D)"
        '
        'mDef2
        '
        Me.mDef2.Index = 2
        Me.mDef2.Shortcut = System.Windows.Forms.Shortcut.CtrlShift2
        Me.mDef2.Text = "自定义(&D)"
        '
        'mFill1
        '
        Me.mFill1.Index = 0
        Me.mFill1.Shortcut = System.Windows.Forms.Shortcut.Alt1
        Me.mFill1.Text = "填充(&F)"
        '
        'mFill3
        '
        Me.mFill3.Index = 0
        Me.mFill3.Shortcut = System.Windows.Forms.Shortcut.Alt3
        Me.mFill3.Text = "填充(&F)"
        '
        'lbPen4
        '
        Me.lbPen4.BackColor = System.Drawing.SystemColors.ControlText
        Me.lbPen4.Location = New System.Drawing.Point(6, 3)
        Me.lbPen4.Name = "lbPen4"
        Me.lbPen4.Size = New System.Drawing.Size(41, 10)
        Me.lbPen4.TabIndex = 0
        '
        'tbbEraser
        '
        Me.tbbEraser.ImageIndex = 1
        Me.tbbEraser.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(448, 40)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 16)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "画笔样式"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'mNew
        '
        Me.mNew.Index = 0
        Me.mNew.Shortcut = System.Windows.Forms.Shortcut.CtrlN
        Me.mNew.Text = "新建(&N)"
        '
        'PictureBox1
        '
        Me.PictureBox1.BackColor = System.Drawing.Color.White
        Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left
        Me.PictureBox1.Location = New System.Drawing.Point(0, 33)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(440, 401)
        Me.PictureBox1.TabIndex = 1
        Me.PictureBox1.TabStop = False
        '
        'tbbPencil
        '
        Me.tbbPencil.ImageIndex = 0
        Me.tbbPencil.Pushed = True
        Me.tbbPencil.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'mColor
        '
        Me.mColor.Index = 0
        Me.mColor.Shortcut = System.Windows.Forms.Shortcut.CtrlQ
        Me.mColor.Text = "画笔颜色(&C)"
        '
        'pnlColor1
        '
        Me.pnlColor1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlColor1.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbColor})
        Me.pnlColor1.Location = New System.Drawing.Point(448, 176)
        Me.pnlColor1.Name = "pnlColor1"
        Me.pnlColor1.Size = New System.Drawing.Size(56, 32)
        Me.pnlColor1.TabIndex = 9
        '
        'lbColor
        '
        Me.lbColor.BackColor = System.Drawing.Color.Black
        Me.lbColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lbColor.Location = New System.Drawing.Point(6, 6)
        Me.lbColor.Name = "lbColor"
        Me.lbColor.Size = New System.Drawing.Size(40, 16)
        Me.lbColor.TabIndex = 5
        '
        'mClosedCurve
        '
        Me.mClosedCurve.Index = 8
        Me.mClosedCurve.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFill3, Me.mHollow3, Me.mDef3})
        Me.mClosedCurve.Text = "封闭曲线(&Y)"
        '
        'mHollow3
        '
        Me.mHollow3.Index = 1
        Me.mHollow3.Shortcut = System.Windows.Forms.Shortcut.Alt7
        Me.mHollow3.Text = "不填充(&H)"
        '
        'mDef3
        '
        Me.mDef3.Index = 2
        Me.mDef3.Shortcut = System.Windows.Forms.Shortcut.CtrlShift3
        Me.mDef3.Text = "自定义(&D)"
        '
        'pnlColor2
        '
        Me.pnlColor2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlColor2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.Label2, Me.lbFillColor, Me.lbLineColor})
        Me.pnlColor2.Location = New System.Drawing.Point(448, 176)
        Me.pnlColor2.Name = "pnlColor2"
        Me.pnlColor2.Size = New System.Drawing.Size(56, 88)
        Me.pnlColor2.TabIndex = 9
        Me.pnlColor2.Visible = False
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(6, 46)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(42, 16)
        Me.Label3.TabIndex = 6
        Me.Label3.Text = "背景色"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(6, 6)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(42, 16)
        Me.Label2.TabIndex = 6
        Me.Label2.Text = "前景色"
        '
        'lbFillColor
        '
        Me.lbFillColor.BackColor = System.Drawing.Color.Silver
        Me.lbFillColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lbFillColor.Location = New System.Drawing.Point(6, 62)
        Me.lbFillColor.Name = "lbFillColor"
        Me.lbFillColor.Size = New System.Drawing.Size(40, 16)
        Me.lbFillColor.TabIndex = 5
        '
        'lbLineColor
        '
        Me.lbLineColor.BackColor = System.Drawing.Color.Black
        Me.lbLineColor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lbLineColor.Location = New System.Drawing.Point(6, 22)
        Me.lbLineColor.Name = "lbLineColor"
        Me.lbLineColor.Size = New System.Drawing.Size(40, 16)
        Me.lbLineColor.TabIndex = 5
        '
        'tbbDefElli
        '
        Me.tbbDefElli.ImageIndex = 9
        Me.tbbDefElli.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbFillElli
        '
        Me.tbbFillElli.ImageIndex = 8
        Me.tbbFillElli.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'mRect
        '
        Me.mRect.Index = 6
        Me.mRect.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFill1, Me.mHollow1, Me.mDef1})
        Me.mRect.Text = "矩形(&R)"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(448, 40)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 16)
        Me.Label4.TabIndex = 4
        Me.Label4.Text = "画笔宽度"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(448, 160)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "画笔颜色"
        '
        'mPu
        '
        Me.mPu.Index = 5
        Me.mPu.Shortcut = System.Windows.Forms.Shortcut.CtrlU
        Me.mPu.Text = "折线(&U)"
        '
        'm4
        '
        Me.m4.Index = 3
        Me.m4.Shortcut = System.Windows.Forms.Shortcut.Ctrl4
        Me.m4.Text = "10 Pixel(&4)"
        '
        'm3
        '
        Me.m3.Index = 2
        Me.m3.Shortcut = System.Windows.Forms.Shortcut.Ctrl3
        Me.m3.Text = "5 Pixel(&3)"
        '
        'tbbDefPolygon
        '
        Me.tbbDefPolygon.ImageIndex = 17
        Me.tbbDefPolygon.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'm1
        '
        Me.m1.Index = 0
        Me.m1.Shortcut = System.Windows.Forms.Shortcut.Ctrl1
        Me.m1.Text = "1 Pixel(&1)"
        '
        'mEraser
        '
        Me.mEraser.Index = 1
        Me.mEraser.Shortcut = System.Windows.Forms.Shortcut.CtrlE
        Me.mEraser.Text = "橡皮(&D)"
        '
        'tbbLine
        '
        Me.tbbLine.ImageIndex = 2
        Me.tbbLine.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'mHollow4
        '
        Me.mHollow4.Index = 1
        Me.mHollow4.Shortcut = System.Windows.Forms.Shortcut.Alt8
        Me.mHollow4.Text = "不填充(&H)"
        '
        'mColor2
        '
        Me.mColor2.Enabled = False
        Me.mColor2.Index = 1
        Me.mColor2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mForeColor, Me.mBackColor})
        Me.mColor2.Text = "画笔颜色(&C)"
        '
        'mForeColor
        '
        Me.mForeColor.Index = 0
        Me.mForeColor.Shortcut = System.Windows.Forms.Shortcut.CtrlJ
        Me.mForeColor.Text = "前景色(&F)"
        '
        'mBackColor
        '
        Me.mBackColor.Index = 1
        Me.mBackColor.Shortcut = System.Windows.Forms.Shortcut.CtrlB
        Me.mBackColor.Text = "背景色(&B)"
        '
        'tbbPolygon
        '
        Me.tbbPolygon.ImageIndex = 15
        Me.tbbPolygon.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'pnlStyle