Ok tenemos 2 Forms: form1 y form2 al iniciar el proyecto se centraliza en la pantalla en form1 el cual tiene un boton que al precionarlo se mostrara el form2 al lado del form1 y los dos se centraran en la pantalla. Ademas al minimizar uno automaticamente se minimizara el otro e igual al cerrar alguno.
Codigo del Form1
'al precionar el boton para mostrar el form2
Private Sub Command1_Click()
Form2.Show
Me.Left = Me.Left - (Me.Width / 2)
End Sub
'al minimar o maximizar
Private Sub Form_Resize()
If (Form1.WindowState = 1 And Form2.WindowState <> 1) Then
Form2.WindowState = 1
End If
If (Form1.WindowState = 0 And Form2.WindowState <> 0) Then
Form2.WindowState = 0
End If
End Sub
'al cerrar el formulario
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
End Sub
Codigo del Form2
'al cargar este formulario se pone a la derecha del form1
Private Sub Form_Load()
Me.Top = Form1.Top
Me.Left = Form1.Left + (Form1.Width / 2)
End Sub
'al minimizar o maximizar
Private Sub Form_Resize()
If (Form2.WindowState = 1 And Form1.WindowState <> 1) Then
Form1.WindowState = 1
End If
If (Form2.WindowState = 0 And Form1.WindowState <> 0) Then
Form1.WindowState = 0
End If
End Sub
'al cerrar el formulario
Private Sub Form_Unload(Cancel As Integer)
Unload Form1
End Sub
Estos codigos actuan al dar click en el boton de la barra de titulo de minimizar o cerrar e incluso al dar click en la barra del windows para minimizar o restaurar o cerrar.
Autor
En línea
