VB中控件位置大小自动适应窗体变化的3种模式详解.docVIP

VB中控件位置大小自动适应窗体变化的三种模式详解.doc 代码是无需更改的。 第一种。就是最实用的，就是所有控件的width和height按比例随窗体变化，位置也是当然是按比例哦。控件的字体不变。如下复制到代码： 改比例，字体不该。最实用Option ExplicitPrivate FormOldWidth As Long 保存窗体的原始宽度Private FormOldHeight As Long 保存窗体的原始高度Private Sub Form_Load() Call ResizeInit(Me) 在程序装入时必须加入End Sub  Private Sub Form_Resize()  Call ResizeForm(Me) 确保窗体改变时控件随之改变End Sub在调用ResizeForm前先调用本函数Public Sub ResizeInit(FormName As Form) Dim Obj As Control FormOldWidth = FormName.ScaleWidth FormOldHeight = FormName.ScaleHeight On Error Resume Next