玄関へお回り下さい。
マウスのドラッグでコントロールを移動する (1個)             (SNo.157)
使用コントロール Form1  TextBox1
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)VB2005
 
★ マウスのドラッグでコントロールを移動する
 
Public Class Form1 

Private TextBoxNewSize As Size  '移動位置の保存用変数

Private Sub TextBox1_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      'ドラッグ開始時点の位置を取得
      TextBoxNewSize = New Size(e.X, e.Y)
   End If
End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      'ドラッグ中の位置情報を取得して、その位置に表示
      TextBox1.Location = Point.op_Subtraction( _
            Me.PointToClient(System.Windows.Forms.Cursor.Position), TextBoxNewSize)
   End If
End Sub

End Class
 


2006/04/03


VBレスキュー(花ちゃん)
VB.NET2003  VB2005