Form_Resize Свернуть в окно

[kuhtiov]

Здравствуйте!!
Есть код

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

Private Sub Form_Resize()

                         ' Øèðèíà
If Me.Width - 7800 > 0 Then
    searchstring.Width = Me.Width - 7700
    Label1.Width = Me.Width - 3000
    ListPackages.Width = Me.Width - 3000
    VScreen.Left = Me.Width - 2175
    TextdescriptionProg.Width = Me.Width - 3240
    TextNameProg.Width = Me.Width - 3240
    TextVerProg.Width = Me.Width - 3240
    TextRazrabProg.Width = Me.Width - 3240
    Line1.X1 = Me.Width - 165
    Line2.X2 = Me.Width - 165
Else
    Me.Enabled = False
    Me.Width = 7800
    Me.Enabled = True
End If

                        ' Âûñîòà
If Me.Height > 8385 Then
   Label1.Top = Me.Height - 4545
   TextNameProg.Top = Me.Height - 4425
   VScreen.Top = Me.Height - 4425
   Label2.Top = Me.Height - 4065
   TextVerProg.Top = Me.Height - 4065
   Label3.Top = Me.Height - 3825
   TextRazrabProg.Top = Me.Height - 3825
   Label4.Top = Me.Height - 3585
   TextdescriptionProg.Top = Me.Height - 3345
   ListPackages.Height = Me.Height - 5850
   KeyInstall.Top = Me.Height - 1305
   KeyExitProgram.Top = Me.Height - 1305
   Line1.Y1 = Me.Height - 1545
   Line1.Y2 = Me.Height - 1545
   Line2.Y1 = Me.Height - 1535
   Line2.Y2 = Me.Height - 1535
   Label6.Top = Me.Height - 1665
   CategoryList.Height = Me.Height - 3210
Else
    Me.Enabled = False
    Me.Height = 8390
    Me.Enabled = True

End If
   
Me.Enabled = True


End Sub


При разворачивании масштабируется нормально, а вот при "Свернуть в окно" масштабирование не происходит, пока не поменяю мышкой размер окна. В чем может быть причина?

[Alec]

При запуске у тебя размер формы заведомо меньше 7800x8385, т.е. при запуске в Form_Resize ты устанавливаешь окну эти значения. При разворачивании размеры окна естественно увеличиваются и происходит масштабирование контролов. При восстановлении окна его размеры становятся опять 7800x8385 и условия для масштабирования не выполняются. Замени в строках

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

If Me.Width - 7800 > 0 Then
'---
If Me.Height > 8385 Then


знак "больше" на "больше или равно" - ">="
И еще, в начало процедуры вставь строку

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

If Me.WindowState = vbMinimized Then Exit Sub


иначе при сворачивании формы на панель задач будет ошибка.

[kuhtiov]

Все верно, спасибо большое за помощь