Вызов процедуры из Form2

[Лохматый]

Подскажите, пожалуйста, как можно вызвать процедуру из Form2, если:
1. создал окно Form1 и добавил кнопку, и в код нужную мне процедуру.
2. создал окно Form2 и добавил кнопку и обработчик клик, при нажатии на который, должна вызываться процедура.

Если нужная мне процедура имеет зеачение public, а в обработчике клик пишу
dim f1 as form1
f1.proc()

proc - нужная процедура
Этот код не работает!
Что мне делать?

[Viper]

Дело в том что этот код не создает форму form1, он ее только объявляет

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

dim f1 as form1
f1.proc()


следовательно и выполнить метод объекта ты не сможешь. Надо получить ссылку на ранее созанный объект типа form1 и вот тогда уже можно будет выполнить метод

[Лохматый]

Так, что собственно делать?
А зачем создавать форму, она ведь уже создана?

[Viper]

так и получи на нее ссылку, и будет тебе счастье

создай форму с областью видимости public и ссылайся потом на нее

код должен быть примерно такой:

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


'в объявлениях Form1
Public f1 As Form1()

...

'создаем Form1:
f1 = New Form1()

...

'в коде Form2 в обработчике клика кнопки

Form1.f1.proc()



и всех делов

[Лохматый]

1. f1 = new form1() - подчёркивается, и где именно это писать?
2.в форме2 когда пишу form1. - после точки не появляется f1...
3. Что токое объявления? Это сразу после public class form1?

[Ваня]

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

Public Class Form1
    Public Sub Proc(ByVal txt As String)
        MessageBox.Show(txt)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Proc("Из Form1")
        Dim f2 As New Form2
        f2.Show()
    End Sub
End Class

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

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Proc("Из Form2")
    End Sub
End Class

[Лохматый]

Ещё раз спасибо, но ты сам пробовал что сделал?
1. me.proc() - выполняет процедуру до открытия Form2.
2. В 2-й форме после слова Form1. появляется выбор, где нет моей процедуры.
Неужели нет выхода?

[Ваня]

Пробовал!

1. me.proc() - выполняет процедуру до открытия Form2.
- так и есть. В msgbox так и пишется, что вызов "из Form1"

2. В 2-й форме после слова Form1. появляется выбор, где нет моей процедуры.
Неужели нет выхода?
У меня появляется и всё работает. При нажатии кнопки на Form2 появляется сообщение MsgBox "из Form2"

У тебя какой VB? 2003? А у меня 2005.

[GSerg]

Мда...

Господа, вы концепции объектно-ориентированного программирования поизучайте, а?
В частности, чем класс отличается от экземпляра класса.

Ненавижу 2005 за то, что он нарушил стройную ясность этого вопроса и внёс ту же путаницу с формами и экземплярами форм, что была в VB6.
2003 рулит.

[Sebas]

GSerg


Чё вернули? Блин, а уж как код на 2005 а и не знал, ну хрен, я больше сюда не ногой.

Тото смотрю глаза режет:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Proc("Из Form2")
End Sub

[Лохматый]

Так как всё же в 2003 net сделать вызов процедуры?

[GSerg]

Изучить азы объектно-ориентированного программирования.
Создать экземпляр формы.
Вызвать его метод.

[Лохматый]

Изучить азы объектно-ориентированного программирования.
Создать экземпляр формы.
Вызвать его метод.

Хорошо, спасибо, я не против. Можно хоть ссылку дать, где прочитать, или намек как сделать? Как создать экземпляр формы?

[Ваня]

Сначала сделай Startup object = sub main (это в меню редактора VBnet: Project --> НазваниеПроектаProperties)

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

Module Start
  Public StartingForm As Form1

  Public Sub main()
    StartingForm = New Form1
    Application.Run(StartingForm)
  End Sub

End Module

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

Public Class Form1
    Public Sub Proc(ByVal txt As String)
        MessageBox.Show(txt)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Proc("Вызов Proc находясь в Form1")
        Dim f2 As New Form2
        f2.Show()
    End Sub
End Class

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

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Start.StartingForm.Proc("Вызов Proc находясь в Form2")
    End Sub
End Class

Должно получиться.

[Лохматый]

Спасибо большое! Всё получилось.

[kroskros]

Хммм... все работает, спасибо

Для блондинов, которые в танке.
получается, что если нарисовать в дизайнере форму (frmStart например)
и стартовать с нее проект, то экземпляр frmStart не будет создан???

[Viper]

Хммм... все работает, спасибо

Для блондинов, которые в танке.
получается, что если нарисовать в дизайнере форму (frmStart например)
и стартовать с нее проект, то экземпляр frmStart не будет создан???

Будет, куда он денется то, если он является стартовым объектом. А если стартовый объект sub Main(), то frmStart должна создаваться ручками, типа

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

Dim frmStart as New frmStart()

и делай с ней все что надо и хочется

[kroskros]

Будет, куда он денется то, если он является стартовым объектом. А если стартовый объект sub Main(), то frmStart должна создаваться ручками, типа

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

Dim frmStart as New frmStart()

и делай с ней все что надо и хочется[/quote]

нет я понимаю, что экземпляр обязан быть...
значит так: рисую форму. В свойствах проекта говорю: стартовать
с этой формы.
а КАК получить указатель на этот объект?
я в рамках топрика: ПОЧЕМУ не удается обратиться к свойству этой формы из другой? почему именно надо создавать явно экземпляр этого класса?
Нет, я понимаю, чт возможно так проще, но очень хоцца ПОНЯТЬ.
если есть объект, значит можно получить на него ссылку, вопрос КАК?

[Viper]

Народ! Я чей то вас не понимаю... никакой разницы между классом и объектом не видите что ли?

kroskros

1. Из какого места кода ты хочешь получить указатель (ссылку) на объект стартовой формы?
2. Из любого объекта (в том числе из формы) можно обратиться к любому открытому члену другого объекта если этот объект виден вызывающим объектом
3. Ссылка на объект:

ref = obj

и это всё. Здесь ref - ссылка, obj - уже существующий объект.

[kroskros]

Народ! Я чей то вас не понимаю... никакой разницы между классом и объектом не видите что ли?

Да вижу я разницу, вернее - знаю...

Наверно просто некорректно задал вопрос.
Когда создаешь форму в дизайнере, то в коде так и пишется

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

Public Class frmFirst

это обявляется КЛАСС.
Чтобы приложение работало надо создать объект этого класса.
Если задать в параметрах проекта- Стартовать с этой формы,
то вручную создавать экземпляр этого класса не надо,
НО, как я верю, это НЕ ЗНАЧИТ, что он не создается,
просто /наверное/ генерится компиллятором.
Вот мне и интересно, если он и вправду создается компиллятором,
то както можно к нему обратиться в коде?

[Sebas]

млин! а подумать? или ME уже отменили?

[kroskros]

кхм... ME в обращении к форме1 из формы2 не очень помогает...
напоминаю ситуацию:
Проект стартует с ФОРМЫ1, по нажатию в ней кнопки
открываем ФОРМУ2. Бегунком в форме 2 хотим менять прозрачность ФОРМЫ1. не выходит.
создание в форме1 метода

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

Public sub ChOpac (byval opac as double)
me.opacity = opac
end sub

не проходит /у меня во всяком случае/

[Sebas]

Подумать ещё...

-Глобалная переменная
-событие при создание формы
- и опятьже МЕ

Мне кажется это вопрос уже не программирования, а умения мыслить логически...

[kroskros]

гы... так как раз от глобальной переменной я и уходил как раз,
типа "дурной тон"
Да не... КАК выкрутится я знаю. Интересна была ТЕОРИЯ.
СПАСИБО!

[Sebas]

ну по ПРАВИЛЬНОМУ, тогда MainWindow

[Viper]

Еще вариант:

при создании Form2 передавать ей ссылку на Form1

[kroskros]

ну по ПРАВИЛЬНОМУ, тогда MainWindow

О!!!
именно ТО, что я хотел узнать... спасиба! )))