企业🤖AI Agent构建引擎,智能编排和调试,一键部署,支持私有化部署方案 广告
## **描述** 淡出特效,执行后目标窗口透明度会越来越大直到完全消失。 ## **语法** FadeOut(*[speed = 10]*) **该语法中有下列命名参数:** | 参数 | 描述 | | --- | --- | | speed | 可选的。Long类型,表示淡出速度,数值越大淡出越快,所允许值在1~255。如果忽略,缺省值是 10,大概在1秒左右完成淡出,如果设置为100,窗体大概将在10ms左右完成淡出。 | &nbsp; **特效方法集锦:** [FadeIn方法的说明](FadeIn方法.md) [FadeOut方法的说明](FadeOut方法.md) [Shake方法的说明](Shake方法.md) ## **示例** > 说明:根据类名Notepad获得记事本窗口,然后调用FadeOut方法,会看到它的淡出特效。建议先打开记事本,然后再运行下面代码。 ``` Dim w As New clsWindow If w.GetWindowByClassName("Notepad").hWnd <> 0 Then w.Normal '窗口正常 w.Focus '设置为活动窗口 w.FadeOut '默认淡入,默认速度为10 w.FadeOut 2 '淡入速度改为2,相比默认值降低为5倍,测试会发现明显变慢 w.FadeOut 50 '淡入速度改为50,比默认值提高10倍,测试会发现淡入淡入速度明显变快 w.FadeIn End If ```