- Код: Выделить всё
Private Sub Form_Load()
Dim MeHeight As Single, MeWidth As Single
Frame1.Top=0
Frame1.Left=0
MeHeight = (Me.Height - Me.ScaleHeight) + Frame1.Height
MeWidth = (Me.Width - Me.ScaleWidth) + Frame1.Width
Debug.Print Me.Width; Me.ScaleWidth; Me.Height; Me.ScaleHeight
Me.Move 0, 0, MeWidth, MeHeight
Debug.Print Me.Width; MeWidth; Me.Height; MeHeight
End Sub
при изменении разрешения ScaleHeight и ScaleWidth меняются. Почему?
при 1280x1024 Debug.Print выдаёт:
13110 13020 9315 8940
11895 11895 8310 8310
при 800x600 Debug.Print выдаёт:
13110 12090 9315 8805
12180 12825 8445 8445
также Me.Top>0
Также интересно, что сперва у меня форма при 800x600 закрывала Панель задач, потом стала уходить под неё.