formmain.vb

Visual Basic.net 实例入门

        '
        Me.pnlStyle.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlStyle.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbStyle})
        Me.pnlStyle.Location = New System.Drawing.Point(448, 56)
        Me.pnlStyle.Name = "pnlStyle"
        Me.pnlStyle.Size = New System.Drawing.Size(56, 40)
        Me.pnlStyle.TabIndex = 9
        Me.pnlStyle.Visible = False
        '
        'cbStyle
        '
        Me.cbStyle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbStyle.DropDownWidth = 48
        Me.cbStyle.Location = New System.Drawing.Point(3, 8)
        Me.cbStyle.Name = "cbStyle"
        Me.cbStyle.Size = New System.Drawing.Size(45, 20)
        Me.cbStyle.TabIndex = 10
        '
        'mIconSet
        '
        Me.mIconSet.Enabled = False
        Me.mIconSet.Index = 3
        Me.mIconSet.Shortcut = System.Windows.Forms.Shortcut.CtrlK
        Me.mIconSet.Text = "画笔图标(&I)"
        '
        'tbbElli
        '
        Me.tbbElli.ImageIndex = 7
        Me.tbbElli.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'mWidth
        '
        Me.mWidth.Index = 2
        Me.mWidth.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.m1, Me.m2, Me.m3, Me.m4, Me.m5})
        Me.mWidth.Text = "画笔宽度(&W)"
        '
        'm2
        '
        Me.m2.Index = 1
        Me.m2.Shortcut = System.Windows.Forms.Shortcut.Ctrl2
        Me.m2.Text = "3 Pixel(&2)"
        '
        'm5
        '
        Me.m5.Index = 4
        Me.m5.Shortcut = System.Windows.Forms.Shortcut.Ctrl5
        Me.m5.Text = "20 Pixel(&5)"
        '
        'tbbDefClosedCurve
        '
        Me.tbbDefClosedCurve.ImageIndex = 13
        Me.tbbDefClosedCurve.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFile, Me.mPen, Me.mOption, Me.mHelp})
        '
        'mFile
        '
        Me.mFile.Index = 0
        Me.mFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mNew, Me.mExit})
        Me.mFile.ShowShortcut = False
        Me.mFile.Text = "文件(&F)"
        '
        'mExit
        '
        Me.mExit.Index = 1
        Me.mExit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mExit.Text = "退出(&X)"
        '
        'mPen
        '
        Me.mPen.Index = 1
        Me.mPen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mPencil, Me.mEraser, Me.mLine, Me.mIcon, Me.mCurve, Me.mPu, Me.mRect, Me.mElli, Me.mClosedCurve, Me.mPolygon})
        Me.mPen.ShowShortcut = False
        Me.mPen.Text = "画笔(&P)"
        '
        'mPencil
        '
        Me.mPencil.Index = 0
        Me.mPencil.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.mPencil.Text = "铅笔(&P)"
        '
        'mLine
        '
        Me.mLine.Index = 2
        Me.mLine.Shortcut = System.Windows.Forms.Shortcut.CtrlL
        Me.mLine.Text = "直线(&L)"
        '
        'mIcon
        '
        Me.mIcon.Index = 3
        Me.mIcon.Shortcut = System.Windows.Forms.Shortcut.CtrlI
        Me.mIcon.Text = "图标(&I)"
        '
        'mCurve
        '
        Me.mCurve.Index = 4
        Me.mCurve.Shortcut = System.Windows.Forms.Shortcut.CtrlO
        Me.mCurve.Text = "开放曲线(&O)"
        '
        'mElli
        '
        Me.mElli.Index = 7
        Me.mElli.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFill2, Me.mHollow2, Me.mDef2})
        Me.mElli.Text = "椭圆(&E)"
        '
        'mFill2
        '
        Me.mFill2.Index = 0
        Me.mFill2.Shortcut = System.Windows.Forms.Shortcut.Alt2
        Me.mFill2.Text = "填充(&F)"
        '
        'mPolygon
        '
        Me.mPolygon.Index = 9
        Me.mPolygon.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mFill4, Me.mHollow4, Me.mDef4})
        Me.mPolygon.Text = "多边形(&M)"
        '
        'mFill4
        '
        Me.mFill4.Index = 0
        Me.mFill4.Shortcut = System.Windows.Forms.Shortcut.Alt4
        Me.mFill4.Text = "填充(&F)"
        '
        'mDef4
        '
        Me.mDef4.Index = 2
        Me.mDef4.Shortcut = System.Windows.Forms.Shortcut.CtrlShift4
        Me.mDef4.Text = "自定义(&D)"
        '
        'mOption
        '
        Me.mOption.Index = 2
        Me.mOption.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mColor, Me.mColor2, Me.mWidth, Me.mIconSet})
        Me.mOption.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.mOption.ShowShortcut = False
        Me.mOption.Text = "设置(&O)"
        '
        'mHelp
        '
        Me.mHelp.Index = 3
        Me.mHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mAbout})
        Me.mHelp.ShowShortcut = False
        Me.mHelp.Text = "帮助(&H)"
        '
        'mAbout
        '
        Me.mAbout.Index = 0
        Me.mAbout.Shortcut = System.Windows.Forms.Shortcut.CtrlA
        Me.mAbout.Text = "关于GDI绘图(&A)..."
        '
        'tbbCurve
        '
        Me.tbbCurve.ImageIndex = 10
        Me.tbbCurve.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbPu
        '
        Me.tbbPu.ImageIndex = 14
        Me.tbbPu.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbDefRect
        '
        Me.tbbDefRect.ImageIndex = 6
        Me.tbbDefRect.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbClosedCurve
        '
        Me.tbbClosedCurve.ImageIndex = 11
        Me.tbbClosedCurve.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbFillClosedCurve
        '
        Me.tbbFillClosedCurve.ImageIndex = 12
        Me.tbbFillClosedCurve.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbRect
        '
        Me.tbbRect.ImageIndex = 4
        Me.tbbRect.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'ToolBar1
        '
        Me.ToolBar1.AutoSize = False
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbPencil, Me.tbbEraser, Me.tbbLine, Me.tbbIcon, Me.tbbRect, Me.tbbFillRect, Me.tbbDefRect, Me.tbbElli, Me.tbbFillElli, Me.tbbDefElli, Me.tbbCurve, Me.tbbClosedCurve, Me.tbbFillClosedCurve, Me.tbbDefClosedCurve, Me.tbbPu, Me.tbbPolygon, Me.tbbFillPolygon, Me.tbbDefPolygon})
        Me.ToolBar1.ButtonSize = New System.Drawing.Size(28, 28)
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(517, 33)
        Me.ToolBar1.TabIndex = 2
        '
        'tbbIcon
        '
        Me.tbbIcon.ImageIndex = 3
        Me.tbbIcon.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'tbbFillRect
        '
        Me.tbbFillRect.ImageIndex = 5
        Me.tbbFillRect.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'pnlWidth
        '
        Me.pnlWidth.BackColor = System.Drawing.Color.White
        Me.pnlWidth.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.pnlWidth.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel4, Me.Panel1, Me.Panel2, Me.Panel3, Me.Panel5})
        Me.pnlWidth.Location = New System.Drawing.Point(448, 56)
        Me.pnlWidth.Name = "pnlWidth"
        Me.pnlWidth.Size = New System.Drawing.Size(56, 96)
        Me.pnlWidth.TabIndex = 7
        '
        'Panel4
        '
        Me.Panel4.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Panel4.Controls.AddRange(New System.Windows.Forms.Control() {Me.lbPen4})
        Me.Panel4.Location = New System.Drawing.Point(0, 48)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(56, 16)
        Me.Panel4.TabIndex = 6
        '
        'formMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(517, 434)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label1, Me.PictureBox1, Me.ToolBar1, Me.pnlColor1, Me.pnlIcon, Me.Label4, Me.Label5, Me.pnlColor2, Me.pnlWidth, Me.pnlStyle})
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Menu = Me.MainMenu1
        Me.Name = "formMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "GDI绘图"
        Me.Panel5.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.Panel3.ResumeLayout(False)
        Me.pnlIcon.ResumeLayout(False)
        Me.pnlColor1.ResumeLayout(False)
        Me.pnlColor2.ResumeLayout(False)
        Me.pnlStyle.ResumeLayout(False)
        Me.pnlWidth.ResumeLayout(False)
        Me.Panel4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim g As Graphics
    '定义Graphics对象
    Dim p1 As Point, p2 As Point
    '定义画图的起始点和终止点
    Dim iButton As Integer
    '用于保存画笔的样式
    Dim iWidth As Integer
    '用于保存画笔的宽度
    Const num = 18
    '定义ToolBar1的按钮的数目
    Dim p() As Point
    '定义动态数组p用于保存画曲线所需的各点
    Dim icoPen As Icon
    '用于保存用户所选的图标
    Dim bIcoDef As Boolean

    Private Sub SelectPenWidth(ByVal width As Integer)
        Select Case width
            Case 1
                Panel1.BackColor = Color.Blue
                lbPen1.BackColor = Color.White
                '将Panel1的背景色设为兰色，将lbPen1的背景色设为白色，以达到反白的效果

                Panel2.BackColor = Color.White
                lbPen2.BackColor = Color.Black
                Panel3.BackColor = Color.White
                lbPen3.BackColor = Color.Black
                Panel4.BackColor = Color.White
                lbPen4.BackColor = Color.Black
                Panel5.BackColor = Color.White
                lbPen5.BackColor = Color.Black
                '将其他画笔的颜色复原

            Case 3
                Panel2.BackColor = Color.Blue
                lbPen2.BackColor = Color.White
                '达到反白的效果

                Panel1.BackColor = Color.White
                lbPen1.BackColor = Color.Black
                Panel3.BackColor = Color.White
                lbPen3.BackColor = Color.Black
                Panel4.BackColor = Color.White
                lbPen4.BackColor = Color.Black
                Panel5.BackColor = Color.White
                lbPen5.BackColor = Color.Black
                '将其他画笔的颜色复原

            Case 5
                Panel3.BackColor = Color.Blue
                lbPen3.BackColor = Color.White
                '达到反白的效果

                Panel1.BackColor = Color.White