窗體自動調整大小

最新推荐文章于 2021-03-09 11:05:28 发布

weixin_34343000

最新推荐文章于 2021-03-09 11:05:28 发布

阅读量55

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xioxu/archive/2007/10/12/922385.html

本文介绍了一种改进后的窗体自动调整大小的方法，通过记录并调整控件的位置和尺寸来确保界面的一致性，避免了多次调整后界面显示效果的变化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

关于窗体自动调整大小，网上资料一搜一大片，大部分雷同，我使用后发现都有些小毛病就是多托拉几次后，再拉回原来大小，画面显示效果和开始的时候有点不一样。所以针对网上的代码做了些修改，呵呵，不过变量名什么的没改。

Private ObjOldWidth As Long
Private ObjOldHeight As Long
两个全局变量保存原始的时候窗体大小
Private Sub MemScaler()

ObjOldWidth = Me.Width
ObjOldHeight = Me.Height

Dim objCtl As Control

For Each objCtl In Me.Controls
    objCtl.Tag = objCtl.Left & "," & objCtl.Top & "," & objCtl.Width & "," & objCtl.Height & "," & objCtl.Font.Size
Next
End Sub
该函数记录每个控件的一些属性，在Form Load事件里调用一次就可以了。
在Form_Resize加入下边代码
Private Sub Form_Resize()
Dim nPosArr() As String
Dim sig1 As Single
Dim sig2 As Single
sig1 = Me.Width / ObjOldWidth
sig2 = Me.Height / ObjOldHeight
Dim objCtl As Control

For Each objCtl In Me.Controls
    nPosArr = Split(objCtl.Tag, ",")

    With objCtl
            .Left = Int(CDbl(nPosArr(0)) * sig1)
            .Top = Int(CDbl(nPosArr(1)) * sig2)
            .Width = Int(CDbl(nPosArr(2)) * sig1)
            .Height = Int(CDbl(nPosArr(3)) * sig2)
            .Font.Size = Int(CDbl(nPosArr(4)) * sig2)
    End With
Next
End Sub

OK，这就可以了。写到这里突然发现上边转的是int，会不会出问题呢？估计宽度之类的应该是double吧，姑且这样吧。