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

[Константиин]

Как сделать, чтобы элемент становился всё более и более прозрачным, пока не исчезал совсем??? (Или что-нибудь в этом роде)

Заранее благодарен!!!

[GSerg]

Во-первых, засадить ему стиль WS_EX_LAYERED... После чего вызывать setlayeredwindowattributes для изменения прозрачности

[Константиин]

Чуть поподробней можно

[GSerg]

Сначала получить текущий стиль, сделать ему OR WS_EX_LAYERED, потом установить его, и, наконец, воспользоваться.

[tyomitch]

Для ленивых есть готовый контрол: http://vbrussian.com/Controls.asp?ID=94

[A.A.Z.]

Искренне надеюсь, что Константин уже все сделал и разобрался, но если нет - на всякий случай, вот (чтобы просто знал, как делается):

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

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

Sub SetOpacity(ByVal Wnd As Long, ByVal OpacityLevel As Long)
SetWindowLong Wnd, GWL_EXSTYLE, GetWindowLong(Wnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes Wnd, 0, OpacityLevel, LWA_ALPHA
DoEvents
End Sub

SetOpacity(<hWnd формы>, <Непрозрачность (0-255)>)
Примечание: работает только с формой (впрочем, как и все вышеупомянутое).

[Константиин]

Конечно я очень благодарен за ваши ответы, но меня ольше интересуют другие элементы управления.
P.S.
Можно сделать чтобы он исчезал и как-нибудь по-другому!!!

[A.A.Z.]

Честно говоря, я не очень уверен, что можно это как-нибудь реализовать...

[tyomitch]

Конечно я очень благодарен за ваши ответы, но меня ольше интересуют другие элементы управления.
P.S.
Можно сделать чтобы он исчезал и как-нибудь по-другому!!!

Какие именно? Можно просто цвет по таймеру менять в сторону цвета формы. Можно?

[Константиин]

Элемент будет распологаться поверх нескольких других, имеющих разные цвета.

[A.A.Z.]

Попробуй поставить контролам стиль OWNER_DRAW и рисовать их на прозрачном Brush'е. Может, поможет... Хотя сам не делал никогда.

[tyomitch]

На брашах не рисуют, рисуют как раз ими
Прозрачный (ака пустой) браш - тот, который не оставляет следа. Т.е. им что рисуй, что не рисуй, - нет разницы.
Или может быть, я тебя не так понял?

[A.A.Z.]

Да, ошибся Не на браше, а брашем
Я что имел ввиду - часть делать прозрачной, а часть нет... Если это, конечно, реально... Будет, как бы, не "опрозрачивание", а "свертывание". Хотя, если это не реально, извиняюсь.

[tyomitch]

С использованием GDI+ более реально. Но всё равно нетривиально - придётся свои аналоги DrawEdge писать, и всё такое.

[Zer]

Кстати прозрачность у меня из под ME не заработала. Глюков правда тоже не выдала. А вот из под XP всё гуд! Поганый XP...