Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Alpha Blending
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004
Alpha Blending

Jak to zrealizować (sterowanie poziomem przeźroczystości formy) ??


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

13-01-2005 13:16
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

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

        'włączanie
        p = 128
        Call SetWindowLong(thwnd, GWL_EXSTYLE, GetWindowLong(thwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)
        Call SetLayeredWindowAttributes(thwnd, 0, p, LWA_ALPHA)
       
        'wyłączanie
        Call SetWindowLong(thwnd, GWL_EXSTYLE, GetWindowLong(thwnd, GWL_EXSTYLE) And (Not WS_EX_LAYERED))

Sorry - zapomniałem o jednej deklaracji.

[Post edytowany dnia 13-01-2005 16:37 przez bisiek]


_____________________________________________
www.mob.abc.pl - moja strona o VB

13-01-2005 16:22
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
DJK



Typ: neutral
Postów: 871
Zarejestrowany: Feb 2004

Dzięki

uuuuu - tylko, że to nie będzie działać na 98

[Post edytowany dnia 13-01-2005 17:02 przez DJK]


_____________________________________________
Jeśli można coś zrobić w sposób optymalny to czemu nie

13-01-2005 16:43
Pokaż profil DJK  Wyślij email do DJK   Odwiedź stronę DJK  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

W Win9x okna nie mają efektu przezroczystości. Tylko w NT i to chyba tylko w najnowszym.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

15-01-2005 16:36
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1