VB的程序你可以用下面的方法试试:1、工程--引用--找到一个名字好像是 ActiveResize的dll 2、在界面的最上面写 Dim SControl As AutoControl 3、在Form_Load中加:Set SControl = New AutoControl Let SControl.parentForm = Me Let SControl.setBound = True SControl.AutoSize 4、在Form_Resize中加:SControl.AutoSize 5、在Form_Unload中加:Set SControl = Nothing
2、在界面的最上面写 Dim SControl As AutoControl
3、在Form_Load中加:Set SControl = New AutoControl
Let SControl.parentForm = Me
Let SControl.setBound = True
SControl.AutoSize
4、在Form_Resize中加:SControl.AutoSize
5、在Form_Unload中加:Set SControl = Nothing
http://stanleyzcm.spaces.live.com/blog/cns!30AF46EBC360C441!725.entry
窗体中需要添加的代码如下:
Option Explicit
Dim Obj_Size() As String '窗体各控件大小、位置初始值Private Sub Form_Load() '-------------------------------------------
'将窗体各控件大小及位置的初始值保存到数组中
ReDim Obj_Size(Me.Count, 1)
Call ResizeInit(Me, Obj_Size)
'-------------------------------------------
End SubPrivate Sub Form_Resize() '-----------------------------
'窗体改变大小时控件随之改变
Call ResizeForm(Me, Obj_Size)
'-----------------------------End Sub