Déplacement d'une form n'ayant pas de barre titre

Commenter

Contenu du snippet

Imaginer que vous avez une fenêtre avec la propriété BoderStyle à None, c'est à dire sans bordure et sans bare de titre, a l'origine impossible de déplacer cette form donc voici un code qui permet de déplacer celle-ci simplement.

Comme je débute en .net , je fais de mon mieux lol

Source / Exemple : 


#Region "Déclaration des variables"

    Dim Position_Souris_X As Integer
    Dim Position_Souris_Y As Integer
    Dim Variation_Position_Souris_X As Integer
    Dim Variation_Position_Souris_Y As Integer

#End Region

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Position_Souris_X = e.X
        Position_Souris_Y = e.Y
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If Me.MouseButtons = MouseButtons.Left Then
            Variation_Position_Souris_X = e.X - Position_Souris_X
            Variation_Position_Souris_Y = e.Y - Position_Souris_Y
            Me.Left = Me.Left + Variation_Position_Souris_X
            Me.Top = Me.Top + Variation_Position_Souris_Y
        End If
    End Sub

Conclusion :


Voilà c'est tout

Utile aussi pour attribuer cette méthose à un objet, ou encore votre propre barre titre dessinée :p

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ABL-Online)