Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Dreamcacher en 25 Enero 2012, 00:43 AM

Título: Modificar MDI desde un Child (vb.net 2003)
Publicado por: Dreamcacher en 25 Enero 2012, 00:43 AM
Bueno, pues la cuestion es que estoy haciendo un proyecto para el final del curso, y tal y como lo he planteado, necesito que desde un fomulario que esta definido como child (form2) modifique las propiedades de 3 botones que contiene un MainMenu de el formulario principal (form1), el problema es que aunque el código es correcto, parece que no funciona por que un child no puede modificar un parent.

Haber si podéis ayudarme, porque no consigo hacer que funcione de ninguna manera...

Gracias!!

EDIT:Acabo de darme cuenta de que teníamos foro de .Net... esto me pasa por no mirar bien, y usar solo el de PHP...

EDIT 2:

Aqui os dejo el codigo, que si creo un formulario independiente, sin parent ni nada funciona, pero no si esta en el child, el codigo se encuentra en un modulo

Código (vbnet) [Seleccionar]
    Public Sub Activar()
        If Admin = True Then
            vform1.menuAltas.Visible = True
            vform1.menuBajas.Visible = True
        End If
        vform1.menuListados.Visible = True
    End Sub
Título: Re: Modificar MDI desde un Child (vb.net 2003)
Publicado por: BlackZeroX en 25 Enero 2012, 02:27 AM
this->Parent();

Dulces Lunas!¡.
Título: Re: Modificar MDI desde un Child (vb.net 2003)
Publicado por: Dreamcacher en 25 Enero 2012, 18:08 PM
al final he conesguido solucionarlo

Código (vbnet) [Seleccionar]
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = 2
        vform3.MdiParent = Me
        vform2.MdiParent = Me
        vform2.Show()
        'vform3.Show()

    End Sub


pero he creado una segunda variable , y lo he dejado asi, y asi si funciona

Código (vbnet) [Seleccionar]

    Public Sub Activar()
        Dim mdi As New Form1
        mdi = Me.MdiParent
        If Admin = True Then
            mdi.menuAltas.Visible = True
            mdi.menuMod.Visible = True
        End If
        mdi.menuListados.Visible = True
        mdi.menuLogout.Visible = True
    End Sub