随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用V幞洼踉残BA让窗体在指定时间逐渐退出？
工具/原料
手机
方法/步骤
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行PrivateDeclareFunction讵症慧鹱SetLayeredWindowAttributesLib"use32&鳎溻趄酃quot;(ByValhWndAsLong,ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib"use32"Alias"GetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionFindWindowLib"use32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongPrivateDeclareFunctionSetWindowLongLib"use32"Alias"SetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionDrawMenuBarLib"use32"(ByValhWndAsLong)AsLongPrivateDeclareFunctionSetFocusLib"use32"(ByValhWndAsLong)AsLongPrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)ConstWS_EX_LAYERED=&H80000ConstGWL_EXSTYLE=(-20)ConstLWA_ALPHA=&H2PrivateSubUserForm_activate()Application.WaitNow+TimeValue("00:00:05")'激活窗体5秒钟后开始执行下一句代码DimxlAsLonghWndForm=FindWindow("ThunderDFrame",Me.Caption)DimrtnAsLongrtn=GetWindowLong(hWndForm,GWL_EXSTYLE)rtn=rtnOrWS_EX_LAYEREDSetWindowLonghWndForm,GWL_EXSTYLE,rtnFori=255To0Step-5'此句控制速度，值越小速度越快SetLayeredWindowAttributeshWndForm,0,i,LWA_ALPHA'Sleep10DoEventsDrawMenuBarhWndFormSetFocushWndFormNextiUnloadMe'关闭窗体EndSub
5、用快捷键F5运行窗体，窗体在5秒钟后关闭，且关闭时有过渡效果
