[分享]慢慢出现慢慢退出，外加一个热感应窗体（不用API）

andysky · 发表于 2006-6-6 14:47

功能很不错。
但很简单，热感应窗体不涉及API。
相信很多朋友在做启动画面时可用到。

8wnAOndu.rar (163.11 KB, 下载次数: 419)

[此贴子已经被作者于2008-2-11 9:25:24编辑过]

solextrade · 发表于 2006-6-6 15:16

怎么打不开啊？？

andysky · 发表于 2006-6-6 16:08

以下是引用[I]solextrade[/I]在2006-6-6 15:16:16的发言：[BR]怎么打不开啊？？

以否将宏之安全性设置为高了？第一个窗体打开后将显示三秒钟，然后自动慢慢消失，请耐心等待。第二个窗体在项部。

yuhongpu · 发表于 2006-6-6 16:16

编译错误,找不到工程与库.

清风_ll · 发表于 2006-6-6 16:21

楼主作品中引用了AniGif控件

yuhongpu · 发表于 2006-6-6 16:30

我怎么运行不了,是我机子有问题吗?

Simon_Zhu · 发表于 2006-6-6 16:51

Private Sub UserForm_Activate() Dim i 在这里加上Dim i, 就可以运行。(Office2000) For i = 0 To 255 Step 0.5 SetLayeredWindowAttributes hwnd, 0, i, LWA_ALPHA DoEvents Next i Application.OnTime Now + TimeValue("00:00:03"), "取消" End Sub

andysky · 发表于 2006-6-6 16:56

谢谢楼上的朋友。已重传附件。

okmhy · 发表于 2006-6-6 17:21

我的提示错误，不知道是不是我的系统是WIN98的原故，谢谢了，收藏了！

山菊花 · 发表于 2006-6-6 19:04

有新意，不错。

把1/3改为1/10，悠着点好。

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