Gérer le déplacement d'une fenêtre

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 (le truk bleu en haut =), mai ke vous vouliez kan mem la déplacer (tjs sans la bare de titre parcke sa fait pa bo ...)

Ben voila le but de mon source ...

Source / Exemple : 


' mettez ce code dans une form et sa marche !
Private Click As Boolean ' déclaration des variables
Private ClickX As Long
Private ClickY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Click = True ' Pour savoir si le bouton de la souris est enfoncé ou pas
ClickX = 0    ' Parcque il faut maintenir le bouton enfoncé pour déplacé =)
ClickY = 0
ClickX = X ' récupération des coordonnées de la souris lors du click
ClickY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Click = True Then 'si la souris en enfoncé
 
    Dim VariationX As Long
    Dim VariationY As Long
    VariationX = X - ClickX ' calcul de la variation de déplacement de la souris sur X
    VariationY = Y - ClickY ' idem sur Y
    Me.Left = Me.Left + VariationX ' Attribution des nouvelles coordonées
    Me.Top = Me.Top + VariationY
End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Click = False ' Pour savoir lorsque la souris n'est plus enfoncé
ClickX = 0
ClickY = 0
End Sub

Conclusion :


Voila, ce n'est pas grand chose mais sa peut servir !

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 (cs_AngeloVivaldi)