Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Не могу загрузить форму  (Прочитано 6904 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Dusk
Команда клуба

ru
Offline Offline
Пол: Мужской
Редкий, но веселый вид


« : 26-04-2004 08:15 » 

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

P.S. Имя формы в переменной может меняться уже в запущеной программе, поэтому надо загружать форму именно опираясь на ее название в переменной....
Записан

Человек, сделавший хотя бы шаг к цели, сразу становится мишенью для всех отставших
Опыт - это то, что появляется сразу после того, как он был так необходим...
Бывают минуты, когда у тебя есть секунды, чтобы исправить деланное часами и не получить последствия на годы...
Alf
Гость
« Ответ #1 : 26-04-2004 09:16 » 

Dusk, у меня вот что получилось:
Код:
Option Explicit
Dim ColOfForms As New Collection

Private Sub cmdLoadButton_Click()
Dim f As Form
  Set f = ColOfForms.Item(txtFormName.Text)
  f.Show 1, Me
End Sub

Private Sub Form_Load()
  ColOfForms.Add Form1, Form1.Name
  ColOfForms.Add Form2, Form2.Name
End Sub
В TextBox'е txtFormName вводим имя формы (я для примера сделал две, но в коллекцию можно набить сколько угодно), жмем кнопку Load и получаем желаемый результат.
« Последнее редактирование: 25-11-2007 19:49 от Алексей1153++ » Записан
Dusk
Команда клуба

ru
Offline Offline
Пол: Мужской
Редкий, но веселый вид


« Ответ #2 : 26-04-2004 10:34 » 

Спасибо...
Записан

Человек, сделавший хотя бы шаг к цели, сразу становится мишенью для всех отставших
Опыт - это то, что появляется сразу после того, как он был так необходим...
Бывают минуты, когда у тебя есть секунды, чтобы исправить деланное часами и не получить последствия на годы...
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines