窗体动画显示集中版!(提供原码!)

stanleypan · 发表于 2004-8-24 19:00

窗体显示的一些特效图:

djm7fpMz.rar (57.58 KB, 下载次数: 1439)

stanleypan · 发表于 2004-8-29 13:55

代码中有注释的!API函数有好几K个呢.一般常用的有近百个吧,

[此贴子已经被作者于2004-8-29 14:00:18编辑过]

mengmou · 发表于 2004-9-24 14:38

什么代码啊，在哪里看得啊，我就只会看一个小方块

foshan · 发表于 2005-10-28 11:29

谢谢版主提供这么好的API函数应用的精品!

有一个问题想请教：如何在关闭窗体的时候，也能产生这样的动画？以下的例子中，我想实现：打开窗体时，窗体从中心向四周扩展；关闭窗体时，窗体从四周向中心收缩。打开窗体的特效实现了，但关闭窗体的特效，却不能实现，请版主帮忙解决如何实现在关闭关闭窗体时，窗体从四周向中心收缩，谢谢!

Sub gg() '打开窗体时特效

If Val(Application.Version) < 9 Then hWnd1 = FindWindow("ThunderXFrame", UserPIC.Caption) Else hWnd1 = FindWindow("ThunderDFrame", UserPIC.Caption) End If If UserPIC.Visible = True Then Unload UserPIC AnimateWindow hWnd1, 1000, AW_CENTER + AW_ACTIVATE End Sub Sub g() '关闭窗体时特效 AnimateWindow hWnd1, 1000, AW_CENTER + AW_HIDE End End Sub

fA6VzaEL.rar (55.72 KB, 下载次数: 147)

[此贴子已经被作者于2005-10-30 8:26:43编辑过]

foshan · 发表于 2005-10-30 09:05

昨天试了一下，在关闭窗体时，dwFlags 参数改用 AW_BLEND (淡入淡出效果)，既能实现打开窗体时，窗体逐渐显示出来，又能实现关闭时窗体逐渐消失的特效。我想既然能实现窗体在打开时淡入、关闭时淡出的特效，按理也应能实现“关闭窗体时，窗体从四周向中心收缩”的特效。如何才能实现“关闭窗体时，窗体从四周向中心收缩”的特效呢？请大家想下办法吧，谢谢!

Sub g() '关闭窗体时特效 AnimateWindow hWnd1, 1000, AW_BLEND + AW_HIDE End End Sub

NmQBVKFa.rar (57.83 KB, 下载次数: 144)

[此贴子已经被作者于2005-10-30 9:21:55编辑过]

stanleypan · 发表于 2005-12-14 15:18

增加百叶窗式打开和关闭效果! dFqsJrDd.rar (59.9 KB, 下载次数: 1893)

[此贴子已经被作者于2005-12-14 15:47:25编辑过]

ylink · 发表于 2006-3-5 16:02

学习，谢了！

兰色幻想 · 发表于 2004-8-29 10:57

以下是引用stanleypan在2004-8-24 19:00:00的发言： 窗体显示的一些特效图:

新版主不能只发贴让人看

能不附带些解释和说明让我们也学学API函数的用法

API函数我还未入门

xiaog · 发表于 2004-8-24 20:36

不知能否做出百叶窗渐隐效果？

zhoumg · 发表于 2011-3-23 14:58

神奇能不能用在图片控件上啊？

		自动登录	找回密码
密码			免费注册

窗体动画显示集中版!(提供原码!)

评分