资源下载地址：点击下载

大家可能在编程时经常遇到的一个问题是设体好的窗体最大化后，窗体的控件并没有随窗体的变大而按相应比例变化，最近在网上发现了一段代码，在VB模块中加入代码，再在窗体后台代码调用一下就能实现这个令大家头疼的问题。

我们设计了2个窗体form1和form2,其中form1没有调用代码，而form2调用了module代码，所以当form1最大化时窗体上按钮的位置是没有变化的，而form2则不一样了，完全按比例放大

以下是form2窗体中加入的调用代码

Public Sub Resize_ALL(Form_Name As Form)

Dim OBJ As Object
For Each OBJ In Form_Name
    ResizeControl OBJ,Form_Name
Next OBJ

End Sub

在module定义了很多函数，而Resize_ALL函数则对每一个功数的功能实现进行遍历进而实现按比例放大功能,模块中的代码比较复杂，大家可以不用读懂，只要记得在窗体中加入以上代码就可以了