Hallo,
MIddels onderstaande code beweeg ik mijn form(zonder border)
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
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