Questione : using una procedura con affinchè parameteres aprano le forme

Ho il codice qui sotto e voglio usarlo per aprire tutte le forme. in esso fornisco soltanto il nome della forma per aprirmi e della forma di MDI. il

it passa sempre (lo stato non di IsNothing) e viene a mancare e
del openRecForm del

del del del del del del del del del di fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... (frm di ByVal come midfrm di ByVal, della forma come forma) oscura il recFld come il recFld del frm
'= frm
se non IsNothing (recFld) Then
se non recFld.IsDisposed Then
recFld.WindowState = recFld del
Else
di FormWindowState.Normal
recFld.BringToFront () = nuovi recFld di Form
= frm
recFld.MdiParent = estremità If
del midfrm
recFld.Show () recFld di/> Else
= nuovi recFld di Form
= frm
recFld.MdiParent = recFld del
di If
recFld.Dispose di conclusione del
del midfrm
recFld.Show () () = estremità Sub di Nothing
class= del

Risposta : using una procedura con affinchè parameteres aprano le forme

Provare questo senso preferibilmente
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

    openRecForm secondario pubblico (frm di ByVal come midfrm di ByVal, della forma come forma)
        recFld fioco come la forma = frm

        F fioca come la forma = Application.OpenForms (recFld.Name)
        Se f IsNot niente allora
            Se non recFld.IsDisposed allora
                recFld.WindowState = FormWindowState.Normal
                recFld.BringToFront ()
            Altrimenti
                recFld = nuova forma
                recFld = frm
                recFld.MdiParent = midfrm
                recFld.Show ()
            Concluder se
        Altrimenti
            recFld = nuova forma
            recFld = frm
            recFld.MdiParent = midfrm
            recFld.Show ()
        Concluder se
    Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us