Вызов формы через форму

[mZone]

Суть вопроса: Есть две формы со своими Event-ми.
1. Вызываем форму Form1, затем по WithEvents as Form2 открываем вторую форму (Form2).
2. В Form2 снова же по WithEvents as Form1 необходимо открыть новую Form1.
В итоге от компилятора получаем: "Circular dependencies between modules"
Подскажите как решит эту проблемму!!

[alibek]

А что тебе надо?

[mZone]

Так описал же вроде. Вызываем из открытой вормы, другую, имеющую ссылку на первую форму, которая, в свою очередь, имеет ссылку на вторую и т.д. .......

[alibek]

Тогда непонятно, чего ты ожидаешь.
Тебе английским языком пишут, что циклические ссылки не допускаются.

Напиши, что тебе надо получить в итоге, а не как ты это хочешь сделать.

[mZone]

Так я понимаю, что не допускаются. Просто не хочется загромождать проект многочисленными формами.
Делаем так:
Есть форма - справочник (список), со свойством, в зависимости от которого в нем выводятся тот или иной список. В этой форме объявлены с событиями ряд других форм - карточки для просмотра и редактирования элементов списка. Так вот, в одной из этих форм-карточек требуется открыть первую форму-список (эже с другим списком) для выбора.

[alibek]

А зачем нужно WithEvents?

[mZone]

Потому как при редактировании формы-карточки я обновляю в соответствии с введенными данными элементы формы-списка (при нажатии на кнопик "Применить" например)

[alibek]

Тогда покажи, как ты это делаешь.

[mZone]

frmList

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

Option Explicit

Private WithEvents EmptyInsideMove As frmInsideMove

Dim pFormType As ListFormType
Dim pFormCode As Long

Dim strCaption As String

Public Event Choose(ChooseCode As Long, ChooseText As String)

Public Property Let FormType(NewFormType As ListFormType)
    pFormType = NewFormType
    Select Case pFormType
.......
    Case ListFormType.EmptyInsideMove
        strCaption = ""
        Set EmptyInsideMove=New frmInsideMove
    End Select
End Property

Private Sub cmdChoose_Click()
......
    RaiseEvent Choose(pFormCode, tmpStr)
End Sub

Private Sub EmptyInsideMove_ChildSaved(ChildDocCode As Long)
    grdList.Refresh ChildDocCode
End Sub


frmInsideMove

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

Option Explicit

Public Event ChildSaved(ChildDocCode As Long)

Private WithEvents ListForm As frmList

Private Sub txtOperName_ButtonClick()
    Set ListForm = New frmList
    ListForm.FormType = ListFormType.Operations
    ListForm.Show 1, Me
End Sub

Private Sub cmdApply_Click()
    RaiseEvent ChildSaved .....
End sub


[Andrey Fedorov]

frmList

Ты эта... Если хочешь чтобы другим была понятней твоя проблема не делай им ребус - сделай простейший примерчик с твоими двумя формами и высылай его - чтобы сразу можно было запустить, а не гадать на кофейной гуще или собирать из кусков...

[mZone]

frmList

Ты эта... Если хочешь чтобы другим была понятней твоя проблема не делай им ребус - сделай простейший примерчик с твоими двумя формами и высылай его - чтобы сразу можно было запустить, а не гадать на кофейной гуще или собирать из кусков...

Круто!!! Что еще может быть понятней чем реальный код! (работающий, хочу заметить) А кофе я пью каждое утро!!! Только решение проблеммы так и не вижу!

[Viper]

frmList

Ты эта... Если хочешь чтобы другим была понятней твоя проблема не делай им ребус - сделай простейший примерчик с твоими двумя формами и высылай его - чтобы сразу можно было запустить, а не гадать на кофейной гуще или собирать из кусков...

Круто!!! Что еще может быть понятней чем реальный код! (работающий, хочу заметить) А кофе я пью каждое утро!!! Только решение проблеммы так и не вижу!

Автор серьезно считает, что приведенного куска кода, выдранного из двух форм достаточно для понимания?

[mZone]

frmList

Ты эта... Если хочешь чтобы другим была понятней твоя проблема не делай им ребус - сделай простейший примерчик с твоими двумя формами и высылай его - чтобы сразу можно было запустить, а не гадать на кофейной гуще или собирать из кусков...

Круто!!! Что еще может быть понятней чем реальный код! (работающий, хочу заметить) А кофе я пью каждое утро!!! Только решение проблеммы так и не вижу!

Автор серьезно считает, что приведенного куска кода, выдранного из двух форм достаточно для понимания?

Каюсь, - думал что и этого достаточно Не видя смысла отсылать весь проект (!!!) разрабатываемый мной на протяжении уже пяти лет (!!!) состряпал простейщий пример. Я ведь действительно прошу помощи, а не ехидных замечаний. Суть самой программы в учете и радиоточек на предприятии проводного вещания (проводных радиоточек - есть еще такие ) и ведении всяческой связанной с этим документации. Включая расчеты с клиентами и с банком. Скомпилированный файл занимает порядка 2 мегабайт (!!!). Поэтому, сами понимаете, кода в нем немеряно (пять лет все-таки).

[tyomitch]

Проект из аттача у меня нормально запускается и работает.
Что не так?

[Viper]

В примере вроде бы нечему работать неправильно.

Но, если реализовать обработчики событий у форм, то естественно выплавыет сообщение

"Circalar dependencies between modules"

что, собственно, и требовалось доказать

[mZone]

Проект из аттача у меня нормально запускается и работает.
Что не так?

Неужели. Может это только у меня не запускается. Я писал в VB5.

[mZone]

В примере вроде бы нечему работать неправильно.

Но, если реализовать обработчики событий у форм, то естественно выплавыет сообщение

"Circalar dependencies between modules"

что, собственно, и требовалось доказать

Да если и не обрабатывать события, пример выскочит с вышеуказанной надписью! Вопрос в том, можно ли это обойти (есесно не добавляя дополнительных форм)

[Andrey Fedorov]

Не видя смысла отсылать весь проект (!!!) разрабатываемый мной на протяжении уже пяти лет (!!!)

И не вздумай - это другая крайность.
Никому не нужны мегабайты чужого кода - кому охота в них копаться?

состряпал простейщий пример.

А так и надо - минимум всего, только по существу вопроса.
Иногда и сам при этом умудряешься найти ответ.

Так что если действительно так - у кого будет время глянут.
Если уже не посмотрели, конечно.

[Viper]

В примере вроде бы нечему работать неправильно.

Но, если реализовать обработчики событий у форм, то естественно выплавыет сообщение

"Circalar dependencies between modules"

что, собственно, и требовалось доказать

Да если и не обрабатывать события, пример выскочит с вышеуказанной надписью! Вопрос в том, можно ли это обойти (есесно не добавляя дополнительных форм)

Отнюдь. Пример в первозданном виде нормально компилируется, запускается и работает...

[mZone]

В примере вроде бы нечему работать неправильно.

Но, если реализовать обработчики событий у форм, то естественно выплавыет сообщение

"Circalar dependencies between modules"

что, собственно, и требовалось доказать

Да если и не обрабатывать события, пример выскочит с вышеуказанной надписью! Вопрос в том, можно ли это обойти (есесно не добавляя дополнительных форм)

Отнюдь. Пример в первозданном виде нормально компилируется, запускается и работает...

Может я чего-то не понимаю, но у меня он не запускается! Кому интересно, - скрин в атаче.

[tyomitch]

Я писал в VB5.

Это телепаты должны были сами угадать?
По крайней мере, один способ решения проблемы найден -- перейти на VB6.

[GSerg]

И чё?.. На VB6 тоже не работает, я проверял вчера.
Если в коде форм есть обработчики событий друг друга - не только не компилируется, но даже перестаёт работать часть функционала редактора кода, а именно списки объектов и их событий. Если убрать сами обработчики, оставив остальное, всё работает. Может быть в старом MSDN есть ответ на вопрос почему, но у меня сейчас нет его под рукой.

[Andrey Fedorov]

И чё?..

Так как он выложил - работает.
Моделировать за него неработающий код - просто влом.
Ему надо - пускай сделает и выложит то что не работает, а не целиком работающий проект...

[mZone]

И чё?..

Так как он выложил - работает.
Моделировать за него неработающий код - просто влом.
Ему надо - пускай сделает и выложит то что не работает, а не целиком работающий проект...

Да не работает он, и не в 5-ом и не в 6-ом. И ничего за меня моделировать не надо, просто попытаться запустить, а не строить умозрительные заключения.

[Viper]

Дык. Пытались ужо...

[mZone]

Дык. Пытались ужо...

И неужели работает!? Ну я тогда ничего вообще не понимаю. Для меня-то проблемма остается!

[Viper]

Именно, что да.

[mZone]

Я уж и не знаю о чем думать. Знатоки, подскажите, может в настройках самого VB что не так?

[alibek]

Я бы сделал по другому.
Например, в первой форме объявил бы публичную процедуру RefreshForm, а из дочерней формы вызывал бы ее (при нажатии кнопки Apple).
Либо завел бы какого-нибудь диспетчера-посредника, управляющего событиями.

[Andrey Fedorov]

Дык. Пытались ужо...

И неужели работает!? Ну я тогда ничего вообще не понимаю. Для меня-то проблемма остается!

Ну смотри скриншот твоей программы.
Что там не работает??? Все прекрасно...