关于resize函数，请指导

Question

想试一下form_resize函数，于是在窗口代码里添加了下面的代码，但是运行后，把窗口拉大或者缩小，button键的位置都没有变啊，请指导一下啊，谢谢
    Private Sub Form_Resize()
        Me.Button1.Top = 50
        Me.Button1.Right = 50
    End Sub

Answer 1

Private Sub Form_Resize()
    Button1.Top = me.top - 500
    Button1.left= me.left - 500
End Sub

Answer 2

谢谢楼上，可是还是不起作用啊，下面把整个form的代码都贴出来
Public Class Form1    Dim ID As String
    Dim OK As Integer    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“Database1DataSet.表1”中。您可以根据需要移动或删除它。
        Me.表1TableAdapter.Fill(Me.Database1DataSet.表1)
        Me.TextBox1.Text = "hello"
        ID = "hello world"
        'Me.ListView1.Columns.
        Me.ListView1.Columns.Add("ID", 30)
        Me.ListView1.Columns.Add("OK", 60)
        Me.ListView1.Columns.Add("NO", 60)
        Me.ListView1.Columns.Add("NO", 60)
        Me.ListView1.Items.Add("1", 60)
        Me.ListView1.Items.Add("2", 60)
        Me.ListView1.Items.Add("", 60)
        Me.ListView1.Items(2).SubItems.Add(ID)
        Me.ListView1.Items(1).SubItems.Add("")
        Me.ListView1.Items(1).SubItems.Add("nuu")
        'Me.ListView1.Items(0).SubItems.Add()
        Call Form_Resize()
        Me.WindowState = vbNormal
    End Sub    Private Sub 表1BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 表1BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.表1BindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database1DataSet)    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub    Private Function Nullable() As ListViewItem.ListViewSubItem
        Throw New NotImplementedException
    End Function    Private Sub Form_Resize()
        Button1.Top = Me.top - 500
        Button1.left = Me.left - 500
    End SubEnd Class

Answer 3

这样测试当然看不出变化，你可以试试下面代码Private Sub Form_Resize()
    with Button1
      .left=width-.width - 500
      .Top =height-.height - 500
   end with
End Sub

Answer 4

你把值都写死了，当然不会变
你试试
Private Sub Form_Resize()
  Me.Button1.Top = me.height / 2
  Me.Button1.left = me.Width / 2
End Sub

Answer 5

谢谢二位，但是还是没作用啊，button1一直在一个地方不动，就像没被触发一样

Answer 6

button1.move 
用move函数
button1.Move 90, 315, 2895, Me.ScaleHeight - 400

Answer 7

呵呵，知道怎么回事了，谢谢大家帮助
我用的VB2010
在Private Sub Form_Resize() 加上 Handles Me.Resize就好用了，需要添加事件参数
 Private Sub Form_Resize() Handles Me.Resize
        Me.Button1.Top = 200
 End Sub