tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル これならどちらをドラッグしても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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。