Move form by een button

Status
Niet open voor verdere reacties.

bonnowagt

Gebruiker
Lid geworden
7 dec 2006
Berichten
445
Hallo,
MIddels onderstaande code beweeg ik mijn form(zonder border)
Code:
 Dim drag As Boolean
    Dim mousex As Integer
    Dim mousey As Integer
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        drag = True 'Sets the variable drag to true.
        mousex = Windows.Forms.Cursor.Position.X - Me.Left 'Sets variable mousex
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top 'Sets variable mousey
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        'If drag is set to true then move the form accordingly.
        If drag Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mousey
            Me.Left = Windows.Forms.Cursor.Position.X - mousex
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
    End Sub


Dit werkt prima maar als ik dan in het formulier syatyen aanklikt verschijnen en 100 vakjes met daarin gegevens. Er is dan op het formulier geen ruimte meer om op te klikken
Hie kan ik het form dan bewegen bijvoorbeeld door dit met de aanwezige buttons te doen. Wel kan ik op het form nog een apart button voegen en dit daarmee doen
 
Mij is totaal onduidelijk wat je hiermee bedoelt:
"maar als ik dan in het formulier syatyen aanklikt verschijnen en 100 vakjes met daarin gegevens"
 
Sorry inderdaad erg slordig van mij. Ik bedoelde ik start via een menustrip het programma waarna het hele formulier bedekt wordt met oa. buttons . Het hele formuliuer is gevuld en bedekt zodat ik niet meer op het formulier kan klikken. Ik zou dan graag het slepen met een button of een andere oplossing doen.
 
Ik zie nog steeds niet wat je bedoelt.
Beter plaats je dan je project even.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan