VB淡入淡出效果.docVIP

[VB][API]设置窗口透明度,淡入淡出 在VB6里面设置窗口透明度,应该不算是一件难的事,在这里须要声明API和相关常数 ----------------------------------------------------------------------------------- Private Declare Function SetWindowLong Lib user32 _??????????????? Alias SetWindowLongA _??????????????? (ByVal hwnd As Long, _??????????????? ByVal nIndex As Long, _??????????????? ByVal dwNewLong As Long) _??????????????? As LongPrivate Declare Function GetWindowLong Lib user32 _??????????????? Alias GetWindowLongA ( _??????????????? ByVal hwnd As Long, _??????????????? ByVal nIndex As Long) _??????????????? As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 ( _??????????????? ByVal hwnd As Long, _??????????????? ByVal crKey As Long, _??????????????? ByVal bAlpha As Long, _??????????????? ByVal dwFlags As Long) _??????????????? As LongPrivate Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA As Long = H2Private Const WS_EX_LAYERED As Long = H80000----------------------------------------------------------------------------------- 在这里希望初级的学习人员请注意代码的缩近,这样有便于代码的调试,增加代码可读性.虽然API不须要去看,但是你以后再来看的时候这些是什么你就不知道了,因为一块板的API声明,又怎么能知道是哪一个呢,如果用注释--- 上下框在一起,以后若用得上这个API的时候直接复制这一块过去,当然你可以把常用的功能封装到一个类或模块中. API我就不具体说明它的用途了,我为了方便使用写了一个函数 设置窗口透明度Public Sub SetFormToAlpha(hwnd As Long, lngAlpha As Long)??? Dim tmpLog As Long??????? If hwnd = 0 Then Exit Sub??? If lngAlpha = 0 And lngAlpha = 255 Then??????? tmpLog = GetWindowLong(hwnd, GWL_EXSTYLE) 窗口属性??????? Call SetWindowLong(hwnd, GWL_EXSTYLE, tmpLog Or WS_EX_LAYERED)??????? Call SetLayeredWindowAttributes(hwnd, 0, lngAlpha, LWA_ALPHA)??? End IfEnd Sub 从代码中看出,透明值是一个大于等于0 且小于等于255的数,超过这个值虽然不会有什么错误,但结果是(大于时)值减去255的结果,所以有点多此一举. 使用此函数,只须要告诉窗口句柄和透明度即可,比如在某窗体的一个按钮单击代码写到: Private Sub Command1_Click() ??? SetFormToAlpha Me.hWnd,80有的人可能会问怎么不是直接form对像传进去呢,我也想让调用的人方便点,可是我这个函数是封装在公用的一个组年里的SYSTEMLIB.DLL 由于是公用,那么就不用在公用函数的参数里带Private对像. End Sub ----------------------------------------- 好,既然透明度能实现了,那就来看一下窗口的淡入淡出,很多人都想为自己的ABOUT窗口或是启动画面加上淡入淡出吧,那么使用这个透明函数,我写一个这样