Formulario Modal

[sefafo]

Hola..
Alguien me puede ayudar..quiero que un formulario no se pueda cerrar de ninguna manera pero que permita trabajar en las demas aplicaciones....


Gracias!!!

 

[johnwm]

This is an English language forum. Please re-post in English

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[sefafo]

Hello!!

Anybody knows how to avoid a form to be closed, but I need to continue working with other applications..

Thanks a lot!!!

 

[johnwm]

I notice that you haven't marked any of the answers given as helpful. Check out faq222-2244 to see how to get better answers. If you have found the answers helpful, see faq222-2244 to see how to acknowledge them.

For this question:
[tt]
Form1.Show vbModal
[/tt]

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[sefafo]

Thanks a lot..!!

But I need that when I lost Focus of my Form, for example to Word, my form keeps visible..!

do you understand me..??

Thanks Againg..!

 

[JAG14]

Search this forum for "Always On Top" and you should find sufficient answers, such as

[tt]
Option Explicit
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

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 Form_Load()
'note the use of me.hwnd to ensure that the
'call is attacking the right window!
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
[/tt]

POSTED BY JEFFTULIN IN thread222-470179

Hope this helps.

[tt]"Very funny, Scotty... Now Beam down my clothes."[/tt]