Вопрос : using одна процедура с для parameteres для того чтобы раскрыть формы

Я имею Кодего ниже и я хочу использовать его для того чтобы раскрыть все формы. в ем я поставляю только имя формы для того чтобы раскрыть и формы MDI.

it всегда проходит (условие не IsNothing) и оно терпит неудачу и оно
openRecForm

fails.

.......................... .......... .......... .......... .......... .......... .......... .......... .......... ....... общественное Sub (frm ByVal как midfrm формы, ByVal как форма) затемняет recFld как recFld формы = frm
'= frm
если не IsNothing (recFld) Then
если не recFld.IsDisposed Then
recFld.WindowState =
Else
FormWindowState.Normal
recFld.BringToFront () recFld = новые recFld Form
= frm
recFld.MdiParent =
midfrm
recFld.Show ()            Закончите recFld If
Else
= новые recFld Form
= frm
recFld.MdiParent = recFld
If
recFld.Dispose конца
midfrm
recFld.Show () () = конец Sub Nothing
class=

Ответ : using одна процедура с для parameteres для того чтобы раскрыть формы

Попытайтесь эта дорога вместо

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

Общественное Sub openRecForm (frm ByVal как midfrm формы, ByVal как форма) Тусклое recFld как форма = frm Тусклый f как форма = Application.OpenForms (recFld.Name) Если f IsNot ничего после этого Если не recFld.IsDisposed после этого recFld.WindowState = FormWindowState.Normal recFld.BringToFront () Еще recFld = новая форма recFld = frm recFld.MdiParent = midfrm recFld.Show () Закончитесь если Еще recFld = новая форма recFld = frm recFld.MdiParent = midfrm recFld.Show () Закончитесь если Закончите подводную лодку