Romano_Jedi
Bovino adolescente
- Desde
- 19 Dic 2007
- Mensajes
- 68
- Tema Autor
- #1
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
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