access以百叶窗特效关闭窗体
时间：2013-09-20 15:38 来源：Office中国 作者：andymark 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：21 KB
文件类型：.rar
运行环境：Win2003,WinXP,Win7,Win8
软件等级：★★★★★
发布时间：2013-09-20
插件情况：
下载次数：
下载次数：
软件介绍：
窗体关闭，一般都是一闪而过。没有什么特别的，枯燥无味！
下面的示例以一个百叶窗的特效关闭窗体，非常的好看，给程序增色不少。
窗体一格一格地减少。效果显著
下面的示例以一个百叶窗的特效关闭窗体，非常的好看，给程序增色不少。
窗体一格一格地减少。效果显著
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
顶一下
(3)
75%
踩一下
(1)
25%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
相关软件
最新软件
推荐软件