如何用VB2008编写 控件随界面大小改变而改变
小弟刚接触VB2008没多久，现在由于需要一个控件随界面改变而改变的编码，在网上搜寻以后得到 下面的代码 但是下面的代码只适用于VB2005 由于在Vb2008中一些命令的改变和取消而不能在VB2008中使用，几经修改和搜寻还是不能找到适用于VB2008的编码。请有能在VB2008中使用的编码的 大哥 帮助下 或者 能帮我修改一下 能在VB2008中使用 小弟万分感谢以下为在VB2005中能使用的编码
'VB控件随窗体大小而变化
'当窗体大小改变时，如何动态的改变控件的大小是许多VB程序员头痛的
'事。有的人设置窗体Resizable但却不改变控件的大小；有的人则根据控件的
'绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比
'较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简
'便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:
Option Explicit
Private 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
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
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 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 0
End Sub
Private Sub Form_Load()
Call ResizeInit(Me) '在程序装入时必须加入
End Sub
Private Sub Form_Resize()
Call ResizeFor Private Sub Form_Resize()
Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub
'----本例中给出了二个函数:ResizeInit和ResizeForm,在调用ResizeForm之前
'必须先调用ResizeInit。你可以将本程序拷到窗体代码段里，然后在窗体里加
'入任意控件即可进行测试。 --------------------编程问答-------------------- 好东西， --------------------编程问答-------------------- 自己 先 頂 一下
有沒有人 知道如何 修改下 這些 編易做图 使它能在 vb2008中 使用
特別是 下面這句中的 obj.Move move命令在 vb2008中 已經 取消了
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
--------------------编程问答-------------------- 先顶一下,
再提个弱弱的问题:vb2005和vb2008控件的Anchor属性和Dock属性
已经可以实现大部分缩放功能了,不知道在什么情况下需要这样做? --------------------编程问答-------------------- 其实可以使用容器实现缩放，再配合楼上提到的Dock属性。
象FlowLayoutPanel和TableLayoutPanel，各自可以实现不同的效果。 --------------------编程问答-------------------- 相对位置
补充：VB , 基础类
