Home of Gamehacking - Archiv
Form ohne Titelleiste verschieben - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: Form ohne Titelleiste verschieben (/showthread.php?tid=83)

Form ohne Titelleiste verschieben - DNA - 12.09.2010

Mit dem folgenden code könnt ihr eine Form verschieben, wenn diese
keine Titelleiste hat.

Am besten erstellt ihr euch ein neues Modul und fügt folgendes dort ein




Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer


    Public Sub MoveMouseDown(ByVal Form As Object)
        drag = True 'Sets the variable drag to true.
        mousex = Windows.Forms.Cursor.Position.X - Form.Left 'Sets variable mousex
        mousey = Windows.Forms.Cursor.Position.Y - Form.Top 'Sets variable mousey
    End Sub


    Public Sub MoveMouseMove(ByVal Form As Object)
        'If drag is set to true then move the form accordingly.
        If drag = True Then
            Form.Top = Windows.Forms.Cursor.Position.Y - mousey
            Form.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub


    Public Sub MoveMouseUp()
        drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
    End Sub



Zum aufrufen fügt man folgendes in Form1.vb ein



Code:
1
2
3
4
5
6
7
8
9
10
11
 
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        MoveMouseDown(Me)
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        MoveMouseMove(Me)
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        MoveMouseUp()
    End Sub




RE: Form ohne Titelleiste verschieben - Bluespide - 12.09.2010

in VB.Net nehme ich nen anderen der is einfacher und kürzer finde ich:rolleyes:

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private MausPosition As Point

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

    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
            Me.Location = e.Location - MausPosition + Me.Location
        End If
    End Sub