マウスドラッグでフォームを動かす
|
|
.NET (VB)の内容
|
【注意書き】 ●VB.NET を使っているものとします。 ●動作環境は、Windows XX を使用しているとします。
.NET でも、マウスドラッグでフォームを動かすことが可能です。
この機能を使えば、簡単に、タスクバー以外で マウスドラッグでフォームを動かす場合などに活用できます。
フォームに次の様なコードを記述します
-----------VB.NETコーディングここから-------------------
1.フォームを右クリックして、 コードの編集を開始して、 次のコードを記述します。
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
2.ビルドして実行します。
3.フォームをマウスでドラッグして移動します。
4.タスクバー以外でもフォームをマウスでドラッグして移動 させる事ができる事を確認できます。
-----------VB.NETコーディングここまで-------------------
本サンプルでは、モジュール変数 Form_X ,Form_Yに フォームの座標を記録しています。
マウスの左ボタンで、ドラッグできる状態としてお閧ワす。
|
http://anetm.com/dev/d.cgi?SC=DTDTL&o=l37
Copyright(c)2001-2006 Ai Net Makoto 記事・情報の無断転載を禁止します。
|