Question : suivant un procédé avec pour que les parameteres ouvrent des formes

J'ai le code ci-dessous et je veux l'employer pour ouvrir toutes les formes. dans lui je fournis seulement le nom de la forme pour m'ouvrir et de la forme de MDI. le

it passe toujours l'état (pas d'IsNothing) et il échoue et il le
de l'openRecForm du

du du du du du du du du du de fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... (frm de ByVal comme midfrm de forme, de ByVal comme forme) obscurcissent le recFld comme recFld de forme = de frm
'= frm
sinon IsNothing (recFld) Then
sinon recFld.IsDisposed Then
recFld.WindowState = recFld de
Else
de FormWindowState.Normal
recFld.BringToFront () = nouveaux recFld de Form
= frm
recFld.MdiParent = extrémité If
du midfrm
recFld.Show () recFld de/> Else
= nouveaux recFld de Form
= frm
recFld.MdiParent = recFld du
d'If
recFld.Dispose de fin du
du midfrm
recFld.Show () () = extrémité Sub de Nothing
class= de

Réponse : suivant un procédé avec pour que les parameteres ouvrent des formes

Essayer cette manière à la place

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

openRecForm secondaire public (frm de ByVal comme midfrm de forme, de ByVal comme forme) Faible recFld comme forme = frm Faible f comme forme = Application.OpenForms (recFld.Name) Si f IsNot rien alors Sinon recFld.IsDisposed alors recFld.WindowState = FormWindowState.Normal recFld.BringToFront () Autrement recFld = nouvelle forme recFld = frm recFld.MdiParent = midfrm recFld.Show () Finir si Autrement recFld = nouvelle forme recFld = frm recFld.MdiParent = midfrm recFld.Show () Finir si Finir le sous-marin