Помогите с разрешением экрана для окна формы

[007]

Можно ли програмно менять размер окна формы в зависимости от разрешения экрана?

[dr.MIG]

Можно. Что бы узнать ширину и высоту экрана, используй Screen.Width и Screen.Height соответственно.

[M.A.R.K]

Можно ли програмно менять размер окна формы в зависимости от разрешения экрана?

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

Dim Screen_Width as long
Dim Screen_Height as long
Private Sub Command1_Click()
  Screen_Width = GetDeviceCaps(0,12)
  Screen_Height = GetDeviceCaps(0,8)
  SetWindowPos(hWnd Формы,-1(поверх всех окон),Положение по X,Положение по Y,Screen_Height/2,Screen_Width/2,Флаги)
End Sub