求Vb窗体淡入（不要淡出）的方法

来源：百度知道 编辑：UC知道 时间：2024/06/16 23:56:17
1，相关API函数无需写出
2，只要淡入，不要有淡出
3，有关键部分就可以了
dominolife你的代码正确但是淡入的效果几乎没有，一点也不明显啊。

根本不用几天就能完成...满意+分吧

能吧! 我这里是XP SP3 测试正常!
看看您的程序是否有和这些代码冲突.

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 crey As Byte, ByVal bAlpha As Byte, ByVal dwflags As Long) As Long

Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2&

Private Sub ApplyTransparency(ByVal hwnd As Long, ByVal btPercentTrans As Byte)
' transparency (0 - 255)
Dim lOldStyle As Long
Dim bTrans As Byte

bTrans = btPercentTrans * 2.55

lOldStyle = GetWindowLong(