Office中国论坛/Access中国论坛

标题: 求窗体遮罩方法 [打印本页]

作者: chanchen 时间: 2005-8-6 23:20
标题: 求窗体遮罩方法
求窗体遮罩方法

作者: 海狸先生 时间: 2005-8-7 00:49
不明白您的意思

作者: chanchen 时间: 2005-8-8 16:17
如要做一个五边形的窗体!

作者: 海狸先生 时间: 2005-8-8 18:37
我在某年的电脑报上看到过，是vb的，不过忘记在哪了，比较麻烦

作者: gaoqiwen 时间: 2005-8-8 21:19
论坛内好象有个 "家庭支出记录" 的好东东, 可参见之!

作者: chanchen 时间: 2005-8-9 00:29
找不到啊!请指明!

作者: 海狸先生 时间: 2005-8-9 01:02
以下代码将建立一下椭圆型窗体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-9 02:04

以下是引用海狸先生在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边型哦

作者: 海狸先生 时间: 2005-8-9 02:10
我是给出一个方法，我也没说这代码是我写的哦

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)