Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще вопрос по открытию нескольких экз. формы / 9 сообщений из 9, страница 1 из 1
23.01.2003, 11:06
    #32095036
AlexEburg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Создаем новый экземпляр формы.

Тут все понятно:

Dim Frm As Form
Set Frm = New Form_МояФорма
Frm.Visible = True

А если имя формы передается через переменную типа String - как тогда?


Dim Name As Sring
Dim Frm As Form

Name = "МояФорма"

Set Frm = New ?????????????
...
Рейтинг: 0 / 0
23.01.2003, 11:38
    #32095076
IgorM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Никак имхо
...
Рейтинг: 0 / 0
23.01.2003, 12:32
    #32095144
AlexEburg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Опять похоже уперся я.


Необязательно использовать указанную конструкцию. Может есть какие нибудь варианты обхода в решении этой задачи:

Во внешний модуль передается имя формы, а он создает ее новый эксземпляр.
...
Рейтинг: 0 / 0
23.01.2003, 14:36
    #32095255
Вакшуль Сергей
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
обходным вариантом, по-моему может быть только один, примерно такой:

Function ttt(strИмя As String) As Form
Select Case strИмя
Case "ИмяФормы1"
Set ttt = New Form_ИмяФормы1
Case "ИмяФормы2"
Set ttt = New Form_ИмяФормы2
Case "ИмяФормы3"
Set ttt = New Form_ИмяФормы3
End Select
End Function
...
Рейтинг: 0 / 0
23.01.2003, 15:28
    #32095302
AlexEburg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Благодарю.
Действительно вариант пока единственный. Придется все возможные формы добавлять в функцию.
...
Рейтинг: 0 / 0
23.01.2003, 15:42
    #32095317
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Попробуй программно создавать модуль с нужным текстом и фиксированным именем процедуры, а потом запускать эту процедуру на исполнение (уже из подготовленной заранее постоянной процедуры). Не забыть удалить временную после использования!
...
Рейтинг: 0 / 0
24.01.2003, 10:47
    #32095719
AlexEburg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
AlexJuice
Идею понял так: если Access не принимает имя класса собранное в функции из переменных, то создаем во время работы функцию с уже готовым именем и подсовываем ее Access. Правильно?

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

А если так:
При старте проекта создавать Collection из всех форм базы с индексом - имя формы, при закрытии - убиваем. Во время работы - для создания нового экземпляра формы обращаться к этой Collection, вытягивая из нее форму по ее имени.

Извиняюсь, что дальше только мысли не пробовал. Бред это или нет (слабовато я с классами и их коллекциями еще разбираюсь)? Можно ли по этому варианту что-то сказать?
...
Рейтинг: 0 / 0
24.01.2003, 12:35
    #32095833
Savik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Такая коллекция есть - Forms. Но если ВСЕ формы у тебя уже созданы, нахрена огород городить?
...
Рейтинг: 0 / 0
26.01.2003, 09:45
    #32096399
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Еще вопрос по открытию нескольких экз. формы
Да честно говоря, я тоже так далеко не копал (просто нужды не было).
Поэтому просто ответил по конкретной задаче (или, точнее, по ее части).
Идея была понята правильно.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Еще вопрос по открытию нескольких экз. формы / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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