---

マウスドラッグでフォームを動かす

【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。 .NET でも、マウスドラッグでフォームを動かすことが可能です。 この機能を使えば、簡単に、タスクバー以外で マウスドラッグでフォームを動かす場合などに活用できます。 フォームに次の様なコードを記述します -----------VB.NETコーディングここから------------------- １．フォームを右クリックして、     コードの編集を開始して、     次のコードを記述します。     Dim Form_X As Integer     Dim Form_Y As Integer     Private Sub Form1_MouseMove(ByVal sender As Object, _         ByVal e As System.Windows.Forms.MouseEventArgs) _         Handles MyBase.MouseMove         'マウス左ボタンのプレス状態         If e.Button = MouseButtons.Left Then             With Screen.PrimaryScreen.Bounds                 Me.Left = Me.Left + e.X - Form_X                 Me.Top = Me.Top + e.Y - Form_Y             End With         End If     End Sub     Private Sub Form1_MouseDown(ByVal sender As Object, _         ByVal e As System.Windows.Forms.MouseEventArgs) _         Handles MyBase.MouseDown         'マウスの位置を保持         Form_X = e.X         Form_Y = e.Y     End Sub ２．ビルドして実行します。 ３．フォームをマウスでドラッグして移動します。 ４．タスクバー以外でもフォームをマウスでドラッグして移動 　　させる事ができる事を確認できます。 -----------VB.NETコーディングここまで------------------- 本サンプルでは、モジュール変数 Form_X ,Form_Yに フォームの座標を記録しています。 マウスの左ボタンで、ドラッグできる状態としてお閧ﾜす。

---

---

　

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。