Cuestión : usar un procedimiento con para que parameteres abran formas

Tengo el código abajo y quiero utilizarlo para abrir todas las formas. en él suministro solamente el nombre de la forma para abrirme y de la forma de MDI. el

it pasa siempre la condición (no de IsNothing) y falla y el
del openRecForm del

del del del del del del del del del de fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... (frm de ByVal como midfrm de la forma, de ByVal como forma) amortigua el recFld como recFld de la forma = del frm
'= frm
si no IsNothing (recFld) Then
si no recFld.IsDisposed Then
recFld.WindowState = recFld del
Else
de FormWindowState.Normal
recFld.BringToFront () = nuevos recFld de Form
= frm
recFld.MdiParent = extremo If
del midfrm
recFld.Show () recFld de/> Else
= nuevos recFld de Form
= frm
recFld.MdiParent = recFld del
de If
recFld.Dispose del final del
del midfrm
recFld.Show () () = extremo Sub de Nothing
class= del

Respuesta : usar un procedimiento con para que parameteres abran formas

Intentar esta manera en lugar de otro
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    openRecForm secundario público (frm de ByVal como midfrm de la forma, de ByVal como forma)
        recFld dévil como forma = frm

        F dévil como la forma = Application.OpenForms (recFld.Name)
        Si f IsNot nada entonces
            Si no recFld.IsDisposed entonces
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            
                recFld = nueva forma
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Terminar si
        
            recFld = nueva forma
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Terminar si
    Terminar el submarino
Otras soluciones  
 
programming4us programming4us