タイトル : Re^3: Formのマウスドラッグ移動時に変な挙動をいたします 投稿日 : 2009/12/24(Thu) 17:37 投稿者 : 花ちゃん
下記が利用出来ないかなと試したのですが、チョット混乱して http://hanatyan.sakura.ne.jp/dotnet/mouse02.htm オーソドックスな方法を試してみましたとりあえずと言う事で。 (動作確認するだけに試したコードなのでもっといい方法や綺麗な書き方があるかも、 後で時間がとれれば、確認して修正します。) Public Class Form1 Private MsLoc As Point Private Spos As Point Private Epos As Point Private Sub Panel1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown If (e.Button And MouseButtons.Left) = MouseButtons.Left Then MsLoc = Me.Location Spos = Cursor.Position End If End Sub Private Sub Panel1_MouseMove(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove If (e.Button And MouseButtons.Left) = MouseButtons.Left Then Epos = Cursor.Position Dim x1 As Integer = Epos.X - Spos.X Dim y1 As Integer = Epos.Y - Spos.Y Me.Left = MsLoc.X + x1 Me.Top = MsLoc.Y + y1 End If End Sub End Class |