如何在运行时在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。

Answer 1

例如:

创建一个新设置:项目菜单->属性->设置->创建如下设置

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

应用于app

当Form_Load

时读取设置

Button1.Location = My.Settings.myLoc

更改并保存设置

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