タイトル : これならどちらをドラッグしてもOK 投稿日 : 2009/12/24(Thu) 19:14 投稿者 : 花ちゃん
Public Class Form1 Private meSL As Point Private Spos As Point Private Sub Form1_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles Me.MouseDown, Panel1.MouseDown If (e.Button And MouseButtons.Left) = MouseButtons.Left Then meSL = Me.Location 'Form の現在座標値 Spos = Cursor.Position 'ドラッグの開始位置 End If End Sub Private Sub Form1_MouseMove(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles Me.MouseMove, Panel1.MouseMove If (e.Button And MouseButtons.Left) = MouseButtons.Left Then 'Me.Left =Form のスタート位置 + 移動量 Me.Left = meSL.X + (Cursor.Position.X - Spos.X) Me.Top = meSL.Y + (Cursor.Position.Y - Spos.Y) End If End Sub End Class |