请赐教一段令控件随窗体的大小自动调整位置的 VB.net 代码
有一段令控件随窗体的大小自动调整位置的 VB6代码如下：
Private Sub Form_Resize() '调整窗口
Form1.Text1.Top = Me.Height - 1300
Form1.Text1.Width = Me.Width - 2000
End Sub
请问用 VB.net 该如何来写？
谢谢！
[解决办法]
VB.net 里面增加了Dock属性，直接用它就可以了
否则也是和VB一样的代码，没有什么差异
Private Sub BtnCopy_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnCopy.Resize
me.Text1.Top = Me.Height - 1300
me.Text1.Width = Me.Width - 2000
End Sub
============================================
技术交流不该有界限 资源的共享不该有条件
http://blog.csdn.net/lovingkiss
http://download.csdn.net/user/lovingkiss
Email：loving-kiss＠163.com
生肖：刺猬 小心轻放
============================================
[解决办法]
在.net里，通过控件的anchor属性(锚定)来达到控件随窗体大小自动调整位置的效果,试验几次就知道anchor属性的作用了
[解决办法]
用anchor属性,很简单. 如果是复杂界面就用几个splitter,专门用于布局的.
[解决办法]
Dim WBaseValue As Double
Dim HBaseValue As Double
Private Sub form_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim X As Integer
Dim Y As Integer
Dim control As Control
For Each control In Me.Controls
X = control.Location.X * Me.Width * WBaseValue
Y = control.Location.Y * Me.Height * HBaseValue
control.Location = New System.Drawing.Point(X, Y)
control.Height = control.Height * Me.Height * HBaseValue
control.Width = control.Width * Me.Width * WBaseValue
Next
WBaseValue = 1 / Me.Width
HBaseValue = 1 / Me.Height
end sub
