Перемещение формы с FormBorderStyle.None

[Alexandrius]

Мне нужно перемещать Форму без заголовка окна "ухватив" её за находящийся на ней PictureBox. Делаю это так (VB 2008):

Код: Выделить всё

Private lastPoint As System.Drawing.Point
Private Sub PictTop_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictTop.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Left = Me.Left + Control.MousePosition.X - lastPoint.X
            Me.Top = Me.Top + Control.MousePosition.Y - lastPoint.Y
        End If
        lastPoint = Control.MousePosition
    End Sub

Код работает, но коряво. Если потягать форму по экрану, то указатель мыши постепенно съезжает с PictureBox. Подскажите, пожалуйста, как это исправить.

[Joo]

Правельнее слать сообщение окну, но иногда можно так:

Код: Выделить всё

    Private _CurPos As Point

   Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then _CurPos = e.Location
    End Sub

    Private Sub FormClock_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Location += e.Location - _CurPos
        End If
    End Sub


Но повторюсь, если не требуется чтобы при перетаскивании окна оно обязательно отображалось, вне зависимости от настроек параметров системы, то нужно слать оконное сообщение.

[Alexandrius]

Большое спасибо, Joo. Помогло.

[viter.alex]

А можно так. Обрабатывать не мышь, а оконную процедуру.

Код: Выделить всё

   Private Const WM_NCHITTEST As Integer = &H84
   Private Const HTCAPTION As Integer = &H2
  ''' <summary>Сабклассинг оконной процедуры</summary>
   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      Select Case m.Msg
         Case WM_NCHITTEST
            m.Result = IntPtr.op_Explicit(HTCAPTION)
            Return
      End Select
      MyBase.WndProc(m)
   End Sub

[Joo]

А можно так. Обрабатывать не мышь, а оконную процедуру.

Код: Выделить всё

   Private Const WM_NCHITTEST As Integer = &H84
   Private Const HTCAPTION As Integer = &H2
  ''' <summary>Сабклассинг оконной процедуры</summary>
   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      Select Case m.Msg
         Case WM_NCHITTEST
            m.Result = IntPtr.op_Explicit(HTCAPTION)
            Return
      End Select
      MyBase.WndProc(m)
   End Sub

Угу, но если не включено "Отображать форму при перетаскивании" то будет видно только контур.

[viter.alex]

А с чего ты взял, что содержимое формы должно отображаться при перетаскивании?

[netdemon]

Только лучше наверное использовать не FormBorderStyle.None, FixedToolBox например. только отключить ControlBox и свойство Text="".

[Alexandrius]

...Обрабатывать не мышь, а оконную процедуру...

А разве таким методом получиться тягать за PictureBox? По-моему только за саму форму...

[Joo]

А с чего ты взял, что содержимое формы должно отображаться при перетаскивании?

Ну дык я же не утверждаю. что автору так надо, я просто разъяснил разницу.

А разве таким методом получиться тягать за PictureBox? По-моему только за саму форму...

Ага, получится.

[viter.alex]

Не сочтите наглостью, но нашёлся ещё один способ перемещения формы. Его отличие от предыдущего, предложенного мной, в том, что сохраняется реакция на клик

Код: Выделить всё

  Private Const WM_NCLBUTTONDOWN = &HA1
  Private Const HTCAPTION = &H2
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    If e.Button = Windows.Forms.MouseButtons.Left Then
      Try
        sender.Capture = False
        Dim msg As Message = _
            Message.Create(sender.Handle, WM_NCLBUTTONDOWN, _
                New IntPtr(HTCAPTION), IntPtr.Zero)
        Me.DefWndProc(msg)
      Catch ex As Exception

      End Try
    End If
  End Sub

Этим же кодом можно перемещать любой другой элемент управления, имеющий hwnd, во время выполнения программы.