SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Rantamplan en Miércoles 28 de Abril de 2004, 09:44

Título: Ayuda Con Unos Form's
Publicado por: Rantamplan en Miércoles 28 de Abril de 2004, 09:44

Hola a tod@s, mi pregunta es la siguiente, mirar, tengo 2 formularios, y lo que kiero es que cuando llame a un formulario este se me muestre siempre en la pantalla hasta q no se puse un command button determinado.

Es decir, que no se minimice cuando se pincha sobre un espacio de la pantalla q no ocupa el formulario en cuestion.

Muchas gracias compañer@. :P

Título: Re: Ayuda Con Unos Form's
Publicado por: pixel en Jueves 29 de Abril de 2004, 04:42

hola  B)

si de los 2 formularios quieres que al llamar a uno, siempre este a la vista, es decir, que nada lo tape poniendose delante, entonces puedes usar esto mira:

En un modulo:

Código: Text

1.  
2. 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)
3. Public Const HWND_TOPMOST& = -1
4. Public Const SWP_NOMOVE& = &H2
5. Public Const SWP_NOSIZE& = &H1
6. Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
7.  
8. Public Sub ShowHoldForm(Ventana As Form)
9.    Dim Success
10.    '****  Para las ventanitas que quedan por encima de las demás,   ****
11.    Success = SetWindowPos(Ventana.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
12. End Sub
13.  
14.  

Y esto lo pones en el Form que quieres que quede siempre visible:
ShowHoldForm Form1

Y si ese form es el que tendra el boton para cancelarlo, pues ya esta  :P
Pero lo de evitar que se minimice, ni poniendo la opción ControlBox en False, porque aunque no esten los botones de la ventana, igual se maximiza y restaura, creo que si es posible, pero nunca me he puesto a inventar sobre eso, sorry  :blink:

Pero lo de la ventana siempre presente, creo que esto si podria servir
solo faltaria buscar sobre lo otro y listo.  :)

bueno suerte.  :hola: