怎么让软件界面的布局随着显示器分辨率的变化而自动变化

Public Sub ResizeInit(FormName As Form)
    Dim Obj     As Control
    FormOldWidth = FormName.ScaleWidth
    FormOldHeight = FormName.ScaleHeight
    On Error Resume Next
    For Each Obj In FormName
        Obj.Tag = Obj.Left & "   " & Obj.Top & "   " & Obj.Width & "   " & Obj.Height & "   "
    Next Obj
    On Error GoTo 0
End Sub
Public Sub ResizeForm(FormName As Form)
    Dim Pos(4)     As Double
    Dim i     As Long, TempPos       As Long, StartPos       As Long
    Dim Obj     As Control
    Dim ScaleX     As Double, ScaleY       As Double
    If FormOldWidth = 0 Then
        Exit Sub
    End If
    ScaleX = FormName.ScaleWidth / FormOldWidth
    ScaleY = FormName.ScaleHeight / FormOldHeight
    On Error Resume Next
    For Each Obj In FormName
        StartPos = 1
    For i = 0 To 4
        TempPos = InStr(StartPos, Obj.Tag, "   ", vbTextCompare)
        If TempPos > 0 Then
            Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
            StartPos = TempPos + 1
        Else
            Pos(i) = 0
        End If
        Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
    Next i
    Next Obj
    On Error GoTo 0
End Sub

Option Explicit
Private FormOldWidth    As Long    '保存窗体的原始宽度
Private FormOldHeight    As Long    '保存窗体的原始高度
  '在调用ResizeForm前先调用本函数
  Public Sub ResizeInit(FormName As Form)
      Dim Obj    As Control
      FormOldWidth = FormName.ScaleWidth
      FormOldHeight = FormName.ScaleHeight
      On Error Resume Next
      For Each Obj In FormName
          If TypeOf Obj Is ComboBox Then
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.FontSize & " "
          ElseIf TypeOf Obj Is CommandButton Then
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " " & Obj.FontSize & " "
          ElseIf TypeOf Obj Is Line Then
                Obj.Tag = Obj.X1 & " " & Obj.X2 & " " & Obj.Y1 & " " & Obj.Y2 & " " & Obj.BorderWidth & " "
          Else
                Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "

          End If
      Next Obj
      On Error GoTo 0
  End Sub

  '按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
  Public Sub ResizeForm(FormName As Form)
      Dim Pos(4)    As Double
      Dim i    As Long, TempPos      As Long, StartPos      As Long
      Dim Obj    As Control
      Dim ScaleX    As Double, ScaleY      As Double
      ScaleX = FormName.ScaleWidth / FormOldWidth          '保存窗体宽度缩放比例
      ScaleY = FormName.ScaleHeight / FormOldHeight          '保存窗体高度缩放比例
      On Error Resume Next
      For Each Obj In FormName
          StartPos = 1
          For i = 0 To 5
          '读取控件的原始位置与大小
              TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
              If TempPos > 0 Then
                  Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
                  StartPos = TempPos + 1
              Else
                  Pos(i) = 0
              End If
        '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
          Next i

            If TypeOf Obj Is ComboBox Then
                Obj.FontSize = Pos(3) * ScaleY
                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX
            ElseIf TypeOf Obj Is CommandButton Then
                Obj.FontSize = Pos(4) * ScaleY
                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
            ElseIf TypeOf Obj Is Line Then
                Obj.X1 = Pos(0) * ScaleX
                Obj.X2 = (Pos(1) - Pos(0)) * ScaleX + Obj.X1
                Obj.Y1 = Pos(2) * ScaleY
                Obj.Y2 = (Pos(3) - Pos(2)) * ScaleY + Obj.Y1
                Obj.BorderWidth = Pos(4) * Sqr(ScaleX * ScaleX + ScaleY * ScaleY)
            Else
                Obj.Move Pos(0) * ScaleX, Pos(1rint

------解决方案--------------------

这个题目问的有点别扭, 应该要问窗体内部控件自适应窗体大小, 因为分辨率变化, 只是像素颗粒大小的变化,人眼感觉大小不同, 其实尺寸是完全一样的


Dim FrmW!, FrmH!, RatioX!, RatioY!
Private Sub Form_Load()
  FrmW = Me.Width: FrmH = Me.Height
End Sub

Private Sub Form_Resize()
  Dim MyCon As Object
  RatioX = Me.Width / FrmW: RatioY = Me.Height / FrmH
  For Each MyCon In Me.Controls
     With MyCon
        .Left = Int(.Left * RatioX)
        .Top = Int(.Top * RatioY)
        .Width = Int(.Width * RatioX)
        If Not TypeOf MyCon Is ComboBox And Not TypeOf MyCon Is DriveListBox Then .Height = Int(.Height * RatioY)
     End With
  Next MyCon
  FrmW = Me.Width: FrmH = Me.Height
End Sub


------解决方案--------------------

其实比较而言,随分辨率变化布局还算小事,随系统字体大小变化才算麻烦事,君不见,很多朋友就是受困于这个,一边使用着1920像素的高分辨率显示器,一边系统字体还使用的是96dpi的小字体,因为不少程序不是这个字体就显示很不正常.