３．マウスのドラッグでコントロールを移動(37_Mos_03)　(旧、SampleNo.157)

１．マウスのドラッグでコントロールを移動 ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．マウスのドラッグでコントロールを移動

'コントロールを変更すれば、Form や他のコントロールに対しても同様にできます。 Private Button1NewSize As Size  '移動位置の保存用変数 Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown     If e.Button = System.Windows.Forms.MouseButtons.Left Then         'ドラッグ開始時点の位置を取得         Button1NewSize = New Size(e.X, e.Y)     End If End Sub Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove     If e.Button = System.Windows.Forms.MouseButtons.Left Then         'ドラッグ中の位置情報を取得して、その位置に表示         Button1.Location = Point.op_Subtraction( _             Me.PointToClient(System.Windows.Forms.Cursor.Position), Button1NewSize)     End If End Sub

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)