Frage : using ein Verfahren mit, damit parameteres Formen öffnen

Ich habe den Code unten und ich möchte ihn verwenden, um alle Formen zu öffnen. in ihm liefere ich nur den Namen der Form, um zu öffnen und der MDI Form.

it führt immer den (nicht IsNothing) Zustand und es ausfällt es und es fails.

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

allgemeines VoropenRecForm (ByVal frm als Form, ByVal midfrm als Form)
verdunkelt recFld als Form = frm
'recFld = frm
wenn nicht IsNothing (recFld) Then
wenn nicht recFld.IsDisposed Then
recFld.WindowState = FormWindowState.Normal
recFld.BringToFront ()
Else
recFld = neues Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
            If
Else
recFld beenden = neues Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
Ende If
recFld.Dispose ()
recFld = Nothing
Ende Sub

Antwort : using ein Verfahren mit, damit parameteres Formen öffnen

Diese Weise anstatt versuchen
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    Allgemeines VoropenRecForm (ByVal frm als Form, ByVal midfrm als Form)
        Schwaches recFld als Form = frm

        Schwaches f als Form = Application.OpenForms (recFld.Name)
        Wenn f IsNot nichts dann
            Wenn nicht recFld.IsDisposed dann
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Sonst
                recFld = neue Form
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Beenden wenn
        Sonst
            recFld = neue Form
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Beenden wenn
    Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us