Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

Ayuda Con Visual studio 2008

Romano_Jedi

Bovino adolescente
Desde
19 Dic 2007
Mensajes
68
hola bakunos quisiera saber si alguien me podria ayudar con un codigo de visual studio 2008 no soy muy bueno pero estoy aprendiendo, quisiera saber como hacer para que una ventana hijo guarde los cambios que se hacen,

Si maximizo la ventana hijo al cerrarla guarde los cambios, si la minimizo se guarden los cambios.

la ventana hijo la tengo dentro de una ventana padre, la cual la ventana padre trae un menu que al darle clic en maximizar, maximiza todas las ventanas. que tengo abiertas dentro de la ventana padre

espero y alguien pueda ayudarme: este es el codigo si gustan pegarlo y ver. falta mas pero eso es lo de la ventana.

Public Class BalancePA

'Aqui comienza el Activo
Private Sub AgregarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgregarToolStripMenuItem.Click
Dim AgregarA As New FormAgregarActivo
AgregarA.MdiParent = Me
AgregarA.Show()
End Sub

Private Sub ModificarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarToolStripMenuItem.Click
Dim ModificarA As New FormModificarActivo
ModificarA.MdiParent = Me
ModificarA.Show()
End Sub

Private Sub BuscarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem.Click
Dim BuscarA As New FormBuscarActivo
BuscarA.MdiParent = Me
BuscarA.Show()
End Sub

Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click
Dim BorrarA As New FormBorrarActivo
BorrarA.MdiParent = Me
BorrarA.Show()
End Sub

'Aqui comienza el pasivo
Private Sub AgregarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AgregarToolStripMenuItem1.Click
Dim AgregarP As New FormAgregarPasivo
AgregarP.MdiParent = Me
AgregarP.Show()
End Sub

Private Sub ModificarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificarToolStripMenuItem1.Click
Dim ModificarP As New FormModificarPasivo
ModificarP.MdiParent = Me
ModificarP.Show()
End Sub

Private Sub BuscarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem1.Click
Dim BuscarP As New FormBuscarPasivo
BuscarP.MdiParent = Me
BuscarP.Show()
End Sub

Private Sub BorrarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem1.Click
Dim BorrarP As New FormBorrarPasivo
BorrarP.MdiParent = Me
BorrarP.Show()
End Sub

Private Sub SALIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SALIRToolStripMenuItem.Click
Me.Close()
End Sub

'Aqui comienza maximizado, minimizado, restauracion y cerrar todas las ventanas

Private Sub MaximizarTodasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MaximizarTodasToolStripMenuItem.Click
For Each frm As Form In Me.MdiChildren
frm.WindowState = FormWindowState.Maximized
Next frm

End Sub

Private Sub MinimizarTodasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimizarTodasToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
For Each frm As Form In Me.MdiChildren
frm.WindowState = FormWindowState.Minimized
Next frm
End Sub

Private Sub RestaurarTodasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RestaurarTodasToolStripMenuItem.Click
For Each frm As Form In Me.MdiChildren
frm.WindowState = FormWindowState.Normal
Next frm
End Sub

Private Sub CerrarTodasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarTodasToolStripMenuItem.Click
For Each frm As Form In Me.MdiChildren
frm.Close()
Next frm
End Sub

Private Sub CascadaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadaToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub

Private Sub BalancePA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub EditarTodasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditarTodasToolStripMenuItem.Click
For Each frm As Form In Me.MdiChildren
frm.BackColor = Color.Aqua
Next frm
End Sub

End Class
 
esto lo puedes hacer con las propiedades de la aplicacion men ay queda en tu ingneio como acomodarlas pero digamos que tienes 1 propied que dice MaxForm boolean en true por asi decirlo
ahora en tu evento load del form
pones un if
Código:
if my.settings.maxform = true then
 windowstate = Maximized
else
windowstate =minimized
end if
espero haber ayudado
 
Volver
Arriba