| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 833 人关注过本帖
标题:[求助]如何制作窗体的淡出淡入效果?
只看楼主 加入收藏
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
结帖率:78.95%
收藏
 问题点数:0 回复次数:3 
[求助]如何制作窗体的淡出淡入效果?
如何制作窗体的淡出淡入效果?
谢谢
搜索更多相关主题的帖子: 窗体 效果 淡入 淡出 
2006-12-29 19:34
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
前几天才有人问过...自己先搜索一下这两天的贴子吧.

我的msn: myfend@
2006-12-29 19:42
boykklove
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-3-23
收藏
得分:0 
找不到...说说吧!!1

至今仍然哭泣... 为你奋斗着,我的最美 用我们的实力证明DIR溢出的距离
2007-08-07 09:53
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

'dwtime -- 是动画持续的时间,默认值为200;
'dwflags -- 是动画方式,可以取&H1、&H2、&H3、&H4、&H5、&H6、&H8、&H9、和&H10共8个值,分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到四周等。
'AW_HIDE 在窗体卸载时若想使用本函数就得加上此常量
'AW_ACTIVATE 在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
'AW_SLIDE 窗体移动滑出滑入
'AW_BLEND 淡入淡出效果(适用于WIN2000)

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

Private Const AW_HIDE = &H10000 '在窗体卸载时若想使用本函数就得加上此常量
Private Const AW_ACTIVATE = &H20000 '平常窗体出的方式,即突发式
Private Const AW_SLIDE = &H40000 '在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
Private Const AW_BLEND = &H80000 '渐入式,由透明逐渐出现
Private Const AW_CENTER = &H10 '由中心逐渐出现
Private Const AW_HOR_NEGATIVE = &H2 '由右至左渐出
Private Const AW_HOR_POSITIVE = &H1 '由左至右渐出
Private Const AW_VER_NEGATIVE = &H8 '由下到上渐出
Private Const AW_VER_POSITIVE = &H4 '由上到下渐出

Private Sub Form_Load()

' AnimateWindow hwnd, 1000, AW_CENTER Or AW_SLIDE Or AW_ACTIVATE '中间向四周展开并获取焦点
AnimateWindow hwnd, 1500, AW_BLEND Or AW_VER_NEGATIVE Or AW_CENTER
Me.Refresh

End Sub

Private Sub Form_Unload(Cancel As Integer)

AnimateWindow hwnd, 1500, AW_BLEND Or AW_ACTIVATE Or AW_HIDE
Me.Refresh

End Sub
'参数自己去匹配吧


2007-08-07 10:45
快速回复:[求助]如何制作窗体的淡出淡入效果?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016146 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved