如何让vb的屏幕上的各控件位置随显示器的变化相应变化?

Question

那你必须知道你的表单与你窗体的比例,例如：
MyScaleX = 表单.width/窗体.width
MyScaleY = 表单.height/窗体.height
这个比例在程序中是固定的
当调用Form_Resize事件时计算表单大小和位置。还有你必须知道当前屏幕的分辨率
Public Function GetDesktopSize(Width, Height) As Long
   Dim lRet As Long
   Dim apiRECT As RECT
  
   lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)
   If lRet Then
      Width = apiRECT.Right - apiRECT.Left
      Height = apiRECT.Bottom - apiRECT.Top
      GetDesktopSize = 1
   Else
      GetDesktopSize = 0
   End If
End Function在Form_Load中加入
sMyScaleX = 窗体.width/Screen.width
sMyScaleY = 窗体.height/Screen.height
当然这个比例在程序中也是固定的
当调用Form_Load事件时计算窗体的大小和在SCREEN的位置。

Answer 1

用GetSystemMetrics取得screen的大小
然后在程序根据此值动态调整。
ok