我看见一个很好看的程序，退出时是渐淡退出
这个效果是怎么做的？？

[此贴子已经被作者于2007-8-18 15:44:30编辑过]

我的操作系统到现在还是winme，所以一直没办法做这个试验

不过我不知道LZ看过windows窗口的透明效果没？我想原理应该是一样的！（仅在XP下适用）

………………我是新手…………
说真的没看过
能不能仔细说一下
实在不行，能不能说一下用到了什么……
谢谢

半透明窗体就有
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub

…………谢谢…………能不能解释一下…………

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
以及下面的两句…………
这是声明什么函数？？
（我真的是很白的新手……见谅）

这些是API函数,我也不怎么知道,我也有点白...

getwindowlong和setwindowlong是通过窗口句柄获取和设置该窗口信息，至于别个一个9X下好像没有，应该是XP下的吧！

那然后这是怎么回事？？
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
还有
定义那么多的常量（const）的目的是什么？？

买本书去看下，这样解释要到猴年马月！~~~~~~

……………………谢谢