Situation Du Jour....

[cleolab]

Hey all!
Question: I would like to see if there is some kind of code that can be put into a form that will make that form "unhidable". For example, if you've ever seen or used a free internet serivice like netzero, you'll see that their banner forms are always seen. Nothing can get in front of them. Thanks in advance for all ideas!
John

[HeSaidJoe]

you can put your form always on top (stays on top of the other forms) but if someone presses the ctrl/tab the form retires to the task bar so it isn't on top anymore.

'put this in a bas module
'
Public 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

Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

'=============================================
'
'put this in events click or load or whatever
'or hardcopy
'To set Form1 as a TopMost form, do the following:

res& = SetWindowPos (Form1.hWnd, HWND_TOPMOST, _
0, 0, 0, 0, FLAGS) 
'if res&=0, there is an error

'To turn off topmost (make the form act normal again):

res& = SetWindowPos (Form1.hWnd, HWND_NOTOPMOST, _
0, 0, 0, 0, FLAGS)

I prefer to use constants when the number is unrecognizable. If it's fairly short, you do not have to declare them as it can shorten you code by a long shot.

Private 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()
    SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3
End Sub