3

実行時にコントロールを移動できるようにする小さなコードを取得しました。

 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 を使用したいのですが、どの値を保存すればよいかわかりません。

4

1 に答える 1