| |
|
|
| | есть форма1 она активна, откриваеться ещё одна форма2 в ней делаються езменения
как при закритии форми2 виполнить в форме1 ниже приведёний код
Private Sub Form_Open(Cancel As Integer)
For i = 1 To 550
Me.Controls("Надпись" & i).Top = 0
Me.Controls("Надпись" & i).Left = 0
Me.Controls("Надпись" & i).Width = 0
Me.Controls("Надпись" & i).ControlTipText = ""
Next
End Sub
|
Сами понимаете - время занимает, поетому, не могу поставить на Form_Activate.
Ето реально?  | |
| |
| |
| |
|
|
| | сделайте отдельную public функцию
ее вызывайте и при открытии формы1 и при закрытии формы2 | |
| |
| |
| |
|
|
| | имхо
двигать контролы на форме - не очень хорошая идея
зачастую может привести пользователя в ступор | |
| |
| |
| |
|
|
| | Если эту процедуру сделать Public, то извне ее можно попробовать вызвать так:
Call Forms("Имя").Form_Open(0)
Зы. 550 надписей, это - КРУТО!  | |
| |
| |
