Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / При закрытии модальной закрываются все формы / 7 сообщений из 7, страница 1 из 1
09.06.2010, 09:33
    #36677029
Тыжных Иван
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Имеется немодальная UserForm. Из нее по кнопочке вызывается модальная форма UserForm2 таким кодом:



Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim f As UserForm2
   
    Set f = New UserForm2
    f.Tag = <ключ>
    f.INIFORM 'инициализация формы в зависимости от ключа
    f.Show     'тадааам

При закрытии формы f закрывается и UserForm, хотя она вообщем то не при чем.
Если UserForm2 сделать немодальной (чего не хотелось бы), то закрывается только она.
Как закрыть модальную форму, не закрывая немодальную?
...
Рейтинг: 0 / 0
09.06.2010, 10:00
    #36677121
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Тыжных ИванИмеется немодальная UserForm. Из нее по кнопочке вызывается модальная форма UserForm2 таким кодом:



Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim f As UserForm2
   
    Set f = New UserForm2
    f.Tag = <ключ>
    f.INIFORM 'инициализация формы в зависимости от ключа
    f.Show     'тадааам

При закрытии формы f закрывается и UserForm, хотя она вообщем то не при чем.
Если UserForm2 сделать немодальной (чего не хотелось бы), то закрывается только она.
Как закрыть модальную форму, не закрывая немодальную?


Если я верно Вас понял, то попробуйте так


Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim f As UserForm2
   
    Set f = New UserForm2
    f.Tag = <ключ>
    f.INIFORM 'инициализация формы в зависимости от ключа
    f.Show  0    'тадааам
...
Рейтинг: 0 / 0
09.06.2010, 10:02
    #36677125
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Тыжных Иван,

а вообще я попробовал из немодальной формы вызывать модальную и VBA меня послал
а если обе модальные то закрываются они независимо друг от друга
...
Рейтинг: 0 / 0
09.06.2010, 10:05
    #36677133
Shamanus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
перепутал VBA послал при обратной ситуации.
...
Рейтинг: 0 / 0
09.06.2010, 10:14
    #36677160
Тыжных Иван
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Shamanus
Если я верно Вас понял, то попробуйте так


Тогда она становится немодальной и всё класс )
Видимо это аналог для
Код: plaintext
ShowModal=false
...
Рейтинг: 0 / 0
09.06.2010, 10:22
    #36677190
Тыжных Иван
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Если немодальную UserForm вызывать кодом:

Код: plaintext
UserForm.Show

тогда она закрывается вместе с модальной



Если немодальную UserForm вызывать кодом:

Код: plaintext
1.
2.
    Dim f As New UserForm
    f.Show  0 

то при закрытии вызванной из нее модальной формы, она сама не закрывается.
То что надо. Осталось как-нить запретить вызов UserForm если она уже открыта.
...
Рейтинг: 0 / 0
09.06.2010, 10:32
    #36677241
Тыжных Иван
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
При закрытии модальной закрываются все формы
Интересно, что даже при таком вызове:

Код: plaintext
1.
2.
    Dim f As New UserForm
    f.Show  0 

форма открывается один раз и дополнительных проверок делать не надо.

Мне конечно хорошо, но в будущем, если захочется вызвать две одинаковые формы с разными данными, возникнут траблы.

Тот же прием в Access'е открывает две формы. Правда аксес может возвращать коллекцию открытых форм.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / При закрытии модальной закрываются все формы / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]