Posouvání okna

Posouvání okna zodpovězená otázka

Ahoj. Mám Window a v něm sem si odstranil ControlBox ( ten panel kde je ikona, název aplikace, tlačítko minimalizovat, ... )

A dal jsem si tam obyč Panel001 a chci aby fungoval jako ten ControlBox. Že když za něj uživatel vezme, tak může posouvat oknem. Ale nevím jak na to

Poraďte prosím ...

Moooc díky

nahlásit spam

odpovědět

před 17 lety

Ondřej Linhart

-553 3274

Zaprvé nevíte co je to ControlBox - je to ikona v levé části titulkového pruhu, přes kterou se vyvolává systémová nabídka.

Pro přesun okna tažením kdekoliv v klientské oblasti můžete použít ukázkový kód, aby to šlo táhnout pouze v oblasti Panelu si tam jistě zvládnete dopsat sám...

Public Class Form1
  Private p As Point
  Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    p = New Point(e.X, e.Y + (Me.Size.Height - Me.ClientSize.Height))
  End Sub
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    If e.Button = MouseButtons.Left Then
      Me.Location = New Point(Cursor.Position.X - p.X, Cursor.Position.Y - p.Y)
    End If
  End Sub
End Class