学习Excel技术,关注微信公众号:
excelperfect
本文将给出一段VBA代码,实现在加载用户窗体时逐步显现以及在关闭用户窗体时逐渐淡出的效果,如下图1所示。
图1
第1步:创建示例用户窗体
如下图2所示,我们简单地创建了一个用户窗体,在其中放置了标签、文本框、复选框和按钮控件。
图2
第2步:添加代码
在用户窗体中单击鼠标右键,选择快捷菜单中的“查看代码”命令。在用户窗体模块中输入下面的代码:
'在用户窗体模块中放置下面的代码
#If VBA7 Then
Private Declare PtrSafe Function FindWindowLib "user32" Alias "FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe FunctionGetWindowLong Lib "user32" Alias "GetWindowLongA" (ByValhwnd As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe FunctionSetWindowLong Lib "user32" Alias "SetWindowLongA" (ByValhwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe