Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Formulario Modal

Status
Not open for further replies.

sefafo

Programmer
Aug 28, 2003
36
CO
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!!!
 
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?'
 
Hello!!

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

Thanks a lot!!!
 
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?'
 
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..!
 
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.


jgjge3.gif
[tt]"Very funny, Scotty... Now Beam down my clothes."[/tt]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top