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

タイトル 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

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

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