实例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