Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
warlord@au.ru
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
1

Создание копии формы за один клик

16.08.2007, 15:02. Просмотров 867. Ответов 7
Метки нет (Все метки)

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

если можно то 2 варианта - так как может понадобится создавать копию формы (неодну) когда в ней уже работали и в ее полях, боксах, чеках - уже есть какая т оинфа - что бы форма создавалась копией с той что есть на текущий момент.

а второй вариант - это просто создать копию формы с контролами и кодом, но в том виде в котором она до запуска - изначально...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.08.2007, 15:02
Ответы с готовыми решениями:

Создание шаблонной страницы в один клик
народ, php знаю лишь поверхносно /*читаю со словарем*/, подскажите мональ...

Один клик на кнопку
как сделать чтобы в программе на C# на button1 можно было кликнуть только один...

Смена ip в один клик
Здравствуйте. Есть proxy, который я хотел бы вбивать в textbox своей программы...

копирование в один клик
как сделать коп/перем. в один клик?

BBcode в один клик
Взял вот такой скрипт на этом форуме , работает как нужно всё , но мне нужно...

7
AndreP
0 / 0 / 1
Регистрация: 22.07.2007
Сообщений: 260
16.08.2007, 15:10 2
Visual Basic
1
2
3
4
5
6
Dim NewForm As Form1
 
Private Sub Command1_Click()
  Set NewForm = New Form1
  NewForm.Show
End Sub
а текущии значения контролов надо копировать пробегаясь в цикле по коллекции Controls
0
warlord@au.ru
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
16.08.2007, 15:17  [ТС] 3
А как создать цикл что бы он перебрал разные контролы... ведь их имена не имеют индексов - они по разному наз-ся...
0
AndreP
0 / 0 / 1
Регистрация: 22.07.2007
Сообщений: 260
16.08.2007, 15:23 4
Visual Basic
1
2
3
4
5
6
7
8
9
dim ctr as control
for each ctr in Form1.Controls
If TypeOf ctr Is TextBox Then
...
ElseIf TypeOf ctr Is ComboBox Then
...
else
End If
next ctr
0
warlord@au.ru
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
16.08.2007, 15:32  [ТС] 5
Пасибки. И еще одно - все вместе Я создаю форму по твоему методу - все Ок. Она имеет то же имя что и ее прородитель 'ExplorerForm' но как их различать - как обратиться к конкретной - ведь имена то у них одинаковые - и видимо все остальное тоже
0
AndreP
0 / 0 / 1
Регистрация: 22.07.2007
Сообщений: 260
16.08.2007, 15:57 6
1. При создании есть ссылка - NewForm
2. Есть коллекция Forms и каждая форма имеет в ней индекс, например к последней созданной форме можно обратиться
Forms(Forms.Count - 1)
3. Добавляй созданные формы в свою коллекцию с уникальным именем и индексом
Visual Basic
1
2
3
4
5
6
7
8
9
Dim Coll As New Collection, k As Long
Dim NewForm As Form1
 
Private Sub Command1_Click()
Set NewForm = New Form1
Coll.Add NewForm, 'Frm' & k
Coll('Frm' & k).Show
k = k + 1
End Sub
0
warlord@au.ru
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
16.08.2007, 16:03  [ТС] 7
А можно ли изменить имя или индекс формы после того как она уже создана и визуализирована?
0
AndreP
0 / 0 / 1
Регистрация: 22.07.2007
Сообщений: 260
16.08.2007, 16:10 8
см. 3 случай, Key в коллекции устанавливаешь сам
0
16.08.2007, 16:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.08.2007, 16:10

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

Заполнить таблицу в один клик
Здравствуйте, подскажите пожалуйста, как в Access 2007 сделать так, чтобы при...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru