源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 界面/窗体/控件
界面/窗体/控件

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
发布人:andymark-Office中国  
分享到：
点击次数：  更新时间：2013-09-20 16:12:46  【打印此页】  【关闭】
上一条：access零代码实现标签随文本框动态变化  下一条：access绘制图像

相关下载

热门下载

热门产品