vb.net用Region实现复杂的图形窗体

最新推荐文章于 2025-08-09 08:41:54 发布

原创

最新推荐文章于 2025-08-09 08:41:54 发布 · 1.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #图形 #integer #exception #function #string

本文介绍如何在VB.NET中使用Region结合图形路径来创建复杂图形窗体，特别是对于处理透明度和视频播放器的需求。通过加载图片并获取其轮廓像素点，形成一个GraphicsPath对象，然后设置为窗体的Region，实现自定义形状的窗体。

虽然将transparencykey设置窗体的背景色可以实现图形窗体,但是,这并不是最好的,对于做视频播放器的网友来说是个问题～

昨晚帮网友简单的决解了下图形窗体播放视频的问题～于是顺便把代码上传上来，希望有需要的人会用到～

对于这方面有研究的网友，可加 DY大师『VB.NET UI创意』 QQ群 59522396

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using MyGp As New Drawing2D.GraphicsPath
            MyGp.FillMode = Drawing2D.FillMode.Winding
            MyGp.AddPolygon(GetPix(Me, My.Computer.FileSystem.CombinePath(Application.StartupPath, "01.png")))
            Me.Region = New Region(MyGp)
        End Using

    End Sub
    ''' <summary>
    ''' 取得窗体中图片轮廓像素点的集合
    ''' </summary>
    ''' <param name="Form"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>

Private Function GetPix(ByVal Form As Control, ByVal ImagePath As String) As Point()
&n