Debug.Print iCount

[vvs_adm]

Что-то я недопонимаю, что за глюк Создаем пустой проект, в нем две формы Form1 и MDIForm1. Соответственно Form1.MDIChild=True. В модуле MDI-формы

Код: Выделить всё

Option Explicit

Dim lngCount As Long

Private Sub MDIForm_Load()
    Form1.Show
    lngCount = 1
End Sub

Private Sub MDIForm_Resize()
    If (lngCount < 3) Then
        Me.Width = Me.Width - 45
        Me.Height = Me.Height - 45
        lngCount = lngCount + 1
        DoEvents
        Debug.Print lngCount
    End If
End Sub

Если DoEvents закомментировать, то успевает пропечатать аж до 35 примерно (если заданные размеры позволяют не вылететь по отрицательной высоте\ширине) , соответственно столько же раз уменьшится. А если не комментировать, то вообще виснет.

[alibek]

А что непонятного то?
При изменении Me.Width/Me.Height естественно будет рекурсивно вызывать Form_Resize.

[vvs_adm]

А что непонятного то?

If (lngCount < 3) Then

то успевает пропечатать аж до 35 примерно

[vvs_adm]

естественно будет рекурсивно вызывать Form_Resize.

Ну я того и хотел

[alibek]

Хм... А заведи-ка ты флаговую переменную, проверяемую вначале Form_Resize.

[vvs_adm]

Хм... А заведи-ка ты флаговую переменную, проверяемую вначале Form_Resize.

Не понял... если так

Код: Выделить всё

Public Sub MDIForm_Resize()
    If bFlag Then
        Me.Width = Me.Width - 45
        Me.Height = Me.Height - 45
        lngCount = lngCount + 1
        If (lngCount > 3) Then bFlag = False
        'DoEvents
        Debug.Print lngCount
    End If
End Sub


то не работает (т.е. работает также)

[alibek]

Код: Выделить всё

Option Explicit
...
Private fBusyResize As Boolean
Public Sub MDIForm_Resize()
  If fBusyResize Then Exit Sub
  fBusyResize = True
  Me.Width = ...
  ...
  fBusyResize = False
End Sub

[vvs_adm]

Хм... А заведи-ка ты флаговую переменную, проверяемую вначале Form_Resize.

Нет что б прямо сказать, в чем дело. (Тогда мне было некогда вникать совсем, потому что это возникло не в моем проекте, а я одновременно занимался своим... )Меня утром в метро осенило, почему так получается Хотя думал сидел уже давно о другом. Ты хотя бы выделил ключевое слово "вначале"