Как сделать форму прозрачной в Windows98

[Strayd]

Подскажите или если можно напишите код как сделать форму прозрачной в Windows98 но без дополнительных контролов.

[Aleksej]

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

Public Sub RebuildWindowRgn(FormName As Form)

Dim FullRgn As Long
Dim Rgn As Long
Dim CaptionHeight As Integer
Dim Control As Control

CaptionHeight = 22

FormName.ScaleMode = 3

FullRgn = CreateRectRgn(0, 0, FormName.Width, FormName.Height)

Rgn = CreateRectRgn(0, CaptionHeight, FormName.Width, _
                    FormName.Height)

CombineRgn FullRgn, FullRgn, Rgn, RGN_DIFF

For Each Control In FormName.Controls
If Control <> True Then
Rgn = CreateRectRgn(Control.Left + 2, (Control.Top + _
                    CaptionHeight), (Control.Left + _
                    Control.Width + 2), (Control.Top + _
                    Control.Height + CaptionHeight))
End If
CombineRgn FullRgn, FullRgn, Rgn, RGN_OR

Next Control

SetWindowRgn FormName.hWnd, FullRgn, True
End Sub


[Strayd]

За код спасибо, но как бы её сделать полу-прозрачной?

[FaKk2]

За код спасибо, но как бы её сделать полу-прозрачной?

Невозможно. Такая ф-ция, только в 2000\ХР появилась
Кстати, очень интересно? Зачем, в каждом посте, себя цитировать?

[Strayd]

Хорошо! А можно пример полу-прозрачной формы из регионов. А то сколько не пытался-не выходит!!!

[GSerg]

И не выйдет!

[Strayd]

НЕТ МОЖНО!. Просто нужно добавлять регион через один но у меня проблема:Прозрачность формируеться только по вертикали.

[GSerg]

Ты что, чересполосицу делаешь?

[Strayd]

Просто я делаю окно в виде сетки регионов а прозрачность регулирую внутренними размерами зерна сетки.

[A.A.Z.]

Может не в тему, но...