transparent form

[crptcblade]

Is there a way to make the background of a form transparent, while still being able to see, say a command button on the form??

This will make a form transparent making you able to only see the Command button.

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2  
 Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter _
As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long  

Private Sub Command1_Click()
SetWindowLong Me.hwnd, GWL_EXSTYLE, _
WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, _
0&, 0&, 0&, 0&, SWP_SHOWME
End Sub

[crptcblade]

It didn't seem to work, any other ideas?

[HeSaidJoe]

'make a form transparent
'put this code in a bas module

Option Explicit

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

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

Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter _
As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long

'    <<<<    Form Code    >>>>

Option Explicit

'you must set the Form's  [ShowInTaskbar to false]
'you must set the Form's  [BorderStyle to none]
'
'
Private Sub Command1_Click()
   SetWindowLong Me.hwnd, GWL_EXSTYLE, _
   WS_EX_TRANSPARENT
   SetWindowPos Me.hwnd, HWND_NOTOPMOST, _
   0&, 0&, 0&, 0&, SWP_SHOWME
End Sub

[funkyd77]

Check here:

http://www.vb-world.net/tips/tip76.html

and/or here:

http://www.vbsquare.com/tips/tip159.html