Vraag : het gebruiken van één procedure met voor parameteres aan open vormen

Ik heb hieronder de code en ik wil het gebruiken om alle vormen te openen. daarin I slechts de naam van de te openen vorm levert en de vorm MDI.

it gaat altijd de (niet IsNothing) voorwaarde over en het ontbreekt en het fails.

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

Openbare SubopenRecForm (ByVal frm als Vorm, ByVal midfrm als Vorm)/> Schemerige recFld
'recFld = frm
als niet IsNothing (recFld) Then
als niet recFld.IsDisposed Then
recFld.WindowState = FormWindowState.Normal
recFld.BringToFront ()
Else
recFld = Nieuwe Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
            Eind If
Else
recFld = Nieuwe Form
recFld = frm
recFld.MdiParent = midfrm
recFld.Show ()
Eind If
recFld.Dispose ()
recFld = Nothing
Eind Sub

Antwoord : het gebruiken van één procedure met voor parameteres aan open vormen

Probeer in plaats daarvan deze manier
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    Openbare SubopenRecForm (ByVal frm als Vorm, ByVal midfrm als Vorm)
        Schemerige recFld als Vorm = frm

        Schemerig F als Vorm = Application.OpenForms (recFld.Name)
        Als F IsNot niets toen
            Als niet recFld.IsDisposed toen
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Anders
                recFld = Nieuwe Vorm
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Eind als
        Anders
            recFld = Nieuwe Vorm
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Eind als
    Sub van het eind
Andere oplossingen  
 
programming4us programming4us