界面/窗体/控件
access以百叶窗特效关闭窗体
2013-09-20 16:12:46
文件类型 :
文件版本 :
简要说明 :
窗体关闭，一般都是一闪而过。没有什么特别的，枯燥无味！
下面的示例以一个百叶窗的特效关闭窗体，非常的好看，给程序增色不少。
窗体一格一格地减少。效果显著
Private Function ExitTimer() As Boolean
Dim hRgn1 As Long, hRgn2 As Long
Dim XA As Long, X1 As Long, YA As Long, Y1 As Long
i = i + 1
Y = Y + 1
If i > 15 Then i = 1
If Y > 11 Then Y = 1
z = z + 1
XA = (numGor(i) - 1) * WidthEl
YA = (numVert(Y) - 1) * HeightEl
X1 = XA + WidthEl
Y1 = YA + HeightEl
hRgn1 = CreateRectRgn(0, 0, 0, 0)
hRgn2 = CreateRectRgn(XA, YA, X1, Y1)
Call CombineRgn(hRgn1, hRgn, hRgn2, 4) '不相交
Call CombineRgn(hRgn, hRgn1, hRgn2, 5) '拷贝hRgn1
Call SetWindowRgn(frm.hwnd, hRgn1, True)
Call DeleteObject(hRgn1)
Call DeleteObject(hRgn2)
If z > 165 Then
ExitTimer = True
End If
End Function