Formulario modal!!!

[mac182]

Hola publico del portal.

javascript:replaceText(' ', document.postm odify.message);javascript:replaceText(' ', document.postm odify.message);

Oigan como le hago para que un formulario este sobre todos los demas y que no puedas cambiarte a otro
y que los bloquee y que solo se vea ese formualrio.

Si me pueden responder lo mas pronto posible se los agradeceria.

gracias

[ranefi]

Hola mac182, buena noche. Mira, es fácil:

Código:

Private Sub Command1_Click()
    Form1.Show VbModal
End Sub

Eso es todo, simplemente debes usar VbModal después de Show. Nos vemos.

[Punk-Rock]

Lo ke as puesto tu no se si va bien o no, pero te dejo un kode ke funciona al 100%:

En un modulo:

Código:

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndREPLACEAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Sub TopMost(frm As Form, Var As Boolean)
If Var = True Then
    SetWindowPos frm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
Else
    SetWindowPos frm.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub

Luego en el Form_load esto:

Código:

TopMost Form1, True 'para que este adelante de todo
TopMost Form1, False 'para que sea una ventana como las demas

Weno, si kieres ke este delante de todas las ventanas pon el primer kode, si lo kieres desactivar pon el segundo.

Salu2

Hendrix