Передача объекта "форма" в качестве аргумента

[Thrasher]

Здравствуйте! Вот такая ситуация: на одной форме (frmMain) есть две кнопки (btnFedCl, btnCorpCl), которые делают видимыми соответственно формы frmFedCl и frmCorpCl и помещают текстовые данные и картинки на формы, вопрос таков - можно ли как-нибудь в отдельную процедуру (чтобы два раза большой отрезок кода не прогонять) передать форму в качестве аргумента :

Код: Выделить всё

    Private Sub btnFedCl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFedCl.Click
         Call ChecknFill(frmFedCl)
    End Sub


Код: Выделить всё

Sub ChecknFill(ByRef Forma)

With Forma
      .object1.text = value1
      .object2.text = value2
...

End Sub


Заранее спасибо за уделенное внимание.

[Williams]

Начиная с 2005 есть My.Application.OpenForms

[Viper]

Начиная с 2005 есть My.Application.OpenForms

Это ответ?
2 Thrasher, передать то можно, но если это разные формы, то как ты их собираешься обрабатывать? Или это все же разные экземпляры одного класса? Во втором случае все достаточно просто. А первый вариант сложно реализовать.

[Williams]

Начиная с 2005 есть My.Application.OpenForms

Это ответ?
2 Thrasher, передать то можно, но если это разные формы, то как ты их собираешься обрабатывать? Или это все же разные экземпляры одного класса? Во втором случае все достаточно просто. А первый вариант сложно реализовать.

Исходя из сообщения, ему нужно обработать открытые формы по нажатию кнопки, это гораздо удобнее можно сделать вышеуказанным способом. Да, это ответ.

[Thrasher]

Начиная с 2005 есть My.Application.OpenForms

Это ответ?
2 Thrasher, передать то можно, но если это разные формы, то как ты их собираешься обрабатывать? Или это все же разные экземпляры одного класса? Во втором случае все достаточно просто. А первый вариант сложно реализовать.

К сожалению, это не второй случай Ну вот, если можно передать, то как? Просто, если я его передаю, как показано в коде, то у меня не получается обратиться к объектам формы.

Начиная с 2005 есть My.Application.OpenForms

Не понимаю, как это может чем-то помочь, я уже пытался использовать My.Forms, который ничем не хуже в этой ситуации.

[Sebas]

передать форму в качестве аргумента :

формы -экземпляры одного класса?

ТЫ формы руками создаёшь или как в VB6 обращаешься к определению класса, а не к экземпляру?

[Thrasher]

передать форму в качестве аргумента :

формы -экземпляры одного класса?

ТЫ формы руками создаёшь или как в VB6 обращаешься к определению класса, а не к экземпляру?

Add - New Item - Windows Form

[Williams]

передать форму в качестве аргумента :

формы -экземпляры одного класса?

ТЫ формы руками создаёшь или как в VB6 обращаешься к определению класса, а не к экземпляру?

Add - New Item - Windows Form

А ты понимаешь разницу между My.Forms и My.Application.OpenForms?

[Thrasher]

OpenForms - собрание всех открытых форм приложения, My.Forms - отдельные экземпляры каждой формы проекта.

[Nord777]

Просто, если я его передаю, как показано в коде, то у меня не получается обратиться к объектам формы.

Sub ChecknFill(ByRef Forma)

Надо так:

Код: Выделить всё

Sub ChecknFill(ByVal Forma As ИмяКонкретногоКласса )

Либо в теле метода приводить к нужному типу.

[Денис]

Вообще, Thrasher, если уж ты кодишь на .NET, то коди уж объектно-ориентированно что ли...
То есть у тебя в формах будут публичные методы, например, ShowFedCl и ShowCorpCl в методах описан код для выполнения всех необходимых действий, и отображение окна. А кнопками ты просто вызываешь соответствующие методы.