|
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
|