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

2012-03-06

如何让软件界面的布局随着显示器分辨率的变化而自动变化！RT：找到这几个过程VB codePublic Sub ResizeInit(

如何让软件界面的布局随着显示器分辨率的变化而自动变化！
RT：
找到这几个过程

VB code

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 0End SubPublic 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 0End Sub

但是有缺点就是组合框不能自动适用！

[解决办法]
老问题了，好像有个老外写的控件，也是做这个的。还有使用Tag属性重新设置的。
[解决办法]
在坛子里看到过好几回类似的帖子了，组合框的高度只有靠改变文字大小来实现。
[解决办法]

探讨

引用:
在坛子里看到过好几回类似的帖子了，组合框的高度只有靠改变文字大小来实现。

引用:
还有就是你的代码里没有考虑字体大小的改变。

谢谢各位大大的关注
这个文字大小怎么控制
能给点代码吗
呵呵
俺是VB菜鸟

[解决办法]

探讨
但是有缺点就是组合框不能自动适用！

[解决办法]
水哥又来了，
[解决办法]
参考一下，看是否有启发

VB code

Option ExplicitPrivate 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的小字体,因为不少程序不是这个字体就显示很不正常.

热点排行