Pergunta : using um procedimento com para que os parameteres abram formulários

Eu tenho o código abaixo e eu quero usá-lo para abrir todos os formulários. nele eu forneço somente o nome do formulário para abrir e do formulário de MDI. o

it passa sempre (a condição não de IsNothing) e falha e o
do openRecForm do

do do do do do do do do do de fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... (frm de ByVal como o midfrm do formulário, do ByVal como o formulário) escurece o recFld como o recFld do formulário = do frm
'= o frm
se não IsNothing (recFld) Then
se não recFld.IsDisposed Then
recFld.WindowState = de
Else
de FormWindowState.Normal
recFld.BringToFront () recFld = recFld de Form
= o frm
recFld.MdiParent = extremidade If
do midfrm
recFld.Show () recFld de/> Else
= recFld de Form
= frm
recFld.MdiParent = recFld do
de If
recFld.Dispose do fim do
do midfrm
recFld.Show () () = extremidade Sub de Nothing
class= do

Resposta : using um procedimento com para que os parameteres abram formulários

Tentar esta maneira preferivelmente
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    openRecForm secundário público (frm de ByVal como o midfrm do formulário, do ByVal como o formulário)
        recFld não ofuscante como o formulário = o frm

        F não ofuscante como o formulário = o Application.OpenForms (recFld.Name)
        Se f IsNot nada então
            Se não recFld.IsDisposed então
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Mais
                recFld = formulário novo
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Terminar se
        Mais
            recFld = formulário novo
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Terminar se
    Terminar o submarino
Outras soluções  
 
programming4us programming4us