2. Блин, второй забыл уже..


Dim frm As Form
Set frm = New Form1
Load frm
frm.Show vbModeless
Set frm = Nothing
Dim frm1 as Form1, frm2 as Form1
Load frm1
Load frm2
frm1.Show vbModeless
frm2.Show vbModeless
...
frm1.Hide
frm2.Hide
Unload frm1
Unload frm2
Ennor писал(а):Вообще-то New и Nothing с формами не требуются. Достаточно Load/Unload.
Unload frm2[/code]
Ennor писал(а):Уверен. В этом и есть главное отличие формы от простого класса.
Sub Main()
Dim f As Form1
Set f = New Form1
f.Show
Unload f
'' Set f = Nothing <--- убери комментарии
f.Command1.Caption = "Hello Ennor !!!!"
f.Show
End Sub
Сейчас этот форум просматривают: PetalBot и гости: 15