/ Snippet Library - View Code

Visual Basic / Forms / Transparent form

Snippet details

ID: 221

Viewed: 1280

Added: 2002-04-29

Version:

Snippets in this catagory
Show Printable Version

setting background of a form transparent, while still being able to see, say a command button on the form

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: unknown

Snippet By:	unknown
Declarations
Highlight All'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] '
Code
Highlight AllPrivate Sub Command1_Click() SetWindowLong Me.hwnd, GWL_EXSTYLE, _ WS_EX_TRANSPARENT SetWindowPos Me.hwnd, HWND_NOTOPMOST, _ 0&, 0&, 0&, 0&, SWP_SHOWME End Sub

No Reviews to show