求窗体遮罩方法

chanchen

求窗体遮罩方法

海狸先生

不明白您的意思

chanchen

如要做一个五边形的窗体!

海狸先生

我在某年的电脑报上看到过，是vb的，不过忘记在哪了，比较麻烦

gaoqiwen

论坛内好象有个 "家庭支出记录" 的好东东, 可参见之!

chanchen

找不到啊!请指明!

海狸先生

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

Option ExplicitPrivate 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 LongPrivate Sub Form_Load()

   Dim X, Y As Long

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

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

End Sub

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边型哦

海狸先生

我是给出一个方法，我也没说这代码是我写的哦