求窗体遮罩方法

eyewitnes

以下是引用海狸先生在2005-8-8 17:02:00的发言：



以下代码将建立一下椭圆型窗体

Option Compare Database

Option Explicit

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()

   Dim X, Y As Long

   X = CreateEllipticRgn(0, 0, 100, 200)

   Y = SetWindowRgn(Me.hwnd, X, True)

End Sub

诗丽堂里边的代码？楼主要的是5边型哦