| Вопрос: Запуск нескольких форм | Добавлено: 14.05.06 14:48 |
Автор вопроса:  -=Fenix=-
|
| Как запусти во время программы одну и туже форму несколько раз? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #1 | Добавлено: 14.05.06 16:29 |
|
Dim ggg as Form1
ggg.show |
||
|
Номер ответа: 2 Автор ответа: EROSВопросов: 58 Ответов: 4255  |
Профиль | Цитата | #2 | Добавлено: 14.05.06 17:50 |
HACKER, а New уже можно не использовать?  ))
|
||
|
Номер ответа: 3 Автор ответа: LeX ICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 14.05.06 18:27 |
|
Public Function CreateNewDocument()
'** Description: '** Create a new document On Error GoTo NewError Static DocCount As Long Dim frmDoc As frmDocument Set frmDoc = New frmDocument 'Create new form  ocCount = DocCount + 1 'Increase document counter
frmDoc.Caption = " ocument " & DocCount 'Set document caption
frmDoc.Show 'Show document NewError: ErrorLog "modDocument/CreateNewDocument" End Function |
||
|
Номер ответа: 4 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | Цитата | #4 | Добавлено: 15.05.06 06:03 |
|
2 Lex интересно, что после показа новой формы будет все равно выполнена функция ErrorLog. перед NewError: лучше поставить Exit Sub |
||
|
Номер ответа: 5 Автор ответа: LeXICQ: 301424893 Вопросов: 28 Ответов: 277 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 15.05.06 09:26 |
| Я вообще все про ошибки убираю. Это я из модуля скопировал... | ||
Страница: 1 |