关于resize函数，请指导

[naryan]

想试一下form_resize函数，于是在窗口代码里添加了下面的代码，但是运行后，把窗口拉大或者缩小，button键的位置都没有变啊，请指导一下啊，谢谢


Private Sub Form_Resize()
Me.Button1.Top = 50
Me.Button1.Right = 50
End Sub

[饮水需思源]

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

[naryan]

谢谢楼上，可是还是不起作用啊，下面把整个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 Sub

End Class

[worldy]

这样测试当然看不出变化，你可以试试下面代码

Private Sub Form_Resize()
with Button1
.left=width-.width - 500
.Top =height-.height - 500
end with
End Sub

[ningweidong]

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

[naryan]

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

[hunxiaoxiao]

来学习的

[KissRose]

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

[naryan]

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