Frame и его фон

[X-BOND]

Как залить Frame картинкой формы?

[Kostyan]

Фрейм можно сделать прозрачным (работает в Win9x)

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

Private Sub Form_Load()
Call SetWindowLong(Frame1.hwnd, GWL_EXSTYLE, GetWindowLong(Frame1.hwnd, GWL_EXSTYLE) Or WS_EX_TRANSPARENT)
End Sub


В модуль

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

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&


P.S. Кстати таким же макаром делаются прозрачными и другие окна в Win9x...

[X-BOND]

А на XP это не работает?
Потому что запустил на XP, фрейм спрятался, причем со всеми его контролами. А потаскал форму по экрану - все на месте.

[Kostyan]

Незнаю как на XP, но на 2000 pro точно идет, главное менять стиль фрейма во время загрузки формы (пока он ещё не нарисован), потому что потом придется принудительно его перерисоввывать (например перетащив за край экрана).