Hi
Hier ist noch mal der Code für das bewegen einer Form per Controls.
Das ganze geht auch mit Docking. Dazu einfach die Dock auf den gewünschten Wert setzen (Vorschlag: 7)
Gruß
~blaze~
Hier ist noch mal der Code für das bewegen einer Form per Controls.
VB.NET-Quellcode
- Dim ptMouseDownPos As Point
- 'Entfernen, wenn kein eingeschränkter Bereich existieren soll
- Dim rectLimitation As Rectangle = Screen.PrimaryScreen.WorkingArea
- Dim DockLeft As Integer = 0
- Dim DockRight As Integer = 0
- Dim DockTop As Integer = 0
- Dim DockBottom As Integer = 0
- 'bis hier
- Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Control.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- ptMouseDownPos = e.Location
- End If
- End Sub
- Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Control.MouseMove
- If e.Button = Windows.Forms.MouseButtons.Left Then
- Dim ptNewPos As Point = e.Location - ptMouseDownPos + Me.Location
- 'Entfernen, wenn kein eingeschränkter Bereich existieren soll
- If ptNewPos.X < rectLimitation.Left + DockLeft Then ptNewPos.X = rectLimitation.Left
- If ptNewPos.Y < rectLimitation.Top + DockTop Then ptNewPos.Y = rectLimitation.Top
- If ptNewPos.X > rectLimitation.Width - Me.Width - DockRight Then ptNewPos.X = rectLimitation.Width - Me.Width
- If ptNewPos.Y > rectLimitation.Height - Me.Height - DockBottom Then ptNewPos.Y = rectLimitation.Height - Me.Height
- 'bis hier
- Me.Location = ptNewPos
- End If
- End Sub
Das ganze geht auch mit Docking. Dazu einfach die Dock auf den gewünschten Wert setzen (Vorschlag: 7)
Gruß
~blaze~
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()