| Вопрос: Как запустить одну и туже форму раз 20 | Добавлено: 23.08.04 18:41 |
Автор вопроса:  magish
|
| Как запустить одну и туже форму раз 20 |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 23.08.04 18:59 |
Private Sub Command1_Click()
 im arr() As Form, i As Long
ReDim arr(19) For i = 0 To 19 Set arr(i) = New Form1 arr(i).Show Next End Sub |
||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 24.08.04 11:33 |
|
А если модально, то
' В модуле Global WindowsShow ' В форме frmMain frmPopup.Show vbModal ' В форме frmPopup Private Sub Form_Load() Me.Show Me.Refresh If WindowsShow<20 Then frmPopup.Show vbModal End Sub 
|
||
|
Номер ответа: 3 Автор ответа:  mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 15.10.04 15:47 |
|
А можно так:
'В модуле Sub Main() Dim i As Integer Dim frm(1 To 20) As New frmMain For i = 1 To 20 frm.Show Next i End Sub 'и сделать Sub Main() стартовой в свойствах проектв |
||
Страница: 1 |