Прозрачность формы

[lilak]

Подскажите, пожалуйста, как практически создать прозрачную форму в ВБ6?
Спасибо.

[xolod]

Const LWA_COLORKEY = &H1
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
Private Sub Form_Load()
Dim Ret As Long

Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret

'128 - значение прозрачности, 0 - полностью прозрачна; 255 - не прозрачна
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub

[lilak]

Спасибо тебе большое , xolod

[lilak]

И ещё, xolod, если не трудно, подскажи, где можно прочитать о подобных хитростях,спасибо.

[Amed]

API-Guide
http://www.allapi.net

[klop086]

народ, а как нибудь можно прозрачность в Me или 9х сделать?

[xolod]

Нет, архитектура ос не позволяет

ЗЫ: Правда можно вырезать из формы через каждый пиксел точку и будет тебе псевдо прозрачность, правда если мышкой попадешь в точку, форма потеряет фокус

[Amed]

Чисто теоретически - возможно. Берём окно целиком, и вручную на экране рисуем его с учётом прозрачности (т.е. цвета "под окном"). Но этот метод будет ЗВЕРСКИ медленный. К тому же, неясно, как просто отлавливать некоторые события - скажем, нажатия кнопок будет задавать уже не так легко.

[klop086]

не понял - что значит вырезать из формы точку?
Я давно ищу *.ocx , которая позволяла бы делать "дырки" в форме, может кто знает такую?
(у меня Millenium Edition).

[Sedge]

не понял - что значит вырезать из формы точку?
Я давно ищу *.ocx , которая позволяла бы делать "дырки" в форме, может кто знает такую?
(у меня Millenium Edition).

http://www.planet-source-code.com/vb/sc ... 6&lngWId=1