Home of Gamehacking - Archiv

Home of Gamehacking - Archiv > Coding > Visual Basic 6, VB.NET > Form ohne Titelleiste verschieben
Normale Version: Form ohne Titelleiste verschieben
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

DNA

12.09.2010, 14:46
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: 
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: 
    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


Bluespide

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

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

Home of Gamehacking - Archiv > Coding > Visual Basic 6, VB.NET > Form ohne Titelleiste verschieben