ControleBox

Publié le par P1l0u




Si vous avez désactiver le controle box vous ne pouvez plus avoir de controle du Form !

Logique !!

Ce code vous permettra d'avoir le controle de votre box même si vous avez désactivé le ControlBox

Public Class Form1
Dim NewPoint As New System.Drawing.Point()
Dim X, Y As Integer

Form1_MouseDown
X = Control.MousePosition.X - Me.Location.X
Y = Control.MousePosition.Y - Me.Location.Y

Form1_MouseMove
If e.Button = MouseButtons.Left Then
NewPoint = Control.MousePosition
NewPoint.X -= (X)
NewPoint.Y -= (Y)
Me.Location = NewPoint
End If


Cordialement p1l0u
Publicité

Publié dans Codes sources

Pour être informé des derniers articles, inscrivez vous :
Commenter cet article