Прозрачность

[inf]

Доброго времени суток. У меня возникла проблемка. Вот делаю плавную прозрачность. Переход к непрозрачному состоянию нормальный а обратно не получается в чем дело? Помогите разобраться пожалуйста.

Код: Выделить всё

Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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
  Dim aStyle As Long
  Dim Transparent As Byte

Private Sub Command1_Click()
On Error Resume Next
For Transparent = 150 To 255
aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
aStyle = aStyle Or WS_EX_LAYERED
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
Call SetLayeredWindowAttributes(Me.hWnd, 0, Transparent, LWA_ALPHA)
Next Transparent
End Sub

Private Sub Command2_Click()
On Error Resume Next
For Transparent = 255 To 150 Step -1
aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
aStyle = aStyle Or WS_EX_LAYERED
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
Call SetLayeredWindowAttributes(Me.hWnd, 0, Transparent, LWA_ALPHA)
Next Transparent
End Sub

Private Sub Form_Load()
Transparent = 150
aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
aStyle = aStyle Or WS_EX_LAYERED
Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
Call SetLayeredWindowAttributes(Me.hWnd, 0, Transparent, LWA_ALPHA)
End Sub


[inf]

И еще назрел вопрос: Как сделать полупрозрачной форму а контролы на ней не прозрачными?

[BV]

Первое, хоть так:

Код: Выделить всё

    For Transparent = 0 To 105
        aStyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
        aStyle = aStyle Or WS_EX_LAYERED
        Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, aStyle)
        Call SetLayeredWindowAttributes(Me.hWnd, 0, 255 - Transparent, LWA_ALPHA)
    Next Transparent

Второе - в поиск по "PNG ULW_ALPHA"

[inf]

Скажите почему в этом месте пишет ошибку "переполнение"?

Код: Выделить всё

For Transparent = 255 To 150 Step -1

[tyomitch]

Объяви Transparent как Integer.

[inf]

Второе - в поиск по "PNG ULW_ALPHA"

=(( Почемуто ничего полезного не находит. А если находит, то либо си либо делфи
Дайте ссылочку плз

[BV]

Странно. А у меня находит.