Fråga : using ett tillvägagångssätt med för att parameteres ska öppna bildar

Jag har den nedanföra kodifiera, och alla jag önskar att använda den för att öppna bildar. i den jag levererar endast det känt av bilda för att öppna, och MDINA bildar.

it passerar alltid (inte IsNothing) villkorar, och den missar och det recFld för
för openRecForm för

för för för för för för för för för för fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... offentlig under(ByVal frm som bildar, ByVal midfrm som bildar) dunkel som bildar = recFld för frm
'= frm
om inte IsNothing (recFld) Then
om inte recFld.IsDisposed Then
recFld.WindowState = för
Else
för FormWindowState.Normal
recFld.BringToFront () recFld = ny Form
recFld = frm
recFld.MdiParent =
för midfrm
recFld.Show ()            Avsluta If
Else
recFld = ny Form
recFld = frm
recFld.MdiParent =
för midfrm
recFld.Show () avslutar recFld = Nothing
för If
recFld.Dispose ()
avslutar Sub " klar "

Svar : using ett tillvägagångssätt med för att parameteres ska öppna bildar

Försök hitåt i stället
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    Offentlig underopenRecForm (ByVal frm som bildar, ByVal midfrm som bildar)
        Dunkel recFld som bildar = frm

        Dunkelt f som bildar = Application.OpenForms (recFld.Name)
        Om f IsNot ingenting därefter
            Om inte recFld.IsDisposed därefter
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Annars
                recFld = nytt bildar
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Avsluta om
        Annars
            recFld = nytt bildar
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Avsluta om
    Avsluta suben
Andra lösningar  
 
programming4us programming4us