如何在运行时在VB中移动控件并保存位置数据？

Question

我得到了一个小的代码，它使控件可以在运行时移动：

 Public Const WM_NCLBUTTONDOWN = &HA1
 Public Const HTCAPTION = 2

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    If e.Button = Windows.Forms.MouseButtons.Left = True Then
        Button1.Capture = False
        Dim msg As Message = _
        Message.Create(Button1.Handle, WM_NCLBUTTONDOWN, _
        New IntPtr(HTCAPTION), IntPtr.Zero)
        Me.DefWndProc(msg)
    End If
End Sub

移动按钮后，我需要保存按钮的新位置并加载它。 我想为此使用My.Settings，但是我不知道应该存储什么值。

Answer 1

例如：

创建新设置：项目菜单->属性->设置->如下创建设置

Name         Type               Scope      Value
myLoc   System.Drawing.Point    User       2;2

应用于应用

在Form_Load时读取设置

Button1.Location = My.Settings.myLoc

更改并保存设置

My.Settings.myLoc = Button1.Location
My.Settings.Save()