vb.net GDI窗体

最新推荐文章于 2025-05-30 11:48:39 发布

原创最新推荐文章于 2025-05-30 11:48:39 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

vb.net 专栏收录该内容

43 篇文章

订阅专栏

本文介绍了一个使用Visual Basic创建的窗体应用程序案例，通过ContextMenu控件为窗体添加了图形化菜单，包括椭圆、扇形、圆形等图形选项，并详细展示了如何通过代码响应这些菜单项以改变窗体的显示形状。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在窗体中添加一个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