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 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。
相关软件
最新软件
推荐软件