vb.net GDI窗体

在窗体中添加一个ContextMenu1控件

 

Imports System.Drawing.Drawing2D



Public Class Form1

    Inherits System.Windows.Forms.Form



#Region " Windows 窗体设计器生成的代码 "



    Public Sub New()

        MyBase.New()



        '该调用是 Windows 窗体设计器所必需的。

        InitializeComponent()



        '在 InitializeComponent() 调用之后添加任何初始化



    End Sub



    '窗体重写处置以清理组件列表。

    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



    'Windows 窗体设计器所必需的

    Private components As System.ComponentModel.IContainer



    '注意：以下过程是 Windows 窗体设计器所必需的

    '可以使用 Windows 窗体设计器修改此过程。

    '不要使用代码编辑器修改它。

    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu

    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem

    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))

        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu

        Me.MenuItem1 = New System.Windows.Forms.MenuItem

        Me.MenuItem2 = New System.Windows.Forms.MenuItem

        Me.MenuItem3 = New System.Windows.Forms.MenuItem

        Me.MenuItem4 = New System.Windows.Forms.MenuItem

        Me.MenuItem5 = New System.Windows.Forms.MenuItem

        Me.MenuItem6 = New System.Windows.Forms.MenuItem

        Me.MenuItem7 = New System.Windows.Forms.MenuItem

        Me.SuspendLayout()

        '

        'ContextMenu1

        '

        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7})

        '

        'MenuItem1

        '

        Me.MenuItem1.Index = 0

        Me.MenuItem1.Text = "椭圆"

        '

        'MenuItem2

        '

        Me.MenuItem2.Index = 1

        Me.MenuItem2.Text = "扇形"

        '

        'MenuItem3

        '

        Me.MenuItem3.Index = 2

        Me.MenuItem3.Text = "圆形"

        '

        'MenuItem4

        '

        Me.MenuItem4.Index = 3

        Me.MenuItem4.Text = "环形"

        '

        'MenuItem5

        '

        Me.MenuItem5.Index = 4

        Me.MenuItem5.Text = "三角"

        '

        'MenuItem6

        '

        Me.MenuItem6.Index = 5

        Me.MenuItem6.Text = "恢复矩形"

        '

        'MenuItem7

        '

        Me.MenuItem7.Index = 6

        Me.MenuItem7.Text = "退出"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(14, 37)

        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)

        Me.ClientSize = New System.Drawing.Size(344, 304)

        Me.ContextMenu = Me.ContextMenu1

        Me.Font = New System.Drawing.Font("Arial Narrow", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)



    End Sub



#End Region



    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click, MenuItem2.Click, MenuItem3.Click, MenuItem4.Click, MenuItem5.Click, MenuItem6.Click, MenuItem7.Click



        Dim p As GraphicsPath = New GraphicsPath()



        Select Case CType(sender, MenuItem).Text

            Case "椭圆"



                Dim Width As Integer = Me.ClientSize.Width

                Dim Height As Integer = Me.ClientSize.Height

                p.AddEllipse(0, 20, Width - 50, Height - 100)

                

                '根据要绘制椭圆的形状来填写AddEllipse方法中椭圆对应的相应参数



            Case "扇形"

                p.AddPie(10, 10, 250, 250, 5, 150)

                '根据要实现的扇形形状来填写AddPie方法中的相应参数



            Case "圆形"

                Dim Width As Integer = Me.ClientSize.Width

                Dim Height As Integer = Me.ClientSize.Height

                p.AddEllipse(0, 0, Height, Height)

                '圆形即是椭圆的一种特例，



            Case "环形"

                Dim Height As Integer = Me.ClientSize.Height

                Dim width As Integer = 100

                p.AddEllipse(0, 0, Height, Height)

                'p.AddRectangle(New Rectangle(width, width, width, width))

                p.AddEllipse(width, width, Height - (width * 2), Height - (width * 2))

                '根据环形的形状来分别填写AddEllipse方法中相应的参数



            Case "三角"

                p.AddLine(0, 0, 250, 150)

                p.AddLine(250, 150, 0, 300)

                p.AddLine(0, 0, 0, 300)

                '根据三角形的形状特征来分别填写AddLine方法中相应的参数





            Case "恢复矩形"

                p.AddRectangle(New Rectangle(0, 0, Me.Width, Me.Height))

                '用窗体尺寸矩形填充addrectangle()方法



            Case "退出"

                Close()

        End Select

        '设置窗体的外形

        Me.Region = New Region(p)



    End Sub



    Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup



    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



    End Sub

End Class