Pytanie : using jeden procedura z dla parameteres forma

I mieć the kod forma i i chcieć ono wszystkie forma. w ono i ximpx tylko the imię the forma i the MDI forma.

it zawsze przechodzić the (Nie IsNothing) warunek i ono nie udać się i ono fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... .......

Jawny Okręt podwodny openRecForm (ByVal frm Jako Forma, ByVal midfrm Jako Forma)
Ćmić recFld Jako Forma = frm
'recFld = frm
Jeśli nie IsNothing (recFld) Then
Jeśli nie recFld.IsDisposed Then
recFld.WindowState = FormWindowState.Normal
recFld.BringToFront ()
Else
recFld = Nowy Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
            Kończyć If
Else
recFld = Nowy Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
Końcówka If
recFld.Dispose ()
recFld = Nothing
Końcówka Sub

Odpowiedź : using jeden procedura z dla parameteres forma

Próbować ten sposób zamiast
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    Jawny Okręt podwodny openRecForm (ByVal frm Jako Forma, ByVal midfrm Forma)
        Ciemnawy recFld Jako Forma = frm

        Ciemnawy f Jako Forma = Application.OpenForms (recFld.Name)
        Jeżeli f IsNot Nic Wtedy
            Jeśli nie recFld.IsDisposed Wtedy
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Inny
                recFld = Nowy Forma
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Kończyć Jeżeli
        Inny
            recFld = Nowy Forma
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Kończyć Jeżeli
    Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us