執行個體112特殊形狀的對話框

    在VB 6．O中，很多人想盡一切辦法想要做出奇形怪狀的對話框，可是VB 6．O本身并不提供這樣的功能。是以，程式設計者通常采用Windows程式設計的方法，調用API函數來實作這些特殊的功能。在VB．NET中，通過使用一些屬性和方法即可完成這些任務。

單擊窗體，窗體變成左邊一半，半透明狀，點退出按鈕關閉。

Imports System.Drawing.Drawing2D
Public Class Form1
    Dim myPath As New GraphicsPath
    Dim rect As Rectangle

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        rect = New Rectangle(0, 0, Me.Width / 2, Me.Height)
        myPath.AddRectangle(rect)

        Me.Region = New Region(myPath)
        Me.Opacity = 0.7

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class