vb System.Drawing.Pen类(方法)实例源码

Private Sub ShowLineJoin(ByVal e As PaintEventArgs)

    ' Create a new pen.
    Dim skyBluePen As New Pen(Brushes.DeepSkyBlue)

    ' Set the pen's width.
    skyBluePen.Width = 8.0F

    ' Set the LineJoin property.
    skyBluePen.LineJoin = Drawing2D.LineJoin.Bevel

    ' Draw a rectangle.
    e.Graphics.DrawRectangle(skyBluePen, _
        New Rectangle(40, 40, 150, 200))

    'Dispose of the pen.
    skyBluePen.Dispose()

End Sub

' 导入命名空间
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Text

Public Class MainClass

   Shared Sub Main()
        Dim myform As Form = New FrmDrawing()
        Application.Run(myform)
   End Sub ' Main
End Class

Public Class FrmDrawing
   Inherits System.Windows.Forms.Form

   Public Sub New()
      MyBase.New()
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.BackColor = System.Drawing.SystemColors.AppWorkspace
      Me.ClientSize = New System.Drawing.Size(472, 157)
   End Sub
   Protected Overrides Sub OnPaint(ByVal paintEvent As PaintEventArgs)
      Dim graphicsObject As Graphics = paintEvent.Graphics
      Dim rectangle1 As Rectangle = New Rectangle(15, 35, 80, 80)
      Dim brush1 As SolidBrush = New SolidBrush(Color.Firebrick)
      Dim pen1 As Pen = New Pen(brush1, 1)
      Dim brush2 As SolidBrush = New SolidBrush(Color.DarkBlue)
      Dim pen2 As Pen = New Pen(brush2, 1)

      ' start at 0 and sweep 360 degrees
      graphicsObject.DrawRectangle(pen1, rectangle1)
      graphicsObject.DrawArc(pen2, rectangle1, 0, 360)
   End Sub ' OnPaint

End Class ' FrmDrawing

' 导入命名空间
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class DrawCircle
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

public class Form1
  Inherits System.Windows.Forms.Form

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim a As Graphics =  e.Graphics
        Dim mypen As Pen
        Dim myrect As RectangleF

        mypen = New Pen(System.Drawing.Color.Red, 6)

        a = Me.CreateGraphics
        a.Clear(Me.BackColor)
        a.DrawEllipse(mypen, 100, 100, 50, 50)
        a.DrawEllipse(mypen, 75, 75, 100, 100)
        a.DrawEllipse(mypen, 25, 25, 200, 200)
        a.DrawEllipse(mypen, 0, 0, 250, 250)

        myrect.X = 300
        myrect.Y = 10
        myrect.Width = 250
        myrect.Height = 100
        a.DrawEllipse(mypen, myrect)

        myrect.X = 400
        myrect.Y = 10
        myrect.Width = 100
        myrect.Height = 250
        a.DrawEllipse(mypen, myrect)


        a.Dispose()
        mypen.Dispose()

  End Sub

  Public Sub New()
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  End Sub

End Class