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

andysky · 发表于 2006-6-6 19:12

以下是引用[I]山菊花[/I]在2006-6-6 19:04:51的发言：[BR]
有新意，不错。
把1/3改为1/10，悠着点好。

我发现在不同电脑速度大大不同。曾用过1/20和1/10 最后试验机台上改成了1/3。只能根据自己需求及电脑状况改了。

xuzong · 发表于 2006-6-6 19:41

效果不错，有美感！

lotustower · 发表于 2006-6-6 20:58

UserForm Fade Transparency

FAQ 【UserForm】 6/F

http://club.excelhome.net/viewthread.php?tid=77657&replyID=&skin=0

来生缘 · 发表于 2006-6-6 21:04

有趣,收了

andysky · 发表于 2006-6-10 09:28

回Emily: Sub Test() Set W = CreateObject("WScript.Shell") W.Run "C:＼Windows＼System＼顯示桌面.scf" End Sub 你的这个程式在我的电脑无法运行。我已改为小写仍不行。 Sub Test() Set W = CreateObject("WScript.Shell") W.Run "C:\Windows\System\显示桌面.scf" End Sub 是否不同操作系统路径不一样？ [em20][em23]

lotustower · 发表于 2006-6-10 16:34

Sub Test()
Set W = CreateObject("WScript.Shell")
W.Run "C:\Windows\System\顯示桌面.scf"
End Sub

WinXp Serive Pack 2 + Office 2003

lotustower · 发表于 2006-6-10 16:36

找找 "顯示桌面.scf"

hillzx2000 · 发表于 2006-6-15 13:41

不错

xiaoyingde · 发表于 2006-6-15 14:23

太精致了。学习了。

fokus · 发表于 2006-6-15 14:29

正好需要

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