Как сделать форму масштабируемой?

[AndrewMarcovich]

Чтобы при изменении разрешения элементы в форме и сама форма пропорционально меняли размеры.Заранее благодарен

[Faust]

Можно действовать где-то так:

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


Const FormPixelLeft=100
Const FormPixelTop=100
Const FormPixelWidth=300
Const FormPixelHeight=200
'Аналогичные константы задаешь для всех контролов
Sub Form_Load()
     Me.Left=FormPixelLeft*Screen.TwipsPerPixelX
     Me.Top=FormPixelTop*Screen.TwipsPerPixelY
     Me.Width=FormPixelWidth*Screen.TwipsPerPixelX
     Me.Height=FormPixelHeight*Screen.TwipsPerPixelY
'Выполняешь для всех контролов то же самое
End Sub

[AndrewMarcovich]

да мне же жизни не хватит!!!;))А попроще как-нибудь?

[RayShade]

А цикл

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

for each ctl in form.controls
next ctl

Как то не догадаться применить?

[Faust]

2RayShade: золотые слова! Не догадался...
Я так понял, форма уже есть? Тогда:

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

Const BasicTwipsPerPixelX= 'чему он равен при том разрешении, для которого спроектирована форма
Const BasicTwipsPerPixelY= 'чему он равен при том разрешении, для которого спроектирована форма
'далее в коде:
If Not(Screen.TwipsPerPixelX=BasicTwipsPerPixelX) Then
   for each ctl in form.controls
      ctl.left=ctl.left*Screen.TwipsPerPixelX/BasicTwipsPerPixelX
      ctl.width=ctl.width*Screen.TwipsPerPixelX/BasicTwipsPerPixelX
   next ctl
End If
If Not(Screen.TwipsPerPixelY=BasicTwipsPerPixelY) Then
   for each ctl in form.controls
      ctl.top=ctl.top*Screen.TwipsPerPixelY/BasicTwipsPerPixelY
      ctl.height=ctl.height*Screen.TwipsPerPixelY/BasicTwipsPerPixelY
   next ctl
End If