Resize всех контролов на форме

Option Explicit
Const K = 1.25 

'если 800/600 то получится 1.33333, но лучше 1.25
'эта функция относится к определению разрешения экрана

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long  

Private Sub Form_Load()
'определяем разрешения экрана
Select Case GetSystemMetrics(0)
 Case 640
Form1.Width = 9600
'Command1.Width=1500
 Case 800
Form1.Width = Form1.Width * K
'Command1.Width = Command1.Width * K
End Select
Form1.Caption = GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
End Sub

 

 

 

 

 

 

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ