Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/02/2009, 19:04
KingColt
 
Fecha de Ingreso: febrero-2008
Mensajes: 303
Antigüedad: 16 años, 2 meses
Puntos: 2
API SetParent crear efecto MDIForm es posible?

Utilizo la API SetParent para trabajar con formularios dentro de otro sin necesidad de utilizar un MDI como contenedor

modulo bas
Código:
'Declaración de SetParent
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
form1 que contendra al form2
Código:
Private Sub Command1_Click()
  Dim res As Long
  res = SetParent(Form2.hWnd, Form1.hWnd)
  Form2.Show
End Sub
El problema es cuando maximizo mi form2 se muestra de esta manera


Es posible lograr el efecto que se produce con los mdiform es decir que se muestre de esta manera